yuqi.pas

本系统为演示Delphi的功能而开发设计

unit yuqi;

interface

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

type
  TYuqiForm = class(TForm)
    ButtonStatic: TButton;
    ButtonClose: TButton;
    DBGrid1: TDBGrid;
    Label3: TLabel;
    SpinEdit1: TSpinEdit;
    Label5: TLabel;
    procedure ButtonCloseClick(Sender: TObject);
    procedure ButtonStaticClick(Sender: TObject);
    procedure ButtonPrintClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YuqiForm: TYuqiForm;
  day,company,site:string;

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

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


procedure TYuqiForm.ButtonStaticClick(Sender: TObject);
begin
Try
If Login.Secruity='租赁公司管理' Then
Begin
With HuaXiaData.QueryLeaseCar Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
       Clear;
       Add('Select * From lease_car_info ');
       Add('where return_date<:to_date And bad_record_tag<>:tag');
       Add(' and comp_code=:compcode');
     end;
     RequestLive:=True;
     ParamByName('to_date').Asinteger:=Trunc(Now)-SpinEdit1.Value-1;
     ParamByName('tag').AsString:='00';
     ParamByName('compcode').AsString:=Login.CodeComp;
     prepare;
     Open;
     Edit;
     End;
End
Else
Begin
With HuaXiaData.QueryLeaseCar Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
       Clear;
       Add('Select * From lease_car_info ');
       Add('where return_date<:to_date And bad_record_tag<>:tag');
       Add(' and comp_code=:compcode and site_code=:sitecode');
       { and Login_name=:name');}
     end;
     RequestLive:=True;
     ParamByName('to_date').Asinteger:=Trunc(Now)-SpinEdit1.Value-1;
     ParamByName('tag').AsString:='00';
     ParamByName('compcode').AsString:=Login.CodeComp;
     ParamByName('sitecode').AsString:=Login.CodeSite;
     {ParamByName('name').AsString:=Login.LoginName;}
     prepare;
     Open;
     Edit;
     End;
End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;


procedure TYuqiForm.ButtonPrintClick(Sender: TObject);
begin
   YuQiForm.print;
end;

procedure TYuqiForm.FormActivate(Sender: TObject);
begin
Try
SpinEdit1.Value:=3;
If Login.Secruity='租赁公司管理' Then
Begin
With HuaXiaData.QueryLeaseCar Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
       Clear;
       Add('Select * From lease_car_info ');
       Add('where return_date<:to_date And bad_record_tag<>:tag');
       Add(' and comp_code=:compcode');
     end;
     RequestLive:=True;
     ParamByName('to_date').Asinteger:=Trunc(Now)-SpinEdit1.Value-1;
     ParamByName('tag').AsString:='00';
     ParamByName('compcode').AsString:=Login.CodeComp;
     prepare;
     Open;
     Edit;
     End;
End
Else
Begin
With HuaXiaData.QueryLeaseCar Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
       Clear;
       Add('Select * From lease_car_info ');
       Add('where return_date<:to_date And bad_record_tag<>:tag');
       Add(' and comp_code=:compcode and site_code=:sitecode');
       { and Login_name=:name');}
     end;
     RequestLive:=True;
     ParamByName('to_date').Asinteger:=Trunc(Now)-SpinEdit1.Value-1;
     ParamByName('tag').AsString:='00';
     ParamByName('compcode').AsString:=Login.CodeComp;
     ParamByName('sitecode').AsString:=Login.CodeSite;
     {ParamByName('name').AsString:=Login.LoginName;}
     prepare;
     Open;
     Edit;
     End;
End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;


procedure TYuqiForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
  End;

end;

procedure TYuqiForm.DBGrid1DblClick(Sender: TObject);
begin
YuQiChuLiForm.ShowModal;
end;

procedure TYuqiForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Try
HuaXiaData.QueryLeaseCar.Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

end.