form19.frm
来自「一个商业软件的源码」· FRM 代码 · 共 2,131 行 · 第 1/5 页
FRM
2,131 行
Top = 720
Visible = 0 'False
Width = 240
End
Begin VB.Image Image3
Height = 240
Left = 9360
Picture = "Form19.frx":0872
ToolTipText = "客户未在系统里"
Top = 720
Visible = 0 'False
Width = 240
End
Begin VB.Image Image4
Height = 240
Left = 9360
Picture = "Form19.frx":0BFC
ToolTipText = "客户已在系统里"
Top = 720
Visible = 0 'False
Width = 240
End
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 500
Left = 2880
Top = 2160
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 500
Left = 3720
Top = 2160
End
Begin VB.Timer Timer3
Interval = 2000
Left = 2880
Top = 3480
End
Begin MSAdodcLib.Adodc Adodc2
Height = 330
Left = 4680
Top = 3480
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 4
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 = "Adodc2"
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 MSAdodcLib.Adodc Adodc1
Height = 375
Left = 2880
Top = 4200
Visible = 0 'False
Width = 1320
_ExtentX = 2328
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 4
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 = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin ComCtl3.CoolBar CoolBar1
Height = 600
Left = 0
TabIndex = 0
Top = 0
Width = 15255
_ExtentX = 26908
_ExtentY = 1058
BandCount = 1
BackColor = 16744576
FixedOrder = -1 'True
_CBWidth = 15255
_CBHeight = 600
_Version = "6.7.9782"
MinHeight1 = 540
Width1 = 3195
NewRow1 = 0 'False
Begin VB.Label Label2
BackStyle = 0 'Transparent
Height = 495
Left = 120
TabIndex = 1
Top = 0
Width = 8415
End
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 2
Top = 10515
Width = 15240
_ExtentX = 26882
_ExtentY = 873
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3175
MinWidth = 3175
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3881
MinWidth = 3881
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2008-12-31"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 7937
MinWidth = 7937
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 4815
Left = 2280
TabIndex = 3
Top = 600
Width = 12855
_ExtentX = 22675
_ExtentY = 8493
_Version = 393216
AllowUpdate = 0 'False
HeadLines = 1
RowHeight = 15
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.TreeView TreeView1
Height = 4815
Left = 0
TabIndex = 4
Top = 600
Width = 2175
_ExtentX = 3836
_ExtentY = 8493
_Version = 393217
Indentation = 353
LineStyle = 1
Style = 7
Appearance = 1
End
End
Attribute VB_Name = "Form19"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim ks As Integer
Dim bjzt As Boolean
Dim qxfh(26) As String
Dim jls As String
Dim addpd As Boolean
Dim zj As String
Dim xg As String
Public Function ckqd()
StatusBar1.Panels(1).Text = "欢迎--" & users & "！"
CoolBar1.Width = Form1.ScaleWidth
CoolBar1.Left = 0
StatusBar1.Panels(2).Text = "您的用户身份是－" & qx
End Function
Private Sub Command1_Click()
End Sub
Private Sub CurtButton1_Click()
If Not Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub CurtButton10_Click()
Form4.Show
End Sub
Private Sub CurtButton11_Click()
Adodc1.RecordSource = "select * from dbo.vkehu"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.UpdateBatch
Adodc1.Recordset.MoveNext
Loop
CurtButton11.Visible = False
End Sub
Private Sub CurtButton12_Click()
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Delete
Adodc1.Recordset.UpdateBatch
End If
CurtButton12.Visible = False
End Sub
Private Sub CurtButton2_Click()
If Not Adodc1.Recordset.BOF Then
Adodc1.Recordset.MovePrevious
Else
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub CurtButton3_Click()
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveNext
Else
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub CurtButton4_Click()
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub CurtButton5_Click()
bjzt = True
Call sj("false")
Select Case qx
Case "admin"
CurtButton7.Caption = "保存(&S)"
Call tlock(False)
Adodc1.Recordset.AddNew
Text1(2).Text = "gx"
Text1(4).Text = "Monic"
Text1(11).Text = "浙江"
CurtButton9.Enabled = True
UnHook Me.hwnd
Case "user"
Adodc2.RecordSource = "select * from vkehu where" & "(" & "销售=" & "'" & users & "'" & ")" & "and" & "(" & " 客户类型='新客户'" & ")"
Adodc2.Refresh
uhbb = Adodc2.Recordset.RecordCount
If uhbb < bbxl Then
CurtButton7.Caption = "保存(&S)"
Call tlock(False)
Adodc1.Recordset.AddNew
addpd = True
Text1(2).Text = users
Text1(4).Text = "Monica"
Text1(11).Text = "浙江"
CurtButton9.Enabled = True
UnHook Me.hwnd
Else
If MsgBox("对不起您的新客户报备名额已满，请先放弃原先报备的客户!,或者点" & "'" & "否" & "'" & "添加关联企业或老客户！", vbYesNo) = vbNo Then
Adodc1.Recordset.AddNew
CurtButton7.Caption = "保存(&S)"
addpd = True
Call tlock(False)
Text1(2).Text = users
Text1(4).Text = "Monica"
Text1(11).Text = "浙江"
DataList1.Visible = False
CurtButton9.Enabled = True
UnHook Me.hwnd
End If
End If
End Select
zj = "add"
End Sub
Private Sub CurtButton6_Click()
If qx <> "admin" Then
If Not Adodc1.Recordset.EOF Then
If MsgBox("你确定要放弃该客户吗？", vbYesNo, 放弃该客户) = vbYes Then
Adodc1.Recordset.Fields(2).Value = "gx"
Adodc1.Recordset.Fields(3).Value = ""
Adodc1.Recordset.UpdateBatch
End If
End If
Else
MsgBox "管理员没权这样做"
Exit Sub
End If
Select Case qx
Case "user"
Adodc1.RecordSource = "select * from dbo.vkehu where 销售=" & "'" & users & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
CurtButton6.Enabled = False
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?