📄 ioform.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Ioform
Caption = "进销存管理系统"
ClientHeight = 6375
ClientLeft = 1890
ClientTop = 1365
ClientWidth = 7650
ControlBox = 0 'False
LinkTopic = "Form1"
MDIChild = -1 'True
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 6375
ScaleWidth = 7650
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin TabDlg.SSTab SSTab1
Height = 5895
Left = 120
TabIndex = 2
Top = 240
Width = 7335
_ExtentX = 12938
_ExtentY = 10398
_Version = 393216
TabOrientation = 3
Style = 1
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "@隶书"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "进货"
TabPicture(0) = "Ioform.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "DataNumtb"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "DataIntb"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Cmddelete"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Cmdadd"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "DBGrid1"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).ControlCount= 5
TabCaption(1) = "出货"
TabPicture(1) = "Ioform.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "DataOuttbpf"
Tab(1).Control(1)= "DataOuttbls"
Tab(1).Control(2)= "DBGrid2"
Tab(1).Control(3)= "DBGrid3"
Tab(1).Control(4)= "Command2"
Tab(1).Control(5)= "Command1"
Tab(1).ControlCount= 6
TabCaption(2) = "查询"
TabPicture(2) = "Ioform.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "DBGridSeach"
Tab(2).Control(1)= "CmdSeach"
Tab(2).Control(2)= "DataResult"
Tab(2).ControlCount= 3
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "Ioform.frx":0054
Height = 4935
Left = 240
OleObjectBlob = "Ioform.frx":006B
TabIndex = 0
Top = 720
Width = 6495
End
Begin VB.Data DataResult
Caption = "DataResult"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 405
Left = -71280
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 120
Visible = 0 'False
Width = 2655
End
Begin VB.CommandButton CmdSeach
Caption = "查询"
Height = 375
Left = -74760
TabIndex = 9
Top = 120
Width = 855
End
Begin VB.CommandButton Command1
Caption = "售出(&O)"
Height = 375
Left = -74760
TabIndex = 8
Top = 120
Width = 855
End
Begin VB.CommandButton Command2
Caption = "删除(&D)"
Height = 375
Left = -73800
TabIndex = 7
Top = 120
Width = 855
End
Begin MSDBGrid.DBGrid DBGrid3
Bindings = "Ioform.frx":0A32
Height = 2535
Left = -74760
OleObjectBlob = "Ioform.frx":0A4C
TabIndex = 3
Top = 3120
Width = 6615
End
Begin MSDBGrid.DBGrid DBGrid2
Bindings = "Ioform.frx":1413
Height = 2175
Left = -74760
OleObjectBlob = "Ioform.frx":142D
TabIndex = 1
Top = 600
Width = 6615
End
Begin VB.Data DataOuttbls
Caption = "零售表"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = -70200
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 2760
Visible = 0 'False
Width = 1935
End
Begin VB.Data DataOuttbpf
Caption = "批发表"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = -70200
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 120
Visible = 0 'False
Width = 1935
End
Begin VB.CommandButton Cmdadd
Caption = "添加(&A)"
Height = 375
Left = 240
TabIndex = 6
Top = 120
Width = 855
End
Begin VB.CommandButton Cmddelete
Caption = "删除(&D)"
Height = 375
Left = 1200
TabIndex = 5
Top = 120
Width = 855
End
Begin VB.Data DataIntb
Caption = "进货表"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 2160
Visible = 0 'False
Width = 1815
End
Begin MSDBGrid.DBGrid DBGridSeach
Bindings = "Ioform.frx":1DF4
Height = 4935
Left = -74640
OleObjectBlob = "Ioform.frx":1E0D
TabIndex = 4
Top = 480
Width = 6255
End
Begin VB.Data DataNumtb
Caption = "货物名称数量表"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 2640
Visible = 0 'False
Width = 1815
End
End
End
Attribute VB_Name = "Ioform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdSeach_Click()
SeachForm.Show 1
End Sub
Private Sub Command1_Click()
Outform.Show 1
End Sub
Private Sub Command2_Click()
Module2.DelSellHuowu (Me.Command2.Tag)
End Sub
Private Sub DBGrid2_GotFocus()
Me.Command2.Tag = pf
End Sub
Private Sub DBGrid3_GotFocus()
Me.Command2.Tag = ls
End Sub
Private Sub Form_Activate()
'设置表格控件的列宽
If DBGrid1.Col > 2 Then
DBGrid1.Columns(0).Width = 1000
DBGrid1.Columns(1).Width = 600
DBGrid1.Columns(2).Width = 900
DBGrid1.Columns(3).Width = 800
DBGrid1.Columns(4).Width = 800
DBGrid1.Columns(5).Width = 800
DBGrid1.Columns(6).Width = 800
DBGrid1.Columns(7).Width = 1500
DBGrid1.Columns(8).Width = 650
DBGrid1.Columns(9).Width = 1300
DBGrid1.Columns(10).Width = 700
DBGrid2.Columns(0).Width = 1000
DBGrid2.Columns(1).Width = 900
DBGrid2.Columns(2).Width = 600
DBGrid2.Columns(3).Width = 800
DBGrid2.Columns(4).Width = 800
DBGrid2.Columns(5).Width = 800
DBGrid2.Columns(6).Width = 800
DBGrid2.Columns(7).Width = 1500
DBGrid2.Columns(8).Width = 650
DBGrid2.Columns(9).Width = 1300
DBGrid2.Columns(10).Width = 700
DBGrid3.Columns(0).Width = 1000
DBGrid3.Columns(1).Width = 900
DBGrid3.Columns(2).Width = 600
DBGrid3.Columns(3).Width = 800
DBGrid3.Columns(4).Width = 900
DBGrid3.Columns(5).Width = 1100
DBGrid3.Columns(6).Width = 800
End If
End Sub
Private Sub Form_Load()
'使第一个显示的页码是1，同时解决SSTab的一个BUG
SSTab1.Tab = 0
SSTab1.Tab = 1
SSTab1.Tab = 2
SSTab1.Tab = 0
End Sub
Private Sub Form_Resize()
'调整控件大小
If Me.Height > 1200 Then
If Me.Width > 600 Then
SSTab1.Top = Me.Top + 400
SSTab1.Left = Me.Left + 100
SSTab1.Width = Me.Width - 200
SSTab1.Height = Me.Height - 500
DBGrid1.Top = SSTab1.Top + 500
DBGrid1.Left = SSTab1.Left + 100
DBGrid1.Width = SSTab1.Width - 600
DBGrid1.Height = SSTab1.Height - 750
DBGrid2.Top = SSTab1.Top + 500
DBGrid2.Left = SSTab1.Left + 100
DBGrid2.Width = SSTab1.Width - 600
DBGrid2.Height = SSTab1.Height / 2 - 600
DBGrid3.Top = SSTab1.Height / 2 + 100
DBGrid3.Left = SSTab1.Left + 100
DBGrid3.Width = SSTab1.Width - 600
DBGrid3.Height = SSTab1.Height / 2 - 300
DBGridSeach.Top = SSTab1.Top + 500
DBGridSeach.Left = SSTab1.Left + 100
DBGridSeach.Width = SSTab1.Width - 600
DBGridSeach.Height = SSTab1.Height - 750
Else
SSTab1.Top = 0
SSTab1.Height = 0
SSTab1.Left = 0
SSTab1.Width = 0
DBGrid1.Top = 0
DBGrid1.Height = 0
DBGrid1.Left = 0
DBGrid1.Width = 0
DBGrid2.Top = 0
DBGrid2.Height = 0
DBGrid2.Left = 0
DBGrid2.Width = 0
DBGrid3.Top = 0
DBGrid3.Height = 0
DBGrid3.Left = 0
DBGrid3.Width = 0
DBGridSeach.Top = 0
DBGridSeach.Height = 0
DBGridSeach.Left = 0
DBGridSeach.Width = 0
End If
End If
End Sub
Private Sub CmdAdd_Click()
AddForm.Show 1
End Sub
Private Sub Cmddelete_Click()
Module2.DelDataIntb
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -