📄 收货登记查询.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{00025600-0000-0000-C000-000000000046}#4.6#0"; "crystl32.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Frmshdj
BorderStyle = 1 'Fixed Single
Caption = "收货登记查询"
ClientHeight = 6120
ClientLeft = 45
ClientTop = 330
ClientWidth = 8085
Icon = "收货登记查询.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 6120
ScaleWidth = 8085
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 5640
Visible = 0 'False
Width = 1140
End
Begin Crystal.CrystalReport Report1
Left = 3480
Top = 5640
_ExtentX = 741
_ExtentY = 741
_Version = 262150
End
Begin VB.CommandButton Cmdexit
Caption = "退出"
Height = 375
Left = 5160
TabIndex = 3
Top = 5640
Width = 1095
End
Begin VB.CommandButton Cmdprint
Caption = "打印"
Height = 375
Left = 1800
TabIndex = 2
Top = 5640
Width = 855
End
Begin MSDBGrid.DBGrid DBGrid
Bindings = "收货登记查询.frx":014A
Height = 3495
Left = 0
OleObjectBlob = "收货登记查询.frx":015E
TabIndex = 1
Top = 2040
Width = 7935
End
Begin TabDlg.SSTab SSTab1
Height = 1935
Left = 0
TabIndex = 0
Top = 0
Width = 7965
_ExtentX = 14049
_ExtentY = 3413
_Version = 393216
TabHeight = 520
TabCaption(0) = "收货登记"
TabPicture(0) = "收货登记查询.frx":0B20
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label2"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label3"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label4"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label5"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label11"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Cmdsm"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Cmdjm"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Cmdbjmc"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "DTPick1"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Cmdadd"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Txtshxx"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Txtsl"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).ControlCount= 13
TabCaption(1) = "收货查询"
TabPicture(1) = "收货登记查询.frx":0B3C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Line1"
Tab(1).Control(1)= "Chksm"
Tab(1).Control(2)= "Chkjm"
Tab(1).Control(3)= "Chkbjmc"
Tab(1).Control(4)= "Chkcx"
Tab(1).Control(5)= "Cmdcx"
Tab(1).Control(6)= "Cmdsm2"
Tab(1).Control(7)= "Cmdjm2"
Tab(1).Control(8)= "Cmdbjmc2"
Tab(1).Control(9)= "DTPick2"
Tab(1).Control(10)= "DTPick3"
Tab(1).ControlCount= 11
TabCaption(2) = "收货编辑"
TabPicture(2) = "收货登记查询.frx":0B58
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label6"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Label7"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Label8"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "Label9"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "Label10"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "Label12"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).Control(6)= "Cmdsm3"
Tab(2).Control(6).Enabled= 0 'False
Tab(2).Control(7)= "Cmdjm3"
Tab(2).Control(7).Enabled= 0 'False
Tab(2).Control(8)= "Cmdbjmc3"
Tab(2).Control(8).Enabled= 0 'False
Tab(2).Control(9)= "DTPick4"
Tab(2).Control(9).Enabled= 0 'False
Tab(2).Control(10)= "Txtshxx3"
Tab(2).Control(10).Enabled= 0 'False
Tab(2).Control(11)= "Cmdupdate"
Tab(2).Control(11).Enabled= 0 'False
Tab(2).Control(12)= "Txtsl3"
Tab(2).Control(12).Enabled= 0 'False
Tab(2).Control(13)= "Cmddel"
Tab(2).Control(13).Enabled= 0 'False
Tab(2).ControlCount= 14
Begin VB.CommandButton Cmddel
Caption = "删除"
Height = 495
Left = -68040
TabIndex = 40
Top = 1320
Width = 855
End
Begin VB.TextBox Txtsl3
Height = 375
Left = -69120
TabIndex = 39
Top = 1440
Width = 975
End
Begin VB.TextBox Txtsl
Height = 375
Left = 5760
TabIndex = 37
Top = 1440
Width = 975
End
Begin VB.CommandButton Cmdupdate
Caption = "修改"
Height = 495
Left = -68040
TabIndex = 35
Top = 480
Width = 855
End
Begin VB.TextBox Txtshxx3
Height = 375
Left = -73800
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 34
Top = 1440
Width = 3615
End
Begin MSComCtl2.DTPicker DTPick4
Height = 255
Left = -70200
TabIndex = 33
Top = 960
Width = 2055
_ExtentX = 3625
_ExtentY = 450
_Version = 393216
CalendarTitleBackColor= 16744576
Format = 19595265
CurrentDate = 38391
End
Begin VB.ComboBox Cmdbjmc3
Height = 300
Left = -70200
TabIndex = 31
Top = 480
Width = 2055
End
Begin VB.ComboBox Cmdjm3
Height = 300
Left = -73800
TabIndex = 29
Top = 960
Width = 2655
End
Begin VB.ComboBox Cmdsm3
Height = 300
Left = -73800
TabIndex = 28
Top = 480
Width = 2655
End
Begin MSComCtl2.DTPicker DTPick3
Height = 375
Left = -68520
TabIndex = 24
Top = 480
Width = 1335
_ExtentX = 2355
_ExtentY = 661
_Version = 393216
CalendarTitleBackColor= 16744576
Format = 19595265
CurrentDate = 38391
End
Begin MSComCtl2.DTPicker DTPick2
Height = 375
Left = -70200
TabIndex = 23
Top = 480
Width = 1335
_ExtentX = 2355
_ExtentY = 661
_Version = 393216
CalendarTitleBackColor= 16744576
Format = 19595265
CurrentDate = 38391
End
Begin VB.ComboBox Cmdbjmc2
Height = 300
Left = -70200
TabIndex = 22
Top = 1200
Width = 2175
End
Begin VB.ComboBox Cmdjm2
Height = 300
Left = -73680
TabIndex = 21
Top = 1200
Width = 2055
End
Begin VB.ComboBox Cmdsm2
Height = 300
Left = -73680
TabIndex = 20
Top = 480
Width = 2055
End
Begin VB.CommandButton Cmdcx
Caption = "查询"
Height = 375
Left = -67920
TabIndex = 19
Top = 1200
Width = 735
End
Begin VB.CheckBox Chkcx
Caption = "查询日期"
Height = 375
Left = -71520
TabIndex = 18
Top = 480
Width = 1095
End
Begin VB.CheckBox Chkbjmc
Caption = "备件名称"
Height = 180
Left = -71520
TabIndex = 17
Top = 1320
Width = 1215
End
Begin VB.CheckBox Chkjm
Caption = "局 名"
Height = 375
Left = -74880
TabIndex = 16
Top = 1125
Width = 1095
End
Begin VB.CheckBox Chksm
Caption = "省 名"
Height = 255
Left = -74880
TabIndex = 15
Top = 480
Width = 1095
End
Begin VB.TextBox Txtshxx
Height = 375
Left = 1200
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 14
Top = 1440
Width = 3495
End
Begin VB.CommandButton Cmdadd
Caption = "添加"
Height = 495
Left = 6840
TabIndex = 12
Top = 840
Width = 855
End
Begin MSComCtl2.DTPicker DTPick1
Height = 375
Left = 4680
TabIndex = 11
Top = 960
Width = 2055
_ExtentX = 3625
_ExtentY = 661
_Version = 393216
CalendarTitleBackColor= 16744576
Format = 19595265
CurrentDate = 38391
End
Begin VB.ComboBox Cmdbjmc
Height = 300
Left = 4680
TabIndex = 9
Top = 480
Width = 2055
End
Begin VB.ComboBox Cmdjm
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -