📄 frmmain.frm
字号:
Begin VB.TextBox txtsex
Appearance = 0 'Flat
BackColor = &H00FF7722&
ForeColor = &H00FFFFFF&
Height = 270
Left = 1440
TabIndex = 17
Top = 480
Width = 1500
End
Begin VB.TextBox txtname
Appearance = 0 'Flat
BackColor = &H00FF7722&
ForeColor = &H00FFFFFF&
Height = 270
Left = 1440
TabIndex = 16
Top = 120
Width = 1500
End
Begin VB.Label Label22
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "条纪录"
ForeColor = &H00FFFFFF&
Height = 180
Left = 7395
TabIndex = 51
Top = 3150
Width = 540
End
Begin VB.Label Label21
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "查看第"
ForeColor = &H00FFFFFF&
Height = 180
Left = 6435
TabIndex = 50
Top = 3150
Width = 540
End
Begin VB.Label Label20
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "Xin Yunyishui"
ForeColor = &H00FFFFFF&
Height = 180
Left = 2257
TabIndex = 40
Top = 3720
Width = 1170
End
Begin VB.Label Label19
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "2002-04-05"
ForeColor = &H00FFFFFF&
Height = 180
Left = 2647
TabIndex = 39
Top = 3960
Width = 900
End
Begin VB.Label Label18
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "Copyright By Xin Yunyishui.All Rights Reserved. "
ForeColor = &H00FFFFFF&
Height = 180
Left = 1087
TabIndex = 38
Top = 3720
Width = 4320
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
BorderStyle = 6 'Inside Solid
X1 = -2
X2 = 568
Y1 = 240
Y2 = 240
End
Begin VB.Line Line1
BorderWidth = 2
X1 = -2
X2 = 568
Y1 = 240
Y2 = 240
End
Begin VB.Label Label17
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "籍 贯"
ForeColor = &H00FFFFFF&
Height = 180
Left = 480
TabIndex = 31
Top = 1245
Width = 720
End
Begin VB.Label Label16
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "手机号码"
ForeColor = &H00FFFFFF&
Height = 180
Left = 3480
TabIndex = 15
Top = 165
Width = 720
End
Begin VB.Label Label15
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "备 注"
ForeColor = &H00FFFFFF&
Height = 180
Left = 3480
TabIndex = 14
Top = 2685
Width = 720
End
Begin VB.Label Label14
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "网 名"
ForeColor = &H00FFFFFF&
Height = 180
Left = 3480
TabIndex = 13
Top = 885
Width = 720
End
Begin VB.Label Label13
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "主 页"
ForeColor = &H00FFFFFF&
Height = 180
Left = 3480
TabIndex = 12
Top = 2325
Width = 720
End
Begin VB.Label Label12
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "MSN I D"
ForeColor = &H00FFFFFF&
Height = 180
Left = 3480
TabIndex = 11
Top = 1965
Width = 720
End
Begin VB.Label Label11
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "OICQ号码"
ForeColor = &H00FFFFFF&
Height = 180
Left = 3480
TabIndex = 10
Top = 1605
Width = 720
End
Begin VB.Label Label10
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "传呼号码"
ForeColor = &H00FFFFFF&
Height = 180
Left = 3480
TabIndex = 9
Top = 525
Width = 720
End
Begin VB.Label Label9
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "手机号码"
ForeColor = &H00FFFFFF&
Height = 180
Left = 4320
TabIndex = 8
Top = -240
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "E - MAIL"
ForeColor = &H00FFFFFF&
Height = 180
Left = 3480
TabIndex = 7
Top = 1245
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "联系电话"
ForeColor = &H00FFFFFF&
Height = 180
Left = 480
TabIndex = 6
Top = 2685
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "联系地址"
ForeColor = &H00FFFFFF&
Height = 180
Left = 480
TabIndex = 5
Top = 2325
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "工作地点"
ForeColor = &H00FFFFFF&
Height = 180
Left = 480
TabIndex = 4
Top = 1965
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "工 作"
ForeColor = &H00FFFFFF&
Height = 180
Left = 480
TabIndex = 3
Top = 1560
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "性 别"
ForeColor = &H00FFFFFF&
Height = 180
Left = 480
TabIndex = 2
Top = 525
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "生 日"
ForeColor = &H00FFFFFF&
Height = 180
Left = 480
TabIndex = 1
Top = 885
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF7722&
Caption = "姓 名"
ForeColor = &H00FFFFFF&
Height = 180
Left = 480
TabIndex = 0
Top = 165
Width = 720
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mycn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cnstr As String
Dim mybln As Boolean
Dim i As Integer
Dim st As String
Dim bmk As Integer
Private Sub cmdadd_Click()
txtname.SetFocus
If cmdadd.Caption = "添加" Then
cmdadd.Caption = "保存"
lockf
clsall
cmdend.Enabled = False
cmdunlogin.Enabled = False
cmdnext.Enabled = False
cmdout.Enabled = False
cmdedit.Enabled = False
cmdsearch.Enabled = False
cmddel.Enabled = False
Else
If txtname <> "" And txtsex <> "" Then
If MsgBox("要添加新记录吗？", vbYesNo + vbExclamation + vbDefaultButton2, "提示") = vbYes Then
rs.AddNew
change
rs.Update
cmdadd.Caption = "添加"
cmdout.Enabled = True
cmdedit.Enabled = True
cmdunlogin.Enabled = True
cmdsearch.Enabled = True
cmddel.Enabled = True
If rs.RecordCount > 1 Then
cmdback.Enabled = True
cmdend.Enabled = False
cmdnext.Enabled = False
cmdfir.Enabled = True
End If
fill
txtindex.Text = rs.AbsolutePosition & "/" & rs.RecordCount
Else
rs.CancelUpdate
cmdadd.Caption = "添加"
cmdout.Enabled = True
cmdunlogin.Enabled = True
cmdedit.Enabled = True
cmdsearch.Enabled = True
cmddel.Enabled = True
cmdend.Enabled = True
cmdnext.Enabled = True
fill
End If
Else
If MsgBox("姓名、性别不能为空！要退出吗？（记录未保存）", vbYesNo + vbExclamation + vbDefaultButton2, "提示") = vbYes Then
cmdadd.Caption = "添加"
cmdout.Enabled = True
cmdunlogin.Enabled = True
If rs.AbsolutePosition <> rs.RecordCount And rs.AbsolutePosition > -1 Then
cmdend.Enabled = True
cmdnext.Enabled = True
cmdedit.Enabled = True
cmdsearch.Enabled = True
cmddel.Enabled = True
fill
End If
End If
End If
End If
End Sub
Private Sub cmdback_Click()
If rs.AbsolutePosition <> 2 Then
rs.MovePrevious
fill
cmdback.Enabled = True
cmdend.Enabled = True
cmdnext.Enabled = True
cmdfir.Enabled = True
Else
rs.MovePrevious
fill
cmdback.Enabled = False
cmdend.Enabled = True
cmdnext.Enabled = True
cmdfir.Enabled = False
End If
txtindex.Text = rs.AbsolutePosition & "/" & rs.RecordCount
aa.SetFocus
End Sub
Private Sub cmddel_Click()
If MsgBox("确定删除？", vbOKCancel + vbDefaultButton2 + vbQuestion, "删除记录") = vbOK Then
If rs.AbsolutePosition <> rs.RecordCount Then
rs.Delete adAffectCurrent
rs.MovePrevious
If rs.BOF Then
cmdfir_Click
Else
cmdnext_Click
End If
Else
rs.Delete adAffectCurrent
rs.MoveNext
If rs.RecordCount <> 0 Then
cmdend_Click
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -