📄 frmkhxtwh.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 375
Index = 0
Left = 720
TabIndex = 23
Top = 1440
Width = 975
End
Begin VB.Label Label8
Caption = "客户信誉度"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 375
Index = 0
Left = 600
TabIndex = 22
Top = 5040
Width = 1215
End
Begin VB.Label Label7
Caption = "客户方负责人"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 0
Left = 600
TabIndex = 21
Top = 10080
Width = 1455
End
Begin VB.Label Label6
Caption = "客户传真"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 720
TabIndex = 20
Top = 3600
Width = 1095
End
Begin VB.Label Label5
Caption = "客户E-mail"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 0
Left = 600
TabIndex = 19
Top = 4320
Width = 1335
End
Begin VB.Label Label4
Caption = "客户电话"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 1
Left = 720
TabIndex = 18
Top = 2880
Width = 975
End
Begin VB.Label Label3
Caption = "客户地址"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 0
Left = 720
TabIndex = 17
Top = 5760
Width = 975
End
Begin VB.Label Label2
Caption = "客户类型"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 0
Left = 720
TabIndex = 16
Top = 2160
Width = 975
End
Begin VB.Label Label1
Caption = "客户名称"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 0
Left = 720
TabIndex = 15
Top = 720
Width = 975
End
Begin VB.Label Label7
Caption = "所处大区域"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 375
Index = 1
Left = 600
TabIndex = 14
Top = 7200
Width = 1215
End
Begin VB.Label Label9
Caption = "所处地域"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 1
Left = 720
TabIndex = 13
Top = 6480
Width = 1095
End
Begin VB.Label Label8
Caption = "所处县市"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 375
Index = 1
Left = 720
TabIndex = 12
Top = 7920
Width = 975
End
Begin VB.Label Label11
Caption = "所处乡镇地区"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 375
Left = 600
TabIndex = 11
Top = 8640
Width = 1455
End
Begin VB.Label Label2
Caption = "所处地区代码"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Index = 1
Left = 600
TabIndex = 10
Top = 9360
Width = 1575
End
End
End
Attribute VB_Name = "frmKHXTWH"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
If Text1(0) = "" Then
MsgBox "客户名称不能为空!", vbExclamation, "提示"
ElseIf Text1(1) = "" Then
MsgBox "客户编号不能为空!", vbExclamation, "提示"
ElseIf Text1(2) = "" Then
MsgBox "客户类型不能为空!", vbExclamation, "提示"
ElseIf Text1(3) = "" Then
MsgBox "客户电话不能为空!", vbExclamation, "提示"
ElseIf Text1(7) = "" Then
MsgBox "客户地址不能为空!", vbExclamation, "提示"
ElseIf Text1(12) = "" Then
MsgBox "地区代码不能为空!", vbExclamation, "提示"
End If
On Error Resume Next
rs.Close
rs.Open "insert into 客户信息(客户名称,客户编号,客户类型,客户电话,客户传真,客户E_mail,客户信誉度,客户地址,地域分类,大区域,县市,乡镇市区分类,配送地区代码,客户责任人)values('" & Trim(Text1(0).Text) & "','" & Trim(Text1(1).Text) & "','" & Trim(Text1(2).Text) & "','" & Trim(Text1(3).Text) & "','" & Trim(Text1(4).Text) & "','" & Trim(Text1(5).Text) & "','" & Trim(Text1(6).Text) & "','" & Trim(Text1(7).Text) & "','" & Trim(Text1(8).Text) & "','" & Trim(Text1(9).Text) & "','" & Trim(Text1(10).Text) & "','" & Trim(Text1(11).Text) & "','" & Trim(Text1(12).Text) & "','" & Trim(Text1(13).Text) & "')", db, adOpenStatic, adLockReadOnly
Text1(0) = ""
Text1(1) = ""
Text1(2) = ""
Text1(3) = ""
Text1(4) = ""
Text1(5) = ""
Text1(6) = ""
Text1(7) = ""
Text1(8) = ""
Text1(9) = ""
Text1(10) = ""
Text1(11) = ""
Text1(12) = ""
Text1(13) = ""
Text1(0).SetFocus
er:
End Sub
Private Sub Command2_Click()
rs.Close
rs.Open "select * from 客户信息", db, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Command3_Click()
On Error Resume Next
rs.Close
rs.Open "delete 客户信息 where 客户名称='" & Trim(Text1(0).Text) & "'", db, adOpenStatic, adLockReadOnly
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.ConnectionString = "driver={SQL Server};server=MAINSRV;database=物流系统"
db.Open
rs.Open "select * from 客户信息", db, adOpenStatic, adLockReadOnly
Me.Hide
frmKHXTWH.Show
With Adodc1
.ConnectionString = "driver={SQL Server};server=MAINSRV;database=物流系统"
.RecordSource = "select * from 客户信息"
End With
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Me.Hide
MDIPSZX.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -