📄 frmminven.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmminven
Caption = "Minven"
ClientHeight = 8055
ClientLeft = 60
ClientTop = 345
ClientWidth = 10725
LinkTopic = "Form2"
MDIChild = -1 'True
ScaleHeight = 8055
ScaleWidth = 10725
WindowState = 2 'Maximized
Begin MSAdodcLib.Adodc Adodc_minven
Height = 495
Left = 240
Top = 6960
Visible = 0 'False
Width = 1815
_ExtentX = 3201
_ExtentY = 873
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=InventoryDB;Data Source=GLX32"
OLEDBString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=InventoryDB;Data Source=GLX32"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from MI"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "frmminven.frx":0000
Height = 4815
Left = 240
TabIndex = 1
Top = 1680
Width = 10215
_ExtentX = 18018
_ExtentY = 8493
_Version = 393216
HeadLines = 1
RowHeight = 15
AllowAddNew = -1 'True
AllowDelete = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 780
Left = 0
TabIndex = 0
Top = 0
Width = 10725
_ExtentX = 18918
_ExtentY = 1376
ButtonWidth = 1032
ButtonHeight = 1376
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "add"
Key = "add"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "modify"
Key = "modify"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "delete"
Key = "delete"
ImageIndex = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "find"
Key = "find"
ImageIndex = 4
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "quit"
Key = "quit"
ImageIndex = 5
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList1
Left = 5460
Top = 60
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmminven.frx":001B
Key = "add"
Object.Tag = "add"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmminven.frx":046D
Key = "modify"
Object.Tag = "modify"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmminven.frx":08BF
Key = "delete"
Object.Tag = "delete"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmminven.frx":0D11
Key = "find"
Object.Tag = "find"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmminven.frx":1E1B
Key = "quit"
Object.Tag = "quit"
EndProperty
EndProperty
End
End
Begin VB.Label Label1
Caption = " Material Inventory"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1020
TabIndex = 2
Top = 960
Width = 4575
End
End
Attribute VB_Name = "frmminven"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "add"
common_str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=InventoryDB;Data Source=(local);"
Adodc_minven.ConnectionString = common_str
If Adodc_minven.Recordset.EOF Or Adodc_minven.Recordset.BOF Then
MsgBox "Please enter data before press add key", vbOKOnly, "Error"
ElseIf Not Adodc_minven.Recordset.EOF Or Not Adodc_minven.Recordset.BOF Then
With Adodc_minven
.CommandType = adCmdText
.CommandTimeout = 0
.RecordSource = "select * from MI"
.Recordset.MoveNext
End With
End If
Case "modify"
If Adodc_minven.Recordset.EOF Or Adodc_minven.Recordset.BOF Then
MsgBox "Please modify data before press this key", vbOKOnly, "Error"
ElseIf Not Adodc_minven.Recordset.EOF Or Not Adodc_minven.Recordset.BOF Then
Adodc_minven.Recordset.Update
Adodc_minven.Recordset.MoveNext
End If
Case "delete"
If Adodc_minven.Recordset.EOF Or Adodc_minven.Recordset.BOF Then
MsgBox "There have no data to del!", vbOKOnly, "Error"
ElseIf Not Adodc_minven.Recordset.EOF Or Not Adodc_minven.Recordset.BOF Then
Adodc_minven.Recordset.Delete
Adodc_minven.Refresh
End If
Case "find"
Findp.Label1.Caption = "frmminven"
With Findp.Combo1
.Clear
.Text = "InputType"
.AddItem "InputType"
.AddItem "MaterialID"
.AddItem "MaterialName"
.AddItem "Unit"
.AddItem "ModeNo"
.AddItem "Quantity"
.AddItem "UnitPrice"
.AddItem "Totalr"
.AddItem "Color"
.AddItem "Hardness"
.AddItem "ExprieDate"
.AddItem "MaxQty"
.AddItem "MinQty"
.AddItem "status"
.AddItem "warehouse"
.AddItem "Remarks"
Findp.Show 1
End With
Case "quit"
Unload Me
Case Else
MsgBox Button.Key & "Is Pressed"
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -