📄 frmpcd.frm
字号:
Height = 420
Left = 2400
TabIndex = 15
Top = 2880
Width = 2052
_ExtentX = 3625
_ExtentY = 794
_Version = 393216
ListField = "dcr"
Text = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSDBCtls.DBCombo DBCombo5
Bindings = "frmpcd.frx":0064
Height = 456
Left = 6000
TabIndex = 16
Top = 2880
Width = 1932
_ExtentX = 3413
_ExtentY = 794
_Version = 393216
ListField = "qzr"
Text = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label5"
DataField = "bangongr"
DataSource = "Data7"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 444
Left = 2400
TabIndex = 21
Top = 3960
Width = 2052
End
Begin VB.Label Label4
BorderStyle = 1 'Fixed Single
Caption = "办公室负责人"
BeginProperty Font
Name = "宋体"
Size = 13.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 426
Left = 480
TabIndex = 20
Top = 3960
Width = 1812
End
Begin VB.Label Label3
BorderStyle = 1 'Fixed Single
Caption = "用车单位"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 426
Left = 4560
TabIndex = 13
Top = 2400
Width = 1332
End
Begin VB.Label Label2
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "至"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4800
TabIndex = 10
Top = 3360
Width = 492
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00C0FFC0&
BorderStyle = 1 'Fixed Single
Caption = "派 车 单"
BeginProperty Font
Name = "宋体"
Size = 25.5
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 480
TabIndex = 7
Top = 840
Width = 7455
End
Begin VB.Label lblLabels
BorderStyle = 1 'Fixed Single
Caption = "用车起止时间:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 456
Index = 0
Left = 480
TabIndex = 6
Top = 3360
Width = 1812
End
Begin VB.Label lblLabels
BorderStyle = 1 'Fixed Single
Caption = "車 號:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 432
Index = 1
Left = 480
TabIndex = 5
Top = 1920
Width = 1812
End
Begin VB.Label lblLabels
BorderStyle = 1 'Fixed Single
Caption = "駕 駛 員:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 432
Index = 2
Left = 4560
TabIndex = 4
Top = 1920
Width = 1332
End
Begin VB.Label lblLabels
BorderStyle = 1 'Fixed Single
Caption = "出發地點:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 426
Index = 3
Left = 480
TabIndex = 3
Top = 2400
Width = 1812
End
Begin VB.Label lblLabels
BorderStyle = 1 'Fixed Single
Caption = "帶 車 人:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 426
Index = 4
Left = 480
TabIndex = 2
Top = 2880
Width = 1812
End
Begin VB.Label lblLabels
BorderStyle = 1 'Fixed Single
Caption = "派 車 人:"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 426
Index = 5
Left = 4560
TabIndex = 1
Top = 2880
Width = 1332
End
End
End
Attribute VB_Name = "frmpcd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("sj1") = Format(DTPicker1.Value, "yyyy-mm-dd")
Adodc1.Recordset.Fields("sj2") = Format(DTPicker2.Value, "yyyy-mm-dd")
Adodc1.Recordset.Fields("mdd") = DBCombo2.Text
Adodc1.Recordset.Fields("ch") = DBCombo6.Text
Adodc1.Recordset.Fields("jsy") = DBCombo1.Text
Adodc1.Recordset.Fields("rcdw") = DBCombo3.Text
Adodc1.Recordset.Fields("dcr") = DBCombo4.Text
Adodc1.Recordset.Fields("qzr") = DBCombo5.Text
Adodc1.Recordset.Update
DBCombo1.Text = ""
DBCombo2.Text = ""
DBCombo3.Text = ""
DBCombo4.Text = ""
DBCombo5.Text = ""
DBCombo6.Text = ""
End Sub
Private Sub Command2_Click()
On Error Resume Next
'pags = MsgBox("正开始进行打印", 36)
'If pags = 6 Then
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("sj1") = Format(DTPicker1.Value, "yyyy-mm-dd")
Adodc1.Recordset.Fields("sj2") = Format(DTPicker2.Value, "yyyy-mm-dd")
Adodc1.Recordset.Fields("mdd") = DBCombo2.Text
Adodc1.Recordset.Fields("ch") = DBCombo6.Text
Adodc1.Recordset.Fields("jsy") = DBCombo1.Text
Adodc1.Recordset.Fields("rcdw") = DBCombo3.Text
Adodc1.Recordset.Fields("dcr") = DBCombo4.Text
Adodc1.Recordset.Fields("qzr") = DBCombo5.Text
Adodc1.Recordset.Update
bch = DBCombo6.Text: bjsy = DBCombo1.Text
sj1 = Format(DTPicker1.Value, "yyyy年mm月dd日")
sj2 = Format(DTPicker2.Value, "yyyy年mm月dd日")
brcdw = DBCombo3.Text
bdcr = DBCombo4.Text
bqzr = DBCombo5.Text
bmdd = DBCombo2.Text
Call oprint
'DBCombo1.Text = ""
'DBCombo2.Text = ""
'DBCombo3.Text = ""
'DBCombo4.Text = ""
'DBCombo5.Text = ""
'DBCombo6.Text = ""
'End If
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
bch = DBCombo6.Text: bjsy = DBCombo1.Text
sj1 = Format(DTPicker1.Value, "yyyy年mm月dd日")
sj2 = Format(DTPicker2.Value, "yyyy年mm月dd日")
brcdw = DBCombo3.Text
bdcr = DBCombo4.Text
bqzr = DBCombo5.Text
bmdd = DBCombo2.Text
Call oprint
End Sub
Private Sub Form_Load()
'On Error Resume Next
DTPicker1.Value = Now
DTPicker2.Value = Now
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BG.MDB;Persist Security Info=False"
Adodc1.Refresh
data1.DatabaseName = App.Path & "\bg.mdb"
Data2.DatabaseName = App.Path & "\bg.mdb"
Data3.DatabaseName = App.Path & "\bg.mdb"
Data4.DatabaseName = App.Path & "\bg.mdb"
Data5.DatabaseName = App.Path & "\bg.mdb"
Data6.DatabaseName = App.Path & "\bg.mdb"
Data7.DatabaseName = App.Path & "\bg.mdb"
data1.Refresh
Data2.Refresh
Data3.Refresh
Data4.Refresh
Data5.Refresh
Data6.Refresh
Data7.Refresh
Label5.Caption = bangongr
End Sub
Private Sub Form_Resize()
'Frame1.Left = (Me.ScaleWidth - Frame1.Width) / 2 + 100
'Frame1.Top = (Me.ScaleHeight - Frame1.Height) / 2 - 200
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -