?? incheckfrm.frm
字號:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form checkfrm
Caption = "進賬"
ClientHeight = 6105
ClientLeft = 60
ClientTop = 345
ClientWidth = 7230
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6105
ScaleWidth = 7230
WindowState = 2 'Maximized
Begin VB.ComboBox Combo1
Height = 315
Left = 1320
TabIndex = 21
Text = "請選擇賬目名稱"
Top = 840
Width = 1575
End
Begin VB.ComboBox Combo2
BackColor = &H00C0FFFF&
Height = 315
Left = 3480
TabIndex = 20
Text = "請選擇客戶"
Top = 5400
Visible = 0 'False
Width = 1335
End
Begin VB.TextBox Text5
BackColor = &H00C0FFFF&
Height = 375
Left = 5400
TabIndex = 19
Top = 5040
Width = 1095
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 2295
Left = 480
TabIndex = 18
Top = 2280
Width = 6135
_ExtentX = 10821
_ExtentY = 4048
_Version = 393216
End
Begin VB.CommandButton Command2
Caption = "取消"
Height = 375
Left = 3720
TabIndex = 17
Top = 4800
Width = 975
End
Begin VB.CommandButton Command1
Caption = "確定"
Height = 375
Left = 1920
TabIndex = 16
Top = 4800
Width = 975
End
Begin VB.TextBox Text4
Height = 375
Left = 1320
ScrollBars = 1 'Horizontal
TabIndex = 15
Top = 1800
Width = 5295
End
Begin VB.TextBox Text3
Height = 285
Left = 3720
TabIndex = 14
Top = 1320
Width = 855
End
Begin VB.ComboBox combod
Height = 315
Left = 5880
TabIndex = 13
Top = 840
Width = 495
End
Begin VB.ComboBox combom
Height = 315
Left = 4920
TabIndex = 12
Top = 840
Width = 615
End
Begin VB.ComboBox comboy
Height = 315
Left = 3720
TabIndex = 11
Top = 840
Width = 855
End
Begin VB.TextBox Text2
Height = 285
Left = 1320
TabIndex = 7
Top = 1320
Width = 1575
End
Begin VB.TextBox Text1
Height = 285
Left = 1320
TabIndex = 6
Top = 360
Width = 735
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "日"
Height = 195
Left = 6480
TabIndex = 10
Top = 840
Width = 180
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "月"
Height = 195
Left = 5640
TabIndex = 9
Top = 840
Width = 180
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "年"
Height = 195
Left = 4680
TabIndex = 8
Top = 840
Width = 180
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "備注"
Height = 195
Left = 720
TabIndex = 5
Top = 1800
Width = 360
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "經手人"
Height = 195
Left = 3120
TabIndex = 4
Top = 1320
Width = 540
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "憑證號"
Height = 195
Left = 600
TabIndex = 3
Top = 1320
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "賬目名稱"
Height = 195
Left = 360
TabIndex = 2
Top = 840
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "日期"
Height = 195
Left = 3240
TabIndex = 1
Top = 840
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "流水號"
Height = 195
Left = 600
TabIndex = 0
Top = 360
Width = 540
End
End
Attribute VB_Name = "checkfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs_checkname As New ADODB.Recordset '賬目名稱對應的數據對象
Dim rs_custom As New ADODB.Recordset '客戶名稱對應的數據對象
Const row_num = 10 '表格行數
Const col_num = 6 '表格列數
Private Sub Combo2_Click()
MSFlexGrid1.Text = Combo2.Text
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1.Col = 0
Combo2.Visible = False
Text5.Visible = True
nextposition MSFlexGrid1.Row, MSFlexGrid1.Col
End Sub
Private Sub Command1_Click()
Dim rs_save As New ADODB.Recordset
Dim sql As String
Dim i As Integer
Dim s As String '轉化數據用
On Error GoTo saveerror
If Trim(Text1.Text) = "" Then
MsgBox "流水號不能為空!", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Exit Sub
End If
If Combo1.Text = "請選擇賬目名" Then
MsgBox "請選擇賬目名！", vbOKOnly + vbExclamation, ""
Combo1.SetFocus
Exit Sub
End If
If comboy.Text = "" Then
MsgBox "請選擇年份！", vbOKOnly + vbExclamation, ""
comboy.SetFocus
Exit Sub
End If
If combom.Text = "" Then
MsgBox "請選擇月份！", vbOKOnly + vbExclamation, ""
combom.SetFocus
Exit Sub
End If
If combod.Text = "" Then
MsgBox "請選擇日期！", vbOKOnly + vbExclamation, ""
combod.SetFocus
Exit Sub
End If
If MSFlexGrid1.Col <> 0 Then
MsgBox "請輸入完整的物品信息！", vbOKOnly + vbExclamation, ""
Text5.SetFocus
Exit Sub
End If
sql = "select * from 進出賬 where 流水號='" & Text1.Text & "'"
rs_save.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_save.EOF Then
rs_save.AddNew
rs_save.Fields(0) = Trim(Text1.Text)
rs_save.Fields(1) = CDate(Trim(comboy.Text) & "-" & Trim(combom.Text) & "-" & Trim(combod.Text))
rs_save.Fields(2) = Trim(Combo1.Text)
rs_save.Fields(3) = Trim(Text2.Text)
rs_save.Fields(4) = Trim(Text3.Text)
rs_save.Fields(5) = Trim(Text4.Text)
If checkfrm.Caption = "進賬" Then '進出賬標記
rs_save.Fields(6) = True
Else
rs_save.Fields(6) = False
End If
rs_save.Update
rs_save.Close
Else
MsgBox "流水號重復！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
rs_save.Close
Exit Sub
End If
sql = "select * from 賬務資料"
rs_save.Open sql, conn, adOpenKeyset, adLockPessimistic
For i = 1 To MSFlexGrid1.Row - 1
rs_save.AddNew
rs_save.Fields(0) = Trim(Text1.Text)
rs_save.Fields(1) = CDate(Trim(comboy.Text) & "-" & Trim(combom.Text) & "-" & Trim(combod.Text))
rs_save.Fields(2) = Trim(Combo1.Text)
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 0
rs_save.Fields(3) = Trim(MSFlexGrid1.Text)
MSFlexGrid1.Col = 1
If checkfrm.Caption = "出賬" Then
s = "-" & Trim(MSFlexGrid1.Text)
rs_save.Fields(4) = CDbl(s)
Else
rs_save.Fields(4) = CDbl(Trim(MSFlexGrid1.Text))
End If
MSFlexGrid1.Col = 2
rs_save.Fields(5) = Trim(MSFlexGrid1.Text)
MSFlexGrid1.Col = 3
rs_save.Fields(6) = Trim(MSFlexGrid1.Text)
MSFlexGrid1.Col = 4
If checkfrm.Caption = "出賬" Then
s = "-" & Trim(MSFlexGrid1.Text)
rs_save.Fields(7) = CDbl(s)
Else
rs_save.Fields(7) = CDbl(Trim(MSFlexGrid1.Text))
End If
MSFlexGrid1.Col = 5
rs_save.Fields(8) = Trim(MSFlexGrid1.Text)
Next i
rs_save.Update
rs_save.Close
MsgBox "添加成功！", vbOKOnly + vbExclamation, ""
Unload Me
Exit Sub
saveerror:
MsgBox Err.Description
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim sql As String
Dim i As Integer
On Error GoTo loaderror
sql = "select * from 賬目名稱"
rs_checkname.CursorLocation = adUseClient
rs_checkname.Open sql, conn, adOpenKeyset, adLockPessimistic
sql = "select * from 客戶名稱"
rs_custom.CursorLocation = adUseClient
rs_custom.Open sql, conn, adOpenKeyset, adLockPessimistic
While Not rs_custom.EOF
Combo2.AddItem rs_custom.Fields(0)
rs_custom.MoveNext
Wend
If Not rs_checkname.EOF Then
rs_checkname.MoveFirst
While Not rs_checkname.EOF '添加可選擇的賬目名稱
Combo1.AddItem rs_checkname.Fields(0)
rs_checkname.MoveNext
Wend
End If
comboy.AddItem 2000 '添加年份
comboy.AddItem 2001
comboy.AddItem 2002
comboy.AddItem 2003
For i = 1 To 12 '添加月份
combom.AddItem i
Next i
For i = 1 To 31 '添加日期
combod.AddItem i
Next i
setgrid
setgrid_head
Text5.Visible = False
clear_grid
Exit Sub
loaderror:
MsgBox Err.Description
End Sub
Private Sub Form_Unload(Cancel As Integer)
'關閉數據對象
rs_checkname.Close
rs_custom.Close
End Sub
Public Sub setgrid() '設置表格子程序
Dim i As Integer
On Error GoTo seterror
MSFlexGrid1.ScrollBars = flexScrollBarBoth
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.Rows = row_num
MSFlexGrid1.Cols = col_num
MSFlexGrid1.SelectionMode = flexSelectionByRow
For i = 0 To row_num - 1
MSFlexGrid1.RowHeight(i) = 315
Next
For i = 0 To col_num - 1
MSFlexGrid1.ColWidth(i) = 1300
Next i
Exit Sub
seterror:
MsgBox Err.Description
End Sub
Public Sub setgrid_head()
On Error GoTo setheaderror
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "物品名稱"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = " 單價"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "數量"
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "單位"
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = " 金額"
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = "客戶名稱"
Exit Sub
setheaderror:
MsgBox Err.Description
End Sub
Public Sub clear_grid()
Dim i As Integer, j As Integer
For i = 1 To row_num - 1
MSFlexGrid1.Row = i
For j = 0 To col_num - 1
MSFlexGrid1.Col = j
MSFlexGrid1.Text = ""
Next j
Next i
End Sub
Public Sub nextposition(ByVal r As Integer, ByVal c As Integer)
On Error GoTo nexterror
Text5.Width = MSFlexGrid1.CellWidth
Text5.Height = MSFlexGrid1.CellHeight
Text5.Left = MSFlexGrid1.Left + MSFlexGrid1.ColPos(c)
Text5.Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(r)
Text5.Text = MSFlexGrid1.Text
Text5.Visible = True
Text5.SetFocus
Exit Sub
nexterror:
MsgBox Err.Description
End Sub
Private Sub MSFlexGrid1_Click()
If Combo2.Visible = True Then
Exit Sub
End If
nextposition MSFlexGrid1.Row, MSFlexGrid1.Col
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
Dim i As Integer, j As Integer
Dim price As Double, coun As Integer
On Error GoTo texterror
If KeyAscii = keyenter Then
MSFlexGrid1.Text = Text5.Text
i = MSFlexGrid1.Row
j = MSFlexGrid1.Col
If j = 0 And Trim(Text5.Text) = "" Then
MsgBox "物品名稱不能為空", vbOKOnly + vbExclamation, ""
Text5.SetFocus
Exit Sub
End If
If j = 1 And Not IsNumeric(Text5.Text) Then
MsgBox "單價請輸入數字！", vbOKOnly + vbExclamation, ""
Text5.SetFocus
Exit Sub
End If
If j = 2 And Not IsNumeric(Text5.Text) Then
MsgBox "數量請輸入數字！", vbOKOnly + vbExclamation, ""
Text5.SetFocus
Exit Sub
End If
If j = 3 And Trim(Text5.Text) = "" Then
MsgBox "單位不能為空！", vbOKOnly + vbExclamation, ""
Text5.SetFocus
Exit Sub
End If
If j = 3 And Not IsNull(Text5.Text) Then
MSFlexGrid1.Col = 1 '金額由程序算出
price = CDbl(MSFlexGrid1.Text)
MSFlexGrid1.Col = 2
coun = CInt(MSFlexGrid1.Text)
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = price * coun
MSFlexGrid1.Col = MSFlexGrid1.Col + 1
Text5.Visible = False
setcombo2 MSFlexGrid1.Row, MSFlexGrid1.Col
KeyAscii = 0
Exit Sub
End If
MSFlexGrid1.Col = MSFlexGrid1.Col + 1
KeyAscii = 0
nextposition MSFlexGrid1.Row, MSFlexGrid1.Col
End If
Exit Sub
texterror:
MsgBox Err.Description
End Sub
Public Sub setcombo2(ByVal r As Integer, ByVal c As Integer)
On Error GoTo seterror
Combo2.Width = MSFlexGrid1.CellWidth
Combo2.Left = MSFlexGrid1.Left + MSFlexGrid1.ColPos(c)
Combo2.Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(r)
Combo2.Text = MSFlexGrid1.Text
Combo2.Visible = True
Combo2.SetFocus
Exit Sub
seterror:
MsgBox Err.Description
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -