?? 業務受理.frm
字號:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form 業務受理
Caption = "業務受理"
ClientHeight = 7440
ClientLeft = 1965
ClientTop = 2370
ClientWidth = 15330
LinkTopic = "Form1"
ScaleHeight = 7440
ScaleWidth = 15330
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = "D:\交通大隊扣車\jjdd.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 300
Left = 6000
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "KeyID"
Top = 6600
Visible = 0 'False
Width = 3855
End
Begin VB.TextBox Text15
Height = 375
Left = 9240
TabIndex = 39
Text = "Text15"
Top = 6000
Visible = 0 'False
Width = 1095
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 375
Left = 5400
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3480
Visible = 0 'False
Width = 2055
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "D:\交通大隊扣車\jjdd.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 375
Left = 4440
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "jjdd"
Top = 5280
Visible = 0 'False
Width = 2175
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 28
Top = 7065
Width = 15330
_ExtentX = 27040
_ExtentY = 661
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 5
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 7937
MinWidth = 7937
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 7937
MinWidth = 7937
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 5821
MinWidth = 5821
Object.Tag = ""
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
Alignment = 1
TextSave = "0:43"
Object.Tag = ""
EndProperty
BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Alignment = 1
TextSave = "2007-12-8"
Object.Tag = ""
EndProperty
EndProperty
End
Begin VB.Frame Frame2
Caption = "業務受理"
Height = 6615
Left = 11640
TabIndex = 19
Top = 120
Width = 3495
Begin VB.TextBox Text17
DataField = "Other"
DataSource = "Data1"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 240
TabIndex = 46
Top = 3840
Width = 3135
End
Begin VB.TextBox Text16
DataField = "BossName"
DataSource = "Data1"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 45
Top = 2880
Width = 1455
End
Begin VB.OptionButton Option2
Caption = "無"
Height = 255
Left = 2880
TabIndex = 42
Top = 2400
Width = 495
End
Begin VB.OptionButton Option1
Caption = "有"
Height = 255
Left = 2040
TabIndex = 41
Top = 2400
Width = 495
End
Begin VB.CommandButton Command6
Caption = "受理業務"
Height = 495
Left = 480
TabIndex = 37
Top = 5640
Width = 1095
End
Begin VB.CommandButton Command4
Caption = "退出"
Height = 495
Left = 1920
TabIndex = 27
Top = 5640
Width = 1095
End
Begin VB.TextBox Text9
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1320
Locked = -1 'True
TabIndex = 26
Text = " "
Top = 1800
Width = 1695
End
Begin VB.TextBox Text5
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1320
Locked = -1 'True
TabIndex = 24
Text = " "
Top = 1095
Width = 1695
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 1320
Locked = -1 'True
TabIndex = 21
Top = 360
Width = 1455
End
Begin VB.Label Label17
Caption = "車管所意見："
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 44
Top = 3480
Width = 1215
End
Begin VB.Label Label16
Caption = "簽字領導姓名："
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 43
Top = 2880
Width = 1335
End
Begin VB.Label Label15
Caption = "是否有車管所意見："
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 40
Top = 2400
Width = 1935
End
Begin VB.Label Label12
Caption = "受理人姓名："
Enabled = 0 'False
Height = 255
Left = 240
TabIndex = 25
Top = 1920
Width = 1215
End
Begin VB.Label Label11
Caption = "受理時間："
Enabled = 0 'False
Height = 375
Left = 240
TabIndex = 23
Top = 1140
Width = 975
End
Begin VB.Label Label10
Caption = "元"
Enabled = 0 'False
Height = 255
Left = 2880
TabIndex = 22
Top = 480
Width = 375
End
Begin VB.Label Label9
Caption = "處罰金額："
Enabled = 0 'False
Height = 255
Left = 240
TabIndex = 20
Top = 480
Width = 1095
End
End
Begin VB.Frame Frame1
Caption = "基本資料"
Height = 6615
Index = 1
Left = 6000
TabIndex = 3
Top = 120
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -