?? frm_live.frm
字號:
BackColor = &H80000000&
BorderStyle = 0 'None
Height = 300
Left = 1200
TabIndex = 27
Top = 600
Width = 975
End
Begin VB.Frame Frame1
Height = 3015
Left = 2160
TabIndex = 5
Top = 2280
Width = 4095
Begin VB.CommandButton Command5
Caption = "確定"
Height = 375
Left = 2880
TabIndex = 18
Top = 2520
Width = 735
End
Begin VB.TextBox txt_man
Height = 300
Left = 1200
TabIndex = 11
Top = 2520
Width = 1335
End
Begin VB.TextBox txt_money
Height = 300
Left = 1200
TabIndex = 10
Top = 2040
Width = 1335
End
Begin VB.TextBox txt_size
Height = 300
Left = 1200
TabIndex = 9
Top = 1560
Width = 2655
End
Begin VB.TextBox txt_address
Height = 300
Left = 1200
TabIndex = 8
Top = 1080
Width = 2655
End
Begin VB.TextBox txt_name
Height = 270
Left = 1200
TabIndex = 7
Top = 720
Width = 2655
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 300
Left = 1200
TabIndex = 6
Top = 240
Width = 1335
_ExtentX = 2355
_ExtentY = 529
_Version = 393216
Format = 24772609
CurrentDate = 37817
End
Begin VB.Label Label7
Caption = "元"
Height = 255
Left = 2640
TabIndex = 19
Top = 2160
Width = 375
End
Begin VB.Label Label6
Caption = "開戶人:"
Height = 255
Left = 240
TabIndex = 17
Top = 2640
Width = 855
End
Begin VB.Label Label5
Caption = "開戶金額:"
Height = 255
Left = 240
TabIndex = 16
Top = 2160
Width = 975
End
Begin VB.Label Label4
Caption = "銀行賬號:"
Height = 375
Left = 240
TabIndex = 15
Top = 1680
Width = 1095
End
Begin VB.Label Label3
Caption = "銀行地址:"
Height = 375
Left = 240
TabIndex = 14
Top = 1200
Width = 975
End
Begin VB.Label Label2
Caption = "銀行名稱:"
Height = 255
Left = 240
TabIndex = 13
Top = 720
Width = 975
End
Begin VB.Label Label1
Caption = "開戶日期:"
Height = 255
Left = 240
TabIndex = 12
Top = 240
Width = 1095
End
End
Begin VB.CommandButton Command4
Caption = "退 出"
Height = 495
Left = 360
TabIndex = 4
Top = 4320
Width = 1335
End
Begin VB.CommandButton Command3
Caption = "刪除賬戶"
Height = 495
Left = 360
TabIndex = 3
Top = 3840
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "修改賬戶信息"
Height = 495
Left = 360
TabIndex = 2
Top = 3360
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "新開賬戶"
Height = 495
Left = 360
TabIndex = 1
Top = 2880
Width = 1335
End
Begin VB.Label Label22
Caption = "個賬戶"
Height = 255
Left = 4320
TabIndex = 52
Top = 1560
Width = 615
End
Begin VB.Label Label21
Caption = "Label21"
Height = 255
Left = 4080
TabIndex = 51
Top = 1560
Width = 255
End
Begin VB.Label Label20
Caption = "共有:"
Height = 255
Left = 3480
TabIndex = 50
Top = 1560
Width = 615
End
Begin VB.Label Label15
Caption = "銀行賬號:"
Height = 255
Left = -74760
TabIndex = 33
Top = 480
Width = 975
End
Begin VB.Label Label14
Caption = "元"
Height = 255
Left = 2040
TabIndex = 26
Top = 1080
Width = 375
End
Begin VB.Label Label13
Caption = "銀行賬號:"
Height = 375
Left = 3480
TabIndex = 25
Top = 1080
Width = 975
End
Begin VB.Label Label12
Caption = "開戶人:"
Height = 255
Left = 3480
TabIndex = 24
Top = 600
Width = 975
End
Begin VB.Label Label11
Caption = "銀行地址:"
Height = 375
Left = 240
TabIndex = 23
Top = 2040
Width = 975
End
Begin VB.Label Label10
Caption = "銀行名稱:"
Height = 255
Left = 240
TabIndex = 22
Top = 1560
Width = 975
End
Begin VB.Label Label9
Caption = "開戶金額:"
Height = 375
Left = 240
TabIndex = 21
Top = 1080
Width = 975
End
Begin VB.Label Label8
Caption = "開戶日期:"
Height = 255
Left = 240
TabIndex = 20
Top = 600
Width = 975
End
End
End
Attribute VB_Name = "frm_live"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Mydb As New ADODB.Recordset
Dim Mydb1 As New ADODB.Recordset
Dim Mydb2 As New ADODB.Recordset
Dim Mydb3 As New ADODB.Recordset
Dim Mydb4 As New ADODB.Recordset
Dim Money As New ADODB.Recordset
Dim Key1 As New ADODB.Recordset
Dim Note As New ADODB.Recordset
Dim Count1 As New ADODB.Recordset
Dim AA As New ADODB.Recordset
Dim BB As New ADODB.Recordset
Dim Str_text As String
Dim Balance As Integer
Dim Panduan As Boolean
Dim Panduan1 As Boolean
Dim Yuen As Integer
Private Sub Combo1_Click()
Call Wangge
End Sub
Private Sub Command1_Click()
Call Atrue
txt_money.Text = ""
txt_name.Text = ""
txt_address.Text = ""
txt_man.Text = ""
txt_size.Text = ""
DTPicker1.Value = Date
Panduan1 = True
End Sub
Private Sub Command10_Click()
Unload Me
End Sub
Private Sub Command11_Click()
On Error Resume Next
Dim A, B, C, D, E, F, Key
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -