?? incheck1.frm
字號:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form incheck1
Caption = "入庫管理"
ClientHeight = 6435
ClientLeft = 60
ClientTop = 345
ClientWidth = 8655
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6435
ScaleWidth = 8655
WindowState = 2 'Maximized
Begin VB.ComboBox Combo1
Height = 300
ItemData = "incheck1.frx":0000
Left = 3960
List = "incheck1.frx":0002
TabIndex = 21
Top = 360
Width = 1575
End
Begin VB.ComboBox Combo2
BackColor = &H00FFFFFF&
Height = 300
ItemData = "incheck1.frx":0004
Left = 1800
List = "incheck1.frx":0006
TabIndex = 20
Text = "11"
Top = 5880
Visible = 0 'False
Width = 1335
End
Begin VB.TextBox Text5
BackColor = &H00FFFFFF&
Height = 375
Left = 3720
TabIndex = 19
Top = 5880
Width = 1095
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 2415
Left = 480
TabIndex = 18
Top = 2280
Width = 7935
_ExtentX = 13996
_ExtentY = 4260
_Version = 393216
End
Begin VB.CommandButton Command2
Caption = "取消"
Height = 375
Left = 4920
TabIndex = 17
Top = 4920
Width = 975
End
Begin VB.CommandButton Command1
Caption = "確定"
Height = 375
Left = 1920
TabIndex = 16
Top = 4920
Width = 975
End
Begin VB.TextBox Text4
Height = 270
Left = 6480
ScrollBars = 1 'Horizontal
TabIndex = 15
Top = 1560
Width = 1575
End
Begin VB.TextBox Text3
Height = 285
Left = 3960
TabIndex = 14
Top = 1560
Width = 1575
End
Begin VB.ComboBox combod
Height = 300
ItemData = "incheck1.frx":0008
Left = 4320
List = "incheck1.frx":000A
TabIndex = 13
Top = 960
Width = 855
End
Begin VB.ComboBox combom
Height = 300
ItemData = "incheck1.frx":000C
Left = 2760
List = "incheck1.frx":000E
TabIndex = 12
Top = 960
Width = 855
End
Begin VB.ComboBox comboy
Height = 300
ItemData = "incheck1.frx":0010
Left = 1320
List = "incheck1.frx":0012
TabIndex = 11
Top = 960
Width = 855
End
Begin VB.TextBox Text2
Height = 285
Left = 1320
TabIndex = 7
Top = 1560
Width = 1575
End
Begin VB.TextBox Text1
Height = 285
Left = 1320
TabIndex = 6
Top = 360
Width = 1575
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "日"
Height = 195
Left = 5400
TabIndex = 10
Top = 960
Width = 180
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "月"
Height = 195
Left = 3840
TabIndex = 9
Top = 960
Width = 180
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "年"
Height = 195
Left = 2400
TabIndex = 8
Top = 960
Width = 180
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "經手人"
Height = 180
Left = 5760
TabIndex = 5
Top = 1560
Width = 540
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "入庫數量"
Height = 180
Left = 3120
TabIndex = 4
Top = 1560
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "庫存位號"
Height = 180
Left = 480
TabIndex = 3
Top = 1560
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "車輛名稱"
Height = 180
Left = 3120
TabIndex = 2
Top = 360
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "日 期"
Height = 180
Left = 480
TabIndex = 1
Top = 960
Width = 630
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "入庫單號"
Height = 180
Left = 480
TabIndex = 0
Top = 360
Width = 720
End
End
Attribute VB_Name = "incheck1"
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)
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 incheck1.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 incheck1.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 + -