📄 form2.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form Form2
BorderStyle = 1 'Fixed Single
Caption = "北京英策电子设备有限公司管理系统"
ClientHeight = 9870
ClientLeft = 150
ClientTop = 840
ClientWidth = 15240
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9870
ScaleWidth = 15240
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSAdodcLib.Adodc Adodc1
Height = 495
Left = 2040
Top = 1800
Visible = 0 'False
Width = 4455
_ExtentX = 7858
_ExtentY = 873
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 = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc2
Height = 495
Left = 2160
Top = 2640
Visible = 0 'False
Width = 4455
_ExtentX = 7858
_ExtentY = 873
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 = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc3
Height = 495
Left = 2040
Top = 3720
Visible = 0 'False
Width = 4455
_ExtentX = 7858
_ExtentY = 873
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 = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Image Image1
Height = 7500
Left = 2760
Picture = "Form2.frx":0000
Top = 720
Width = 9315
End
Begin VB.Menu A
Caption = "客户管理(&K)"
Begin VB.Menu A6
Caption = "-"
End
Begin VB.Menu A1
Caption = "客户沟通登记"
End
Begin VB.Menu A4
Caption = "沟通情况查询"
End
Begin VB.Menu A3
Caption = "-"
End
Begin VB.Menu A2
Caption = "基本客户查询"
End
End
Begin VB.Menu B
Caption = "进退货管理(&H)"
Begin VB.Menu B3
Caption = "-"
End
Begin VB.Menu B1
Caption = "进货登记"
End
Begin VB.Menu B2
Caption = "进货明细"
End
Begin VB.Menu B4
Caption = "-"
End
Begin VB.Menu B5
Caption = "退货登记"
End
Begin VB.Menu B6
Caption = "退货明细"
End
End
Begin VB.Menu c
Caption = "销售管理(&X)"
Begin VB.Menu c1
Caption = "-"
End
Begin VB.Menu C2
Caption = "销售登记"
End
Begin VB.Menu C3
Caption = "销售明细"
End
Begin VB.Menu c4
Caption = "-"
End
Begin VB.Menu c5
Caption = "销售合同管理"
End
End
Begin VB.Menu D
Caption = "库存管理(&C)"
Begin VB.Menu D1
Caption = "-"
End
Begin VB.Menu D2
Caption = "库存明细"
End
Begin VB.Menu D3
Caption = "库存查询"
End
End
Begin VB.Menu I
Caption = "销售统计(&T)"
Begin VB.Menu I2
Caption = "每月销售统计"
Begin VB.Menu I21
Caption = "一月"
End
Begin VB.Menu I22
Caption = "二月"
End
Begin VB.Menu I23
Caption = "三月"
End
Begin VB.Menu I24
Caption = "四月"
End
Begin VB.Menu I25
Caption = "五月"
End
Begin VB.Menu I26
Caption = "六月"
End
Begin VB.Menu I27
Caption = "七月"
End
Begin VB.Menu I28
Caption = "八月"
End
Begin VB.Menu I29
Caption = "九月"
End
Begin VB.Menu I30
Caption = "十月"
End
Begin VB.Menu I31
Caption = "十一月"
End
Begin VB.Menu I32
Caption = "十二月"
End
End
Begin VB.Menu I3
Caption = "当年销售统计"
End
Begin VB.Menu I4
Caption = "限时销售统计"
End
End
Begin VB.Menu E
Caption = "发票开具管理(&f)"
End
Begin VB.Menu F
Caption = "密码管理(&M)"
End
Begin VB.Menu H
Caption = "注销用户(&R)"
Begin VB.Menu H1
Caption = "注销(&S)"
End
End
Begin VB.Menu G
Caption = "退出(&E)"
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub A1_Click()
Load Form3
Form3.Visible = True
End Sub
Private Sub A2_Click()
Load Form5
Form5.Visible = True
End Sub
Private Sub A4_Click()
Load Form4
Form4.Visible = True
End Sub
Private Sub B1_Click()
Load Form6
Form6.Visible = True
End Sub
Private Sub B2_Click()
Load Form7
Form7.Visible = True
End Sub
Private Sub B5_Click()
Load Form8
Form8.Visible = True
End Sub
Private Sub B6_Click()
Load Form9
Form9.Visible = True
End Sub
Private Sub C2_Click()
Load Form10
Form10.Visible = True
End Sub
Private Sub C3_Click()
Load Form11
Form11.Visible = True
End Sub
Private Sub c5_Click()
Load Form12
Form12.Visible = True
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=" & Form1.Text6 & ";Persist Security Info=True;User ID=" & Form1.Text5 & ";Initial Catalog=" & Form1.Text8 & ";Data Source=" & Form1.Text4 & ""
End Sub
Private Sub G_Click()
End
End Sub
Private Sub H1_Click()
Unload Form2
Form1.Text1 = ""
Form1.Text2 = ""
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -