?? frm_czrk_thzj.frm
字號:
VERSION 5.00
Begin VB.Form frm_CZRK_THZJ
BorderStyle = 3 'Fixed Dialog
Caption = "同戶人口增加"
ClientHeight = 930
ClientLeft = 45
ClientTop = 330
ClientWidth = 3225
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 930
ScaleWidth = 3225
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Caption = "請輸入戶口簿號"
Height = 735
Left = 120
TabIndex = 0
Top = 60
Width = 3015
Begin VB.TextBox Text1
Height = 375
Left = 120
TabIndex = 1
Top = 240
Width = 2775
End
End
End
Attribute VB_Name = "frm_CZRK_THZJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
frm_CZRK_EDIT.Adodc1.RecordSource = "select * from Table_HKB where 戶口簿號='" + Text1.Text + "' order by 人口編號"
frm_CZRK_EDIT.Adodc1.Refresh
If frm_CZRK_EDIT.Adodc1.Recordset.RecordCount > 0 Then
frm_CZRK_EDIT.Text2.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("戶口簿號")
frm_CZRK_EDIT.Combo1.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("戶口類型")
frm_CZRK_EDIT.Text3.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("樓號")
frm_CZRK_EDIT.Text1.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("戶號")
frm_CZRK_EDIT.Text4.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("戶主姓名")
frm_CZRK_EDIT.Text5.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("聯系電話1")
frm_CZRK_EDIT.Text6.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("家庭地址")
frm_CZRK_EDIT.Text7.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("男子數")
frm_CZRK_EDIT.Text8.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("女子數")
frm_CZRK_EDIT.Text9.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("總人數")
frm_CZRK_EDIT.Text10.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("月總收入")
frm_CZRK_EDIT.Combo2.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("經濟狀況")
frm_CZRK_EDIT.Text11.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("家庭備注")
frm_CZRK_EDIT.Combo4.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("戶口類型")
frm_CZRK_EDIT.Text12.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("樓號")
frm_CZRK_EDIT.Text14.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("戶號")
frm_CZRK_EDIT.Text15.Text = frm_CZRK_EDIT.Adodc1.Recordset.Fields("戶主姓名")
frm_CZRK_EDIT.Adodc1.Recordset.MoveLast
frm_CZRK_EDIT.Text13.Text = Val(frm_CZRK_EDIT.Adodc1.Recordset.Fields("人口編號")) + 1
' frm_CZRK_EDIT.Adodc1.RecordSource = "select * from Table_HKB where 戶口簿號='" + Text1.Text + "'order by "
' frm_CZRK_EDIT.Adodc1.Refresh
frm_CZRK_THZJ.Hide
frm_CZRK_EDIT.Show
frm_CZRK_EDIT.Text16.SetFocus
Else
MsgBox "沒有此戶口簿號的信息", 48, "提示"
End If
Else
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -