📄 pinfor.frm
字号:
ColumnWidth = 2085.166
EndProperty
BeginProperty Column06
ColumnWidth = 2085.166
EndProperty
BeginProperty Column07
ColumnWidth = 2085.166
EndProperty
BeginProperty Column08
ColumnWidth = 2085.166
EndProperty
BeginProperty Column09
ColumnWidth = 2085.166
EndProperty
BeginProperty Column10
ColumnWidth = 2085.166
EndProperty
BeginProperty Column11
ColumnWidth = 1365.165
EndProperty
BeginProperty Column12
ColumnWidth = 1365.165
EndProperty
BeginProperty Column13
ColumnWidth = 1365.165
EndProperty
EndProperty
End
Begin MSAdodcLib.Adodc Adodc_pinfor
Height = 375
Left = 480
Top = 7800
Visible = 0 'False
Width = 2175
_ExtentX = 3836
_ExtentY = 661
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=(local)"
OLEDBString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=InventoryDB;Data Source=(local)"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from Pinfor"
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 MSComctlLib.ImageList ImageList1
Left = 4320
Top = 0
_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 = "pinfor.frx":001B
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pinfor.frx":046F
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pinfor.frx":08C3
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pinfor.frx":0D17
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pinfor.frx":116B
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 765
Left = 0
TabIndex = 0
Top = 0
Width = 10545
_ExtentX = 18600
_ExtentY = 1349
ButtonWidth = 1138
ButtonHeight = 1349
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
End
Begin VB.Label Label1
Caption = "Production Information"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2400
TabIndex = 1
Top = 780
Width = 5535
End
End
Attribute VB_Name = "frmpinfor"
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"
If Adodc_pinfor.Recordset.EOF Or Adodc_pinfor.Recordset.BOF Then
MsgBox "Please enter data before press add key", vbOKOnly, "Error"
ElseIf Not Adodc_pinfor.Recordset.EOF Or Not Adodc_pinfor.Recordset.BOF Then
common_str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=InventoryDB;Data Source=(local);"
Adodc_pinfor.ConnectionString = common_str
With Adodc_pinfor
.CommandType = adCmdText
.CommandTimeout = 0
.RecordSource = "select * from Pinfor"
.Recordset.MoveNext
End With
End If
Case "modify"
If Adodc_pinfor.Recordset.EOF Or Adodc_pinfor.Recordset.BOF Then
MsgBox "Please modify data before press this key", vbOKOnly, "Error"
ElseIf Not Adodc_pinfor.Recordset.EOF Or Not Adodc_pinfor.Recordset.BOF Then
Adodc_pinfor.Recordset.Update
Adodc_pinfor.Recordset.MoveNext
End If
Case "delete"
If Adodc_pinfor.Recordset.EOF Or Adodc_pinfor.Recordset.BOF Then
MsgBox "Please select data to del!", vbOKOnly, "Error"
ElseIf Not Adodc_pinfor.Recordset.EOF Or Not Adodc_pinfor.Recordset.BOF Then
Adodc_pinfor.Recordset.Delete
Adodc_pinfor.Refresh
End If
Case "find"
Findp.Label1.Caption = "frmpinfor"
With Findp.Combo1
.Clear
.Text = "ProductID"
.AddItem "ProductID"
.AddItem "CustomerID"
.AddItem "ProductName"
.AddItem "Type"
.AddItem "Differenttype"
.AddItem "TollNo"
.AddItem "PrintDie"
.AddItem "Psize"
.AddItem "Unit"
.AddItem "Cardcolor"
.AddItem "Unitprice"
.AddItem "MaxQty"
.AddItem "MinQty"
.AddItem "Remarks"
End With
Findp.Show 1
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 + -