养老保险系统代码[整理版]
养老保险系统代码
Private Sub Check13_Click()
Text6 = Text2
Text8 = Text1
End Sub
Private Sub Command1_Click()
Dim j As String
If Check6.Value = 1 Then j = "处理完结"
If Check7.Value = 1 Then j = "部分处理"
If Check8.Value = 1 Then j = "二次处理完结"
If Check9.Value = 1 Then j = Text9.Text
Open "d:\lgz\" & Right(Text6.Text, 12) & Date & ".dat" For Output As #1
Print #1, Now()
Print #1, Text1.Text '来访人姓名
Print #1, Text2.Text '来访人身份证号
Print #1, Text3.Text '来访人住址
Print #1, Text4.Text '咨询问题
Print #1, Text5.Text '提供账号
Print #1, Text6.Text '问题身份证号
Print #1, Text7.Text '查询得到原因
Print #1, Text11.Text '答复情况
Print #1, Check1.Value '收身份证复印件
Print #1, Check2.Value '收户口薄复印件
Print #1, Check3.Value '村上证明五一节祝福语精选大全
Print #1, Check4.Value '存折复印件
Print #1, Check5.Value '其他材料
Print #1, Check6.Value '处理完结
Print #1, Check7.Value '部分未处理
Print #1, Check8.Value '二次处理完结
Print #1, Check9.Value '其他情况
Print #1, Check10.Value '关系其他
Print #1, Check11.Value '子女关系
Print #1, Check12.Value '配偶关系
Print #1, Check13.Value '本人关系
查询养老保险Print #1, Text8.Text '查询人姓名
Print #1, Text9.Text '其他处理结果
Print #1, Text10.Text '其他材料
Close #1
Open "d:\lgz\jdjl.dat" For Append As #2
小产权房屋买卖协议Print #2, Label10.Caption, "来访人姓名:"; Text1.Text, "来访人身份证号:"; Text2.Text, "来访问题:"; Text4.Text, "答复情况:"; Text11.Text; "处理结果"; j
Close #2
End Sub
Private Sub Command2_Click()
Command1.Visible = False
d = InputBox("请输入相关记录单号", "榆林乡养老保险工作记录查询")
If Len(d) > 22 Then Label10.Caption = "记录单号超长"
If Len(d) < 20 Then Label10.Caption = "记录单号不足"
If Len(d) = 20 Or Len(d) = 21 Or Len(d) = 22 Then
Dim s(25) As String, i As Integer
Open "d:\lgz\" & d & ".dat" For Input As #1
Do While Not EOF(1) And Len("d:\lgz\" & d & ".dat") > 0
Line Input #1, s(i)
i = i + 1
Loop
Text1.Text = s(1) '来访人姓名
Text2.Text = s(2) '来访人身份证号
Text3.Text = s(3) '来访人住址
Text4.Text = s(4) '咨询问题
Text5.Text = s(5) '提供账号
Text6.Text = s(6) '问题身份证号
感受阳光Text7.Text = s(7) '查询得到原因
Text8.Text = s(22) '问题人姓名
Text9.Text = s(23) '其他处理情况
Text10.Text = s(24) '其他材料
Text11.Text = s(8)  '答复情况
Check1.Value = s(9) '收身份证复印件 Check2.Value = s(10) '收户口薄复印件 Check3.Value = s(11) '村上证明
Check4.Value = s(12) '存折复印件
Check5.Value = s(13) '其他材料
Check6.Value = s(14) '处理完结
Check7.Value = s(15) '部分未处理
Check8.Value = s(16) '二次处理完结 Check9.Value = s(17) '其他情况
Check10.Value = s(18) '关系其他
Check11.Value = s(19) '子女关系
Check12.Value = s(20) '配偶关系
Check13.Value = s(21) '本人关系
End If
End Sub
Private Sub Command3_Click()
Command1.Visible = True
Text1.Text = "" '来访人姓名
Text2.Text = "" '来访人身份证号 Text3.Text = "" '来访人住址
Text4.Text = "" '咨询问题
Text5.Text = "" '提供账号
Text6.Text = "" '问题身份证号
Text7.Text = "" '查询得到原因
Text8.Text = "" '姓名重置
Text11.Text = ""
Check1.Value = 0 '收身份证复印件 Check2.Value = 0 '收户口薄复印件 Check3.Value = 0 '村上证明
Check4.Value = 0 '存折复印件
Check5.Value = 0 '其他材料
Check6.Value = 0 '处理完结
Check7.Value = 0 '部分未处理
Check8.Value = 0 '二次处理完结 Check9.Value = 0 '其他情况
Check10.Value = 0 '关系其他
Check11.Value = 0 '子女关系
Check12.Value = 0 '配偶关系
Check13.Value = 0 '本人关系
End Sub
Private Sub Command4_Click() ImgScan1.OpenScanner
ImgScan1.Image = "d:\1.bmp"
End Sub
Private Sub Form_Load()
超级密码.Visible = False
艺术类高考m = InputBox("请输入系统管理员分配的进入账号", "养老保险工作记录查询登陆窗口")
If m = "帐户名" Then 榆林乡养老保险.Visible = True
If m <> "帐户名" Then b = MsgBox("非注册账号，联系管理员电话18294****", vbOKOnly, "账号错误")
End Sub
Private Sub Text2_Change()
If Len(Text2.Text) > 18 Or Len(Text2.Text) < 18 Then
Text2.BackColor = RGB(255, 0, 0) '身份证位数不等于18位
If Len(Text2.Text) = 18 Then Text2.BackColor = RGB(0, 255, 0) '等于十八位单元格为绿
End Sub
Private Sub Text2_LostFocus()
Dim s(17) As Integer
Dim j(17) As Integer, k As Integer
Dim h(11) As Integer
云南山歌
h(0) = 1
h(1) = 0
h(2) = X
h(3) = 9
h(4) = 8
h(5) = 7
h(6) = 6

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。