📄 returnlate.pas

📁 本系统为演示Delphi的功能而开发设计
💻 PAS
字号:
unit returnlate;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Dialogs,
     Grids, DBGrids, ComCtrls, Spin, ExtCtrls, DBCtrls, Buttons, Db, DBTables;

type
  TFormZongHe = class(TForm)
    GroupBox1: TGroupBox;
    ButtonStatic: TButton;
    ButtonPrint: TButton;
    ButtonClose: TButton;
    DBGrid1: TDBGrid;
    ComboBoxType: TComboBox;
    ComboBoxColor: TComboBox;
    CheckBoxType: TCheckBox;
    CheckBoxColor: TCheckBox;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    DateTimePickerBegin: TDateTimePicker;
    DateTimePickerEnd: TDateTimePicker;
    GroupBox3: TGroupBox;
    DBLookupComboBoxComp: TDBLookupComboBox;
    GroupBox4: TGroupBox;
    RadioButtonWeihuanJiLu: TRadioButton;
    RadioButtonZuCheJiLu: TRadioButton;
    GroupBox5: TGroupBox;
    RadioButtonHuanCheJiLu: TRadioButton;
    GroupBox6: TGroupBox;
    Label2: TLabel;
    SpinEditYiShangTianShu: TSpinEdit;
    SpinEditYiXiaTianShu: TSpinEdit;
    Label1: TLabel;
    CheckBoxYiXiaTianShu: TCheckBox;
    CheckBoxYishangTianShu: TCheckBox;
    CheckBoxDanwei: TCheckBox;
    CheckBoxWay: TCheckBox;
    ComboBoxWay: TComboBox;
    SpinEditYuQiYiShang: TSpinEdit;
    Label4: TLabel;
    SpinEditYuQiYiXia: TSpinEdit;
    Label3: TLabel;
    CheckBoxYuQiYiXia: TCheckBox;
    CheckBoxYuQiYiShang: TCheckBox;
    procedure ButtonCloseClick(Sender: TObject);
    procedure ButtonPrintClick(Sender: TObject);
    procedure ButtonStaticClick(Sender: TObject);
    procedure CheckBoxDanweiExit(Sender: TObject);
    procedure CheckBoxTypeExit(Sender: TObject);
    procedure CheckBoxColorExit(Sender: TObject);
    procedure CheckBoxWayClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure CheckBoxYiXiaTianShuClick(Sender: TObject);
    procedure CheckBoxYishangTianShuClick(Sender: TObject);
    procedure CheckBoxYuQiYiXiaClick(Sender: TObject);
    procedure CheckBoxYuQiYiShangClick(Sender: TObject);
    procedure SpinEditYiXiaTianShuChange(Sender: TObject);
    procedure SpinEditYiShangTianShuChange(Sender: TObject);
    procedure DateTimePickerBeginExit(Sender: TObject);
    procedure DateTimePickerEndExit(Sender: TObject);
    procedure SpinEditYuQiYiXiaChange(Sender: TObject);
    procedure SpinEditYuQiYiShangChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBoxTypeExit(Sender: TObject);
    procedure ComboBoxColorExit(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormZongHe: TFormZongHe;
  fromdate,todate:tdatetime;
  style,color,day,company,site:string;

implementation
uses huaxia,reyuqi;
{$R *.DFM}

procedure TFormZongHe.ButtonCloseClick(Sender: TObject);
begin
Close;
end;

procedure TFormZongHe.ButtonPrintClick(Sender: TObject);
begin
    yuqireport.quickrep1.print;
end;

procedure TFormZongHe.ButtonStaticClick(Sender: TObject);
begin
Try
     With HuaXiaData.ZongHeQuery Do
     Begin
          Close;
          Unprepare;
          With Sql Do
          Begin
           Clear;
           Add('select car_type,car_color,lease_way,bad_record_tag,comp_name,begin_date,real_return_date,return_date,lease_car_info.note');
           Add('from lease_car_info,comp_info where lease_car_info.comp_code=comp_info.comp_code');
           If CheckBoxType.Checked=True Then
              Add(' and car_type=:type');
           If CheckBoxcolor.Checked=True Then
              Add(' and car_color=:color');
           If CheckBoxDanwei.Checked=True Then
              Add(' and comp_name=:name');
           If CheckBoxWay.Checked=True Then
              Add(' and lease_way=:way');
           If CheckBoxYiXiaTianShu.Checked=True Then
              Add(' and real_return_date-begin_date<=:yixia');
           If CheckBoxYiShangTianShu.Checked=True Then
              Add(' and real_return_date-begin_date>=:yishang');
           If CheckBoxYuQiYiXia.Checked=True Then
              Add(' and real_return_date-return_date<=:yuqiyixia');
           If CheckBoxYuQiYiShang.Checked=True Then
              Add(' and real_return_date-return_date>=:yuqiyishang');
           If RadioButtonZuCheJiLu.Checked=True Then
              Add(' and begin_date>=:begindate and begin_date<=:enddate');
           If RadioButtonHuanCheJiLu.Checked=True Then
              Add(' and real_return_date>=:begindate and real_return_date<=:enddate');
           If RadioButtonWeihuanJiLu.Checked=True Then
              Begin
              Add(' and begin_date>=:begindate and begin_date<=:enddate');
              Add(' and (real_return_date>=:enddate or bad_record_tag<>:flag)');
              End;
          End;
         RequestLive:=False;
         If CheckBoxType.Checked=True Then
            ParamByName('type').AsString:=ComboBoxType.text;
         If CheckBoxcolor.Checked=True Then
            ParamByName('color').AsString:=ComboBoxColor.text;
         If CheckBoxDanwei.Checked=True Then
            ParamByName('name').AsString:=DBLookupComboBoxComp.text;
         If CheckBoxWay.Checked=True Then
            ParamByName('way').AsString:=ComboBoxWay.text;
         If CheckBoxYiXiaTianShu.Checked=True Then
            ParamByName('yixia').Value:=SpinEditYiXiaTianShu.Value;
         If CheckBoxYiShangTianShu.Checked=True Then
            ParamByName('yishang').Value:=SpinEditYiShangTianShu.Value;
         If CheckBoxYuQiYiXia.Checked=True Then
            ParamByName('yuqiyixia').Value:=SpinEditYuQiYiXia.Value;
         If CheckBoxYuQiYiShang.Checked=True Then
            ParamByName('yuqiyishang').Value:=SpinEditYuQiYiShang.Value;
         If RadioButtonWeihuanJiLu.Checked=True Then
            ParamByName('flag').AsString:='00';
         DateTimePickerBegin.Time:=StrToTime('0:00:00');
         DateTimePickerEnd.Time:=StrToTime('23:59:59');
         ParamByName('begindate').Value:=DateTimePickerBegin.DateTime;
         ParamByName('enddate').Value:=DateTimePickerEnd.DateTime;
         prepare;
         Open;
     End;
     FormZongHe.Caption:='租车信息综合查询(满足查询条件的记录共有'+IntToStr(HuaXiaData.ZongHeQuery.RecordCount)+'条)';
Except
     On E:Exception Do
     Begin
     ShowMessage('数据库连接失败,请检验网络连接是否正常');
     Exit;
     End;
End;
end;

procedure TFormZongHe.CheckBoxDanweiExit(Sender: TObject);
begin
    if checkboxDanwei.checked=true then
       Begin
       HuaXiaData.CompTable.Active:=True;
       DbLookupComboBoxComp.Enabled:=True;
       End
    else
       Begin
       DbLookupComboBoxComp.Enabled:=False;
       HuaXiaData.CompTable.Active:=False;
       End;
end;

procedure TFormZongHe.CheckBoxTypeExit(Sender: TObject);
begin
   If CheckBoxType.Checked=True then
      ComboBoxType.Enabled:=True
   Else
      Begin
      ComboBoxType.Text:='';
      ComboBoxType.Enabled:=False;
      End;
end;

procedure TFormZongHe.CheckBoxColorExit(Sender: TObject);
begin
   If CheckBoxColor.Checked=True Then
      ComboBoxColor.Enabled:=True
   Else
      Begin
      ComboBoxColor.Text:='';
      ComboBoxColor.Enabled:=False;
      End;
end;


procedure TFormZongHe.CheckBoxWayClick(Sender: TObject);
begin
   If CheckBoxWay.Checked=True Then
      ComboBoxWay.Enabled:=True
   Else
      Begin
      ComboBoxWay.Text:='';
      ComboBoxWay.Enabled:=False;
      End;
end;

procedure TFormZongHe.FormActivate(Sender: TObject);
begin
Try
RadioButtonZuCheJiLu.Checked:=True;
DateTimePickerBegin.DateTime:=Now-30;
DateTimePickerEnd.DateTime:=Now;
ComboBoxType.Items.LoadFromFile('Type.Dat');
ComboBoxColor.Items.LoadFromFile('Color.Dat');
Caption:='租车信息综合查询';
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TFormZongHe.CheckBoxYiXiaTianShuClick(Sender: TObject);
begin
   If CheckBoxYiXiaTianShu.Checked=True Then
      SpinEditYiXiaTianShu.Enabled:=True
   Else
      SpinEditYiXiaTianShu.Enabled:=False;
end;

procedure TFormZongHe.CheckBoxYishangTianShuClick(Sender: TObject);
begin
   If CheckBoxYiShangTianShu.Checked=True Then
      SpinEditYiShangTianShu.Enabled:=True
   Else
      SpinEditYiShangTianShu.Enabled:=False;
end;

procedure TFormZongHe.CheckBoxYuQiYiXiaClick(Sender: TObject);
begin
   If CheckBoxYuQiYiXia.Checked=True Then
      SpinEditYuQiYiXia.Enabled:=True
   Else
      SpinEditYuQiYiXia.Enabled:=False;
end;

procedure TFormZongHe.CheckBoxYuQiYiShangClick(Sender: TObject);
begin
   If CheckBoxYuQiYiShang.Checked=True Then
      SpinEditYuQiYiShang.Enabled:=True
   Else
      SpinEditYuQiYiShang.Enabled:=False;
end;

procedure TFormZongHe.SpinEditYiXiaTianShuChange(Sender: TObject);
begin
If (SpinEditYiXiaTianShu.Value<SpinEditYiShangTianShu.Value) And (SpinEditYiShangTianShu.Enabled=True) Then
   ShowMessage('租车天数上限应大于租车天数下限');
end;

procedure TFormZongHe.SpinEditYiShangTianShuChange(Sender: TObject);
begin
If (SpinEditYiXiaTianShu.Value<SpinEditYiShangTianShu.Value) And (SpinEditYiXiaTianShu.Enabled=True) Then
   ShowMessage('租车天数上限应大于租车天数下限');
end;

procedure TFormZongHe.DateTimePickerBeginExit(Sender: TObject);
begin
If DateTimePickerEnd.DateTime<DateTimePickerBegin.DateTime Then
   Begin
   ShowMessage('终止时间应大于起始时间');
   Exit;
   End;
end;

procedure TFormZongHe.DateTimePickerEndExit(Sender: TObject);
begin
If DateTimePickerEnd.DateTime<DateTimePickerBegin.DateTime Then
   Begin
   ShowMessage('终止时间应大于起始时间');
   Exit;
   End;
end;

procedure TFormZongHe.SpinEditYuQiYiXiaChange(Sender: TObject);
begin
If (SpinEditYuQiYiXia.Value<SpinEditYuQiYiShang.Value) And (SpinEditYuQiYiShang.Enabled=True) Then
   ShowMessage('逾期还车天数上限应大于逾期还车天数下限');
end;

procedure TFormZongHe.SpinEditYuQiYiShangChange(Sender: TObject);
begin
If (SpinEditYuQiYiXia.Value<SpinEditYuQiYiShang.Value) And (SpinEditYuQiYiXia.Enabled=True) Then
   ShowMessage('逾期还车天数上限应大于逾期还车天数下限');
end;

procedure TFormZongHe.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Try
ComboBoxType.Items.SaveToFile('Type.Dat');
ComboBoxColor.Items.SaveToFile('Color.Dat');
HuaXiaData.ZongHeQuery.Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;

end;

procedure TFormZongHe.ComboBoxTypeExit(Sender: TObject);
begin
Try
  If Copy(ComboBoxType.Text,1,1)<>' ' Then
  Begin
  If StrPos(Pchar(ComboBoxType.Items.Text),Pchar(' '+ComboBoxType.Text+' '))=Nil Then
     ComboBoxType.Items.Add(' '+ComboBoxType.Text+' ');
  End
  Else
  Begin
  If StrPos(Pchar(ComboBoxType.Items.Text),Pchar(ComboBoxType.Text))=Nil Then
     ComboBoxType.Items.Add(ComboBoxType.Text);
  End;
Except
;
End;
end;

procedure TFormZongHe.ComboBoxColorExit(Sender: TObject);
begin
Try
  If Copy(ComboBoxColor.Text,1,1)<>' ' Then
  Begin
  If StrPos(Pchar(ComboBoxColor.Items.Text),Pchar(' '+ComboBoxColor.Text+' '))=Nil Then
     ComboBoxType.Items.Add(' '+ComboBoxColor.Text+' ');
  End
  Else
  Begin
  If StrPos(Pchar(ComboBoxColor.Items.Text),Pchar(ComboBoxColor.Text))=Nil Then
     ComboBoxType.Items.Add(ComboBoxColor.Text);
  End;
Except
;
End;
end;

procedure TFormZongHe.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 End;
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -