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
这是代码