📄 frmbusinessman.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"
Begin VB.Form FrmBusinessman
Caption = "ERP-采购管理子系统"
ClientHeight = 9435
ClientLeft = 60
ClientTop = 450
ClientWidth = 15240
Icon = "FrmBusinessman.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 9435
ScaleWidth = 15240
WindowState = 2 'Maximized
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 120
Top = 5160
Visible = 0 'False
Width = 1935
_ExtentX = 3413
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 6375
Left = 720
TabIndex = 5
Top = 1560
Width = 14175
_ExtentX = 25003
_ExtentY = 11245
_Version = 393216
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 9
BeginProperty Column00
DataField = "BusinessmanID"
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 = "BusinessmanName"
Caption = "供应商名称"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "Country"
Caption = "国家"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "Province"
Caption = "省份"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "City"
Caption = "城市"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "Address"
Caption = "地址"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "Linkman"
Caption = "联系人"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "Telephone"
Caption = "电话"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = "Fax"
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
BeginProperty Column02
EndProperty
BeginProperty Column03
EndProperty
BeginProperty Column04
EndProperty
BeginProperty Column05
EndProperty
BeginProperty Column06
EndProperty
BeginProperty Column07
EndProperty
BeginProperty Column08
EndProperty
EndProperty
End
Begin VB.Label LblAdd
BackStyle = 0 'Transparent
Caption = "添加"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5760
MouseIcon = "FrmBusinessman.frx":0CCA
MousePointer = 99 'Custom
TabIndex = 0
Top = 8280
Width = 615
End
Begin VB.Image Image1
Height = 300
Left = 5160
Picture = "FrmBusinessman.frx":0FD4
Top = 8280
Width = 300
End
Begin VB.Label LblModify
BackStyle = 0 'Transparent
Caption = "修改"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7320
MouseIcon = "FrmBusinessman.frx":13F0
MousePointer = 99 'Custom
TabIndex = 1
Top = 8280
Width = 615
End
Begin VB.Image Image2
Height = 300
Left = 6720
Picture = "FrmBusinessman.frx":16FA
Top = 8280
Width = 300
End
Begin VB.Label LblDelete
BackStyle = 0 'Transparent
Caption = "删除"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 8760
MouseIcon = "FrmBusinessman.frx":1B16
MousePointer = 99 'Custom
TabIndex = 2
Top = 8280
Width = 615
End
Begin VB.Image Image3
Height = 300
Left = 8160
Picture = "FrmBusinessman.frx":1E20
Top = 8280
Width = 300
End
Begin VB.Label LblBack
BackStyle = 0 'Transparent
Caption = "返回"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 10200
MouseIcon = "FrmBusinessman.frx":223C
MousePointer = 99 'Custom
TabIndex = 3
Top = 8280
Width = 615
End
Begin VB.Image Image4
Height = 300
Left = 9600
Picture = "FrmBusinessman.frx":2546
Top = 8280
Width = 300
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "供应商信息"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7080
TabIndex = 4
Top = 840
Width = 1935
End
End
Attribute VB_Name = "FrmBusinessman"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Adodc1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=ERP"
Adodc1.RecordSource = "select * from Businessman"
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub LblAdd_Click()
FrmBusinessmanEdit.Modify = False
FrmBusinessmanEdit.Show 1
Refresh_Businessman
End Sub
Private Sub LblBack_Click()
Unload Me
End Sub
Private Sub LblDelete_Click()
Dim TempBusinessmanID As String
'保存待删除记录的ID
TempBusinessmanID = Adodc1.Recordset.Fields(0)
'弹出删除确认对话框
If MsgBox("是否删除“" + Adodc1.Recordset.Fields(1) + "”?", vbYesNo, "确认") = vbYes Then
MyBusinessman.Delete (TempBusinessmanID)
MsgBox "删除成功"
End If
Refresh_Businessman
End Sub
Private Sub LblModify_Click()
FrmBusinessmanEdit.Modify = True
FrmBusinessmanEdit.OriBusinessmanID = Adodc1.Recordset.Fields(0)
'把待修改信息添加到编辑窗口
FrmBusinessmanEdit.TxtBusinessmanID = Trim(Adodc1.Recordset.Fields(0))
FrmBusinessmanEdit.TxtBusinessmanName = Trim(Adodc1.Recordset.Fields(1))
FrmBusinessmanEdit.TxtCountry = Trim(Adodc1.Recordset.Fields(2))
FrmBusinessmanEdit.TxtProvince = Trim(Adodc1.Recordset.Fields(3))
FrmBusinessmanEdit.TxtCity = Trim(Adodc1.Recordset.Fields(4))
FrmBusinessmanEdit.TxtAddress = Trim(Adodc1.Recordset.Fields(5))
FrmBusinessmanEdit.TxtLinkman = Trim(Adodc1.Recordset.Fields(6))
FrmBusinessmanEdit.TxtTelephone = Trim(Adodc1.Recordset.Fields(7))
FrmBusinessmanEdit.TxtFax = Trim(Adodc1.Recordset.Fields(8))
FrmBusinessmanEdit.TxtBusinessmanID.Enabled = False
FrmBusinessmanEdit.Caption = "修改供应商信息"
FrmBusinessmanEdit.Show 1
Refresh_Businessman
End Sub
Private Sub Refresh_Businessman()
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
LblModify.Enabled = False
LblDelete.Enabled = False
Else
LblModify.Enabled = True
LblDelete.Enabled = True
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -