📄 frmtj.frm
字号:
Top = 600
Width = 375
End
Begin VB.Label Label8
Caption = "属相"
Height = 255
Left = 1320
TabIndex = 25
Top = 960
Width = 375
End
Begin VB.Label Label9
Caption = "年龄"
Height = 255
Left = 120
TabIndex = 24
Top = 960
Width = 375
End
Begin VB.Label Label10
Caption = "血型"
Height = 255
Left = 2640
TabIndex = 23
Top = 960
Width = 375
End
End
Begin VB.TextBox Text1
Height = 375
Index = 4
Left = 4080
TabIndex = 1
Top = 1320
Width = 2055
End
Begin VB.TextBox Text1
Height = 375
Index = 3
Left = 4080
TabIndex = 0
Top = 480
Width = 2055
End
Begin VB.CommandButton Command1
Caption = "添加"
Height = 375
Left = 4560
TabIndex = 19
Top = 3000
Width = 735
End
Begin VB.CommandButton Command3
Caption = "取消"
Height = 375
Left = 4560
TabIndex = 18
Top = 4200
Width = 735
End
Begin VB.CommandButton Command2
Caption = "修改"
Height = 375
Left = 4560
TabIndex = 17
Top = 3600
Width = 735
End
Begin VB.Label Label6
Caption = "OICQ"
Height = 255
Left = 4080
TabIndex = 21
Top = 960
Width = 615
End
Begin VB.Label Label3
Caption = "姓名"
Height = 255
Left = 4080
TabIndex = 20
Top = 120
Width = 495
End
End
Attribute VB_Name = "frmTJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Add_Uo()
frmData.Data1.Recordset.Fields("Year") = CDate(Text1(1).Text) ' Password(CDate(Text1(2).Text)) '出生年月
frmData.Data1.Recordset.Fields("Love") = Text1(0).Text 'Password(Text1(0).Text) '昵称
frmData.Data1.Recordset.Fields("Age") = Text1(2).Text 'Year(Date) - Year(Text1(2).Text) ' Password(Year(Date) - Year(Text1(2).Text))
frmData.Data1.Recordset.Fields("Name") = Text1(3).Text 'Password(Text1(1).Text) '姓名
frmData.Data1.Recordset.Fields("Sex") = Combo1(0).Text ' Password(Combo1.Text) '性别
frmData.Data1.Recordset.Fields("Constell") = Combo1(1).Text ' Password(Combo2.Text) '星座
frmData.Data1.Recordset.Fields("Attributive") = Combo1(2).Text
frmData.Data1.Recordset.Fields("Blood") = Combo1(3).Text
frmData.Data1.Recordset.Fields("Oicq") = Text1(4).Text 'Password(Text1(3).Text) 'QQ
frmData.Data1.Recordset.Fields("Address") = Text1(5).Text 'Password(Text1(4).Text) '地址
frmData.Data1.Recordset.Fields("TelepNo") = Text1(6).Text ' Password(Text1(5).Text) '电话
frmData.Data1.Recordset.Fields("MoveCall") = Text1(7).Text 'Password(Text1(6).Text) '手机
frmData.Data1.Recordset.Fields("Home") = Text1(8).Text ' Password(Text1(7).Text) '宅电
frmData.Data1.Recordset.Fields("Call") = Text1(9).Text ' Password(Text1(8).Text) '传呼
frmData.Data1.Recordset.Fields("Fax") = Text1(10).Text 'Password(Text1(9).Text) '传真
frmData.Data1.Recordset.Fields("Email") = Text1(11).Text 'Password(Text1(10).Text) '电子信箱
frmData.Data1.Recordset.Fields("Appendix") = Text1(12).Text ' Password(Text1(11).Text) '备注
frmData.Data1.Recordset.Update '进行记录更新
frmData.Data1.Refresh '更新数据库
ListRefresh '调用子程序，来完成frmData窗体列表控件的数据库更新
End Sub
Private Sub Resul()
Dim Result As Integer
Dim i As Integer
'排错处理
For i = 0 To 12
If Text1(i).Text = "" Then Text1(i).Text = "-"
Next i
If Not IsNumeric(Text1(2).Text) Then
Text1(2).Text = 0
End If
For i = 0 To 3
If Combo1(i).Text = "" Then
Combo1(i).Text = "-"
End If
Next i
End Sub
Private Sub Command1_Click() '添加
On Error GoTo erren
Resul
'在没有输入法错误的前提下，添加新记录
frmData.Data1.Recordset.AddNew '添加开始
Add_Uo
'复位
FW_click
erren:
Dim Result As Integer
If Not IsDate(Text1(1).Text) Then
Result = MsgBox("出生年月不符合格式！", 48, "提示")
Text1(1).Text = Date
End If
Exit Sub
End Sub
Private Sub FW_click() '复位
Dim i As Integer
For i = 0 To 12
Text1(i).Text = ""
Next i
For i = 0 To 3
Combo1(i).Text = ""
Next i
Text1(1).Text = Date
End Sub
Private Sub Command2_Click() '修改
On Error GoTo erren
Resul
frmData.Data1.Recordset.Edit
Add_Uo
Unload frmTJ
Exit Sub
erren:
Dim Result As Integer
If Not IsDate(Text1(1).Text) Then
Result = MsgBox("出生年月不符合格式！", 48, "提示")
Text1(1).Text = Date
End If
Exit Sub
End Sub
Private Sub Command3_Click() '取消
Unload frmTJ
End Sub
Private Sub Form_Load()
On Error GoTo ErrHandle
Combo1(0).AddItem "-"
Combo1(0).AddItem "男"
Combo1(0).AddItem "女"
'----------------------------
Combo1(1).AddItem "-"
Combo1(1).AddItem "山羊座"
Combo1(1).AddItem "水瓶座"
Combo1(1).AddItem "双鱼座"
Combo1(1).AddItem "白羊座"
Combo1(1).AddItem "金牛座"
Combo1(1).AddItem "双子座"
Combo1(1).AddItem "巨蟹座"
Combo1(1).AddItem "狮子座"
Combo1(1).AddItem "处女座"
Combo1(1).AddItem "天秤座"
Combo1(1).AddItem "天蝎座"
Combo1(1).AddItem "人马座"
'--------------------------------
Combo1(2).AddItem "-"
Combo1(2).AddItem "鼠"
Combo1(2).AddItem "牛"
Combo1(2).AddItem "虎"
Combo1(2).AddItem "兔"
Combo1(2).AddItem "龙"
Combo1(2).AddItem "蛇"
Combo1(2).AddItem "马"
Combo1(2).AddItem "羊"
Combo1(2).AddItem "猴"
Combo1(2).AddItem "鸡"
Combo1(2).AddItem "狗"
Combo1(2).AddItem "猪"
'----------------------------
Combo1(3).AddItem "-"
Combo1(3).AddItem "A型"
Combo1(3).AddItem "B型"
Combo1(3).AddItem "AB型"
Combo1(3).AddItem "O型"
'-----------------------
'开始初始化
Dim i As Integer
If frmData.Uo = False Then '添加
'--------------------------
For i = 0 To 12
Text1(i).Text = ""
Next i
Text1(1).Text = Date
Else
'修改
Text1(3).Text = frmData.ListView_Name '姓名
Text1(4).Text = frmData.ListView_QQ 'QQ
Text1(0).Text = frmData.ListView_Love '昵称
Combo1(0).Text = frmData.Text1(0).Text '性别
Combo1(1).Text = frmData.Text1(3).Text '星座
Text1(1).Text = frmData.Text1(2).Text '年月日
Text1(2).Text = frmData.Text1(1).Text '年龄
Combo1(2).Text = frmData.Text1(4).Text '属相
Combo1(3).Text = frmData.Text1(5).Text '血型
Text1(5).Text = frmData.Text1(6).Text '地址
Text1(6).Text = frmData.Text1(7).Text '电话
Text1(7).Text = frmData.Text1(8).Text '手机
Text1(8).Text = frmData.Text1(9).Text '宅电
Text1(9).Text = frmData.Text1(10).Text '传呼
Text1(10).Text = frmData.Text1(11).Text '传真
Text1(11).Text = frmData.Text1(12).Text 'Email
Text1(12).Text = frmData.Text1(13).Text '备注
End If
Exit Sub
ErrHandle:
MsgBox Err.Description
Exit Sub
End Sub
Private Sub Text1_DblClick(Index As Integer)
'在程序中计算人的年龄
If Index = 2 Then Text1(2).Text = Year(Now) - Year(Text1(1).Text)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -