?? 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 + -