www.pudn.com > vb625557712344.rar > FrmLease.frm, change:2005-06-07,size:24200b
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form FrmLease
Caption = "汽车出租管理"
ClientHeight = 4905
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
LinkTopic = "Form1"
Picture = "FrmLease.frx":0000
ScaleHeight = 4905
ScaleWidth = 11880
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Cmd_Print
Caption = "打印合同"
Height = 375
Left = 10080
TabIndex = 10
Top = 120
Width = 1575
End
Begin VB.CommandButton Cmd_ContCheck
Caption = "续租审核"
BeginProperty Font
Name = "华文行楷"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8780
TabIndex = 9
Top = 4320
Width = 1200
End
Begin VB.CommandButton Cmd_Cont
Caption = "续 租"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7120
TabIndex = 8
Top = 4320
Width = 975
End
Begin VB.CommandButton Cmd_Check
Caption = "租赁审核"
BeginProperty Font
Name = "华文行楷"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5280
TabIndex = 7
Top = 4320
Width = 1335
End
Begin VB.CommandButton Cmd_Del
Caption = "删 除"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3800
TabIndex = 6
Top = 4320
Width = 975
End
Begin VB.CommandButton Cmd_Modi
Caption = "修 改"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2140
TabIndex = 5
Top = 4320
Width = 975
End
Begin VB.ComboBox cob_Status
Height = 300
ItemData = "FrmLease.frx":E2C4
Left = 1440
List = "FrmLease.frx":E2C6
Style = 2 'Dropdown List
TabIndex = 4
Top = 120
Width = 1335
End
Begin VB.CommandButton Cmd_Exit
Caption = "退 出"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 10440
TabIndex = 2
Top = 4320
Width = 975
End
Begin VB.CommandButton Cmd_Add
Caption = "添 加"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 1
Top = 4320
Width = 975
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 6480
Top = 120
Visible = 0 'False
Width = 2055
_ExtentX = 3625
_ExtentY = 661
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 = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 3615
Left = 120
TabIndex = 0
Top = 600
Width = 11655
_ExtentX = 20558
_ExtentY = 6376
_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
MarqueeStyle = 3
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "租赁状态"
BeginProperty Font
Name = "华文行楷"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 3
Top = 180
Width = 960
End
End
Attribute VB_Name = "FrmLease"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private SchCnd As String
Private Sub Cmd_Add_Click()
Dim sTime As String
FrmLeaseEdit.Modify = False
FrmLeaseEdit.sCarNo = ""
FrmLeaseEdit.sCustId = ""
FrmLeaseEdit.txtContractNo = ""
FrmLeaseEdit.txtCarNo = ""
FrmLeaseEdit.txtCustId = ""
sTime = Trim(Str(Time))
FrmLeaseEdit.sLTime = sTime
FrmLeaseEdit.txtLeaseTime = Trim(Str(Date)) + " " + sTime
FrmLeaseEdit.txtReturnTime = ""
FrmLeaseEdit.txtUserName = ""
FrmLeaseEdit.txtWorkDays.Enabled = False
FrmLeaseEdit.txtWeekEndCount.Enabled = False
FrmLeaseEdit.Label19.Enabled = False
FrmLeaseEdit.Label20.Enabled = False
FrmLeaseEdit.Label13.Enabled = False
FrmLeaseEdit.Label14.Enabled = False
FrmLeaseEdit.CarRefresh
FrmLeaseEdit.CarPriceRefresh
FrmLeaseEdit.CustomerRefresh
FrmLeaseEdit.Show 1
GridRefresh
End Sub
Private Sub Cmd_Cont_Click()
If Adodc1.Recordset.EOF = True Then
MsgBox "请选择记录"
Exit Sub
End If
FrmLeaseAddEdit.sContractNo = Trim(Adodc1.Recordset.Fields(0))
FrmLeaseAddEdit.txtContractNo = Trim(Adodc1.Recordset.Fields(0))
If MyLease.GetInfo(Trim(Adodc1.Recordset.Fields(0))) = True Then
FrmLeaseAddEdit.sCarNo = Trim(MyLease.CarNo)
FrmLeaseAddEdit.sCustId = Trim(MyLease.CustId)
FrmLeaseAddEdit.txtDeposit = MyLease.Deposit
FrmLeaseAddEdit.txtDayPrice = MyLease.Price1
FrmLeaseAddEdit.txtWeekEndPrice = MyLease.Price2
FrmLeaseAddEdit.txtOKMPrice = MyLease.OPrice1
FrmLeaseAddEdit.txtOTPrice = MyLease.OPrice2
FrmLeaseAddEdit.txtDayKM = MyLease.DayKM
FrmLeaseAddEdit.txtLeaseMode = Trim(MyLease.LeaseMode)
FrmLeaseAddEdit.txtLeaseTime = Trim(MyLease.LeaseTime)
FrmLeaseAddEdit.txtReturnTime = Trim(MyLease.ReturnTime)
FrmLeaseAddEdit.txtOutKM = MyLease.OutKM
FrmLeaseAddEdit.txtRate = MyLease.Rate * 10
FrmLeaseAddEdit.txtUserName = Trim(MyLease.UserName)
If Trim(MyLease.LeaseMode) = "日" Then
FrmLeaseAddEdit.txtWorkDays = MyLease.WorkDays
FrmLeaseAddEdit.txtWeekEndCount = MyLease.WeekEndCount
FrmLeaseAddEdit.Label13.Caption = "工作日"
FrmLeaseAddEdit.txtCost = MyLease.WorkDays * MyLease.Price1 + MyLease.WorkDays * MyLease.Price2
FrmLeaseAddEdit.txtWeekEndCount.Enabled = True
ElseIf Trim(MyLease.LeaseMode) = "周" Then
FrmLeaseAddEdit.txtWorkDays = MyLease.WorkDays
FrmLeaseAddEdit.txtWeekEndCount = 0
FrmLeaseAddEdit.Label13.Caption = "周数"
FrmLeaseAddEdit.Label14.Caption = "个"
FrmLeaseAddEdit.Label19.Caption = "周末数"
FrmLeaseAddEdit.txtCost = MyLease.WorkDays * MyLease.Price1
FrmLeaseAddEdit.Label19.Enabled = False
FrmLeaseAddEdit.Label20.Enabled = False
FrmLeaseAddEdit.txtWeekEndCount.Enabled = False
ElseIf Trim(MyLease.LeaseMode) = "月" Then
FrmLeaseAddEdit.txtWorkDays = MyLease.WorkDays
FrmLeaseAddEdit.txtWeekEndCount = 0
FrmLeaseAddEdit.Label13.Caption = "月份数"
FrmLeaseAddEdit.Label14.Caption = "个"
FrmLeaseAddEdit.Label19.Caption = "周末数"
FrmLeaseAddEdit.txtCost = MyLease.WorkDays * MyLease.Price1
FrmLeaseAddEdit.Label19.Enabled = False
FrmLeaseAddEdit.Label20.Enabled = False
FrmLeaseAddEdit.txtWeekEndCount.Enabled = False
End If
End If
FrmLeaseAddEdit.CarRefresh
FrmLeaseAddEdit.CustomerRefresh
FrmLeaseAddEdit.txtContractNo.Enabled = False
FrmLeaseAddEdit.Show 1
GridRefresh
End Sub
Private Sub Cmd_ContCheck_Click()
If Adodc1.Recordset.EOF Then
MsgBox ("请选择记录")
Exit Sub
End If
If MsgBox("是否审核确认了续租合同", vbYesNo, "请确认") = vbNo Then
Exit Sub
End If
With MyLease
.Status = "续租审核"
.UpdateStatus (Trim(Adodc1.Recordset.Fields(0)))
End With
GridRefresh
End Sub
Private Sub Cmd_Exit_Click()
Unload Me
End Sub
Private Sub Cmd_Modi_Click()
If Adodc1.Recordset.EOF Then
MsgBox ("请选择记录")
Exit Sub
End If
FrmLeaseEdit.Modify = True
FrmLeaseEdit.ContractNo = Trim(Adodc1.Recordset.Fields(0))
FrmLeaseEdit.sCarNo = Trim(Adodc1.Recordset.Fields(1))
FrmLeaseEdit.sCustId = Trim(Adodc1.Recordset.Fields(2))
FrmLeaseEdit.txtContractNo = Trim(Adodc1.Recordset.Fields(0))
FrmLeaseEdit.txtCarNo = Trim(Adodc1.Recordset.Fields(1))
FrmLeaseEdit.txtCustId = Trim(Adodc1.Recordset.Fields(2))
FrmLeaseEdit.cob_Mode.Text = Trim(Adodc1.Recordset.Fields(4))
FrmLeaseEdit.txtLeaseTime = Trim(Adodc1.Recordset.Fields(3))
FrmLeaseEdit.txtReturnTime = Trim(Adodc1.Recordset.Fields(5))
If MyLease.GetInfo(Trim(Adodc1.Recordset.Fields(0))) = True Then
FrmLeaseEdit.txtWorkDays.Enabled = True
FrmLeaseEdit.Label13.Enabled = True
FrmLeaseEdit.Label14.Enabled = True
If Trim(MyLease.LeaseMode) = "日" Then
FrmLeaseEdit.txtWorkDays = MyLease.WorkDays
FrmLeaseEdit.txtWeekEndCount = MyLease.WeekEndCount
FrmLeaseEdit.txtWeekEndCount.Enabled = True
FrmLeaseEdit.Label13.Caption = "工作日"
FrmLeaseEdit.Label19.Enabled = True
FrmLeaseEdit.Label20.Enabled = True
ElseIf Trim(MyLease.LeaseMode) = "周" Then
FrmLeaseEdit.txtWorkDays = MyLease.WorkDays
FrmLeaseEdit.txtWeekEndCount = 0
FrmLeaseEdit.txtWeekEndCount.Enabled = False
FrmLeaseEdit.Label13.Caption = "周数"
FrmLeaseEdit.Label19.Enabled = False
FrmLeaseEdit.Label20.Enabled = False
ElseIf Trim(MyLease.LeaseMode) = "月" Then
FrmLeaseEdit.txtWorkDays = MyLease.WorkDays
FrmLeaseEdit.txtWeekEndCount = 0
FrmLeaseEdit.txtWeekEndCount.Enabled = False
FrmLeaseEdit.Label13.Caption = "月份数"
FrmLeaseEdit.Label19.Enabled = False
FrmLeaseEdit.Label20.Enabled = False
End If
FrmLeaseEdit.txtOutKM = MyLease.OutKM
FrmLeaseEdit.txtCost = MyLease.Total
FrmLeaseEdit.txtUserName = Trim(MyLease.UserName)
End If
FrmLeaseEdit.CarRefresh
FrmLeaseEdit.CarPriceRefresh
FrmLeaseEdit.CustomerRefresh
FrmLeaseEdit.Show 1
GridRefresh
End Sub
Private Sub Cmd_Check_Click()
If Adodc1.Recordset.EOF = True Then
MsgBox "请选择记录"
Exit Sub
End If
If MsgBox("是否审核确认了租赁合同", vbYesNo, "请确认") = vbNo Then
Exit Sub
End If
MyLease.Status = "出租审核"
MyLease.UpdateStatus (Adodc1.Recordset.Fields(0))
GridRefresh
End Sub
Private Sub Cmd_Del_Click()
If Adodc1.Recordset.EOF = True Then
MsgBox "请选择记录"
Exit Sub
End If
If MsgBox("是否确定要删除租赁信息", vbYesNo, "请确认") = vbNo Then
Exit Sub
End If
MyLease.Delete (Adodc1.Recordset.Fields(0))
MsgBox "成功", vbInformation
GridRefresh
End Sub
Private Sub Cmd_Print_Click()
If Adodc1.Recordset.EOF = True Then
MsgBox "请选择打印的合同"
Exit Sub
End If
Dim wdoc As Object
Dim wapp As Object
Dim mytable As Object
Dim arow As Object
Dim wordfile As String
wordfile = "Contract.doc"
If Dir(wordfile) = "" Then
MsgBox "打印文件Contract.doc丢失，请与管理员联系"
Exit Sub
End If
Set wdoc = CreateObject("Word.Application")
wdoc.Visible = True
Call wdoc.Documents.Open(App.Path + "\" + wordfile, ReadOnly:=True, Revert:=True)
Set mytable = wdoc.ActiveDocument.Tables(1)
MyLease.GetInfo (Trim(Adodc1.Recordset.Fields(0)))
mytable.Cell(2, 1).Range.Delete
mytable.Cell(2, 1).Range.InsertAfter "合同编号：" + Trim(Adodc1.Recordset.Fields(0))
mytable.Cell(2, 2).Range.Delete
mytable.Cell(2, 2).Range.InsertAfter "打印时间：" + Trim(Str(Now))
mytable.Cell(3, 2).Range.Delete
mytable.Cell(3, 2).Range.InsertAfter " 汽车租赁公司"
Set mytable = wdoc.ActiveDocument.Tables(2)
MyCar.GetInfo (Trim(MyLease.CarNo))
mytable.Cell(1, 2).Range.InsertAfter Trim(MyLease.CarNo)
mytable.Cell(1, 4).Range.InsertAfter Trim(MyCar.CarName)
mytable.Cell(2, 2).Range.InsertAfter Trim(MyType.GetTypeNames(Trim(Str(MyCar.TypeId))))
mytable.Cell(2, 4).Range.InsertAfter Trim(MyCar.Color)
mytable.Cell(3, 2).Range.InsertAfter Trim(MyCar.EngineNo)
mytable.Cell(3, 4).Range.InsertAfter Trim(MyCar.CarCase)
mytable.Cell(4, 2).Range.InsertAfter Trim(MyCar.TypeId)
mytable.Cell(4, 4).Range.InsertAfter Trim(MyType.GetTypeNames(Trim(MyCar.InsurType)))
mytable.Cell(5, 2).Range.InsertAfter Trim(MyCar.InsurSdate)
mytable.Cell(5, 4).Range.InsertAfter Trim(MyCar.InsurEdate)
Set mytable = wdoc.ActiveDocument.Tables(3)
mytable.Cell(1, 2).Range.InsertAfter Trim(Str(MyLease.Deposit))
mytable.Cell(1, 4).Range.InsertAfter Trim(Str(MyCar.DayKM))
sMode = Trim(MyLease.LeaseMode)
mytable.Cell(2, 2).Range.InsertAfter sMode
mytable.Cell(2, 4).Range.InsertAfter Trim(Str(MyLease.OPrice2))
mytable.Cell(3, 2).Range.InsertAfter Trim(Str(MyLease.Price1))
mytable.Cell(3, 4).Range.InsertAfter Trim(Str(MyLease.OPrice1))
mytable.Cell(4, 2).Range.InsertAfter Trim(Str(MyLease.WorkDays))
mytable.Cell(4, 4).Range.InsertAfter Trim(Str(MyLease.Rate))
mytable.Cell(3, 1).Range.Delete
mytable.Cell(4, 1).Range.Delete
If sMode = "日" Then
mytable.Cell(3, 1).Range.InsertAfter "每日租金（元/日）"
mytable.Cell(4, 1).Range.InsertAfter "租赁天数（工作日）"
mytable.Cell(5, 2).Range.InsertAfter Trim(Str(MyLease.Price2))
mytable.Cell(5, 4).Range.InsertAfter Trim(Str(MyLease.WeekEndCount))
ElseIf sMode = "周" Then
mytable.Cell(3, 1).Range.InsertAfter "每周租金（元/周）"
mytable.Cell(4, 1).Range.InsertAfter "租赁周数"
mytable.Cell(5, 1).Range.Delete
mytable.Rows(5).Select
wdoc.Selection.Cut
ElseIf sMode = "月" Then
mytable.Cell(3, 1).Range.InsertAfter "每月租金（元/月）"
mytable.Cell(4, 1).Range.InsertAfter "租赁月数"
mytable.Rows(5).Select
wdoc.Selection.Cut
End If
MyCustomer.GetInfo (Trim(MyLease.CustId))
Set mytable = wdoc.ActiveDocument.Tables(4)
mytable.Cell(1, 2).Range.InsertAfter Trim(MyLease.CustId)
mytable.Cell(1, 4).Range.InsertAfter Trim(MyCustomer.Name)
mytable.Cell(2, 2).Range.InsertAfter Trim(MyCustomer.Sex)
mytable.Cell(2, 4).Range.InsertAfter Trim(Str(MyCustomer.Age))
mytable.Cell(3, 2).Range.InsertAfter Trim(MyCustomer.IdCard)
mytable.Cell(3, 4).Range.InsertAfter Trim(MyCustomer.Telephone)
mytable.Cell(4, 2).Range.InsertAfter Trim(MyCustomer.WorkPlace)
mytable.Cell(4, 4).Range.InsertAfter Trim(MyCustomer.Address)
mytable.Cell(5, 2).Range.InsertAfter Trim(MyCustomer.LicenseNo)
mytable.Cell(5, 4).Range.InsertAfter Trim(MyCustomer.LicenseType)
mytable.Cell(6, 2).Range.InsertAfter Trim(MyCustomer.GetDate)
mytable.Cell(6, 4).Range.InsertAfter Trim(MyCustomer.ExpiredDate)
mytable.Cell(7, 2).Range.InsertAfter Trim(MyCustomer.Certificate)
mytable.Cell(7, 4).Range.InsertAfter Trim(MyCustomer.Warrantor)
mytable.Cell(8, 2).Range.InsertAfter Trim(MyCustomer.WIdCard)
mytable.Cell(8, 4).Range.InsertAfter Trim(MyCustomer.WWorkPlace)
MyCustomer.GetInfo (Trim(MyLease.CustId))
Set mytable = wdoc.ActiveDocument.Tables(5)
mytable.Cell(1, 2).Range.InsertAfter Trim(MyLease.LeaseTime)
mytable.Cell(1, 4).Range.InsertAfter Trim(MyLease.ReturnTime)
mytable.Cell(2, 2).Range.InsertAfter Trim(Str(MyLease.OutKM))
wdoc.ActiveDocument.PrintOut
MsgBox "打印作业已提交，打印完成后按 确定 结束"
wdoc.Quit (0)
Set wdoc = Nothing
End Sub
Private Sub cob_Status_Click()
GridRefresh
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If Trim(Adodc1.Recordset.Fields(6)) = "出租" Then
Cmd_Modi.Enabled = True
Cmd_Del.Enabled = True
Cmd_Check.Enabled = True
Cmd_Cont.Enabled = False
Cmd_ContCheck.Enabled = False
Cmd_Print.Enabled = False
ElseIf Trim(Adodc1.Recordset.Fields(6)) = "出租审核" Then
Cmd_Modi.Enabled = False
Cmd_Del.Enabled = False
Cmd_Check.Enabled = False
Cmd_Cont.Enabled = True
Cmd_ContCheck.Enabled = False
Cmd_Print.Enabled = True
ElseIf Trim(Adodc1.Recordset.Fields(6)) = "续租" Then
Cmd_Modi.Enabled = False
Cmd_Del.Enabled = False
Cmd_Check.Enabled = False
Cmd_Cont.Enabled = True
Cmd_ContCheck.Enabled = True
Cmd_Print.Enabled = False
ElseIf Trim(Adodc1.Recordset.Fields(6)) = "续租审核" Then
Cmd_Modi.Enabled = False
Cmd_Del.Enabled = False
Cmd_Check.Enabled = False
Cmd_Cont.Enabled = False
Cmd_ContCheck.Enabled = False
Cmd_Print.Enabled = True
ElseIf Trim(Adodc1.Recordset.Fields(6)) = "归还" Then
Cmd_Modi.Enabled = False
Cmd_Del.Enabled = False
Cmd_Check.Enabled = False
Cmd_Cont.Enabled = False
Cmd_ContCheck.Enabled = False
Cmd_Print.Enabled = False
ElseIf Trim(Adodc1.Recordset.Fields(6)) = "归还审核" Then
Cmd_Modi.Enabled = False
Cmd_Del.Enabled = False
Cmd_Check.Enabled = False
Cmd_Cont.Enabled = False
Cmd_ContCheck.Enabled = False
Cmd_Return.Enabled = False
Cmd_Print.Enabled = True
End If
End Sub
Private Sub Form_Load()
GridRefresh
cob_Status.AddItem "出租", 0
cob_Status.AddItem "出租审核", 1
cob_Status.AddItem "续租", 2
cob_Status.AddItem "续租审核", 3
cob_Status.AddItem "归还", 4
cob_Status.AddItem "归还审核", 5
cob_Status.AddItem "全部", 6
Cmd_Modi.Enabled = False
Cmd_Del.Enabled = False
Cmd_Check.Enabled = False
Cmd_Cont.Enabled = False
Cmd_ContCheck.Enabled = False
Cmd_Print.Enabled = False
End Sub
Private Sub GridRefresh()
If Trim(cob_Status.Text) = "" Or Trim(cob_Status.Text) = "全部" Then
SchCnd = ""
Else
SchCnd = " AND Status='" + Trim(cob_Status.Text) + "'"
End If
Adodc1.ConnectionString = Conn
Adodc1.RecordSource = "SELECT ContractNo AS 合同编号,CarNo AS 车牌号," _
+ "CustId AS 客户号,LeaseTime AS 租赁时间,LeaseMode AS 租赁模式, " _
+ "ReturnTime AS 归还时间,Status AS 状态," _
+ "IIF([Status]='日',Price1*WorkDays+Price2*WeekEndCount,Price1*WorkDays) AS 租车费用," _
+ "OtherCost AS 其他费用,Payment AS 实际支付,Deposit AS 押金,Total AS 总额 " _
+ " FROM Lease WHERE Status NOT IN ('归还','结算审核') " + SchCnd _
+ " ORDER BY ReturnTime DESC,LeaseTime DESC"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(0).Width = 1000
DataGrid1.Columns(1).Width = 1000
DataGrid1.Columns(2).Width = 1000
DataGrid1.Columns(3).Width = 1800
DataGrid1.Columns(4).Width = 1000
DataGrid1.Columns(5).Width = 1800
DataGrid1.Columns(6).Width = 1000
DataGrid1.Columns(7).Width = 1000
DataGrid1.Columns(8).Width = 1000
DataGrid1.Columns(9).Width = 1000
DataGrid1.Columns(10).Width = 1000
DataGrid1.Columns(11).Width = 1000
End Sub