huaxia.pas

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

unit HuaXia;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, DBClient;

type
  THuaXiaData = class(TDataModule)
    QueryClient: TQuery;
    TableClient: TTable;
    DataSourceClient: TDataSource;
    Databasehx: TDatabase;
    QueryCar: TQuery;
    DataSourceCar: TDataSource;
    TableCar: TTable;
    QueryLeaseCar: TQuery;
    DataSourceLeaseCar: TDataSource;
    QueryXinYong: TQuery;
    DataSourceXinyong: TDataSource;
    QueryXinYongrecord_number: TFloatField;
    QueryXinYongid_number: TStringField;
    QueryXinYongcar_card_number: TStringField;
    QueryXinYongcar_type: TStringField;
    QueryXinYongengine_number: TStringField;
    QueryXinYongcar_number: TStringField;
    QueryXinYongcar_color: TStringField;
    QueryXinYongbad_record_tag: TStringField;
    QueryXinYongbegin_date: TDateTimeField;
    QueryXinYongreturn_date: TDateTimeField;
    QueryXinYongreal_return_date: TDateTimeField;
    QueryComp: TQuery;
    DataSourceComp: TDataSource;
    QueryLeaseCarid_number: TStringField;
    QueryLeaseCarlease_comp_code: TStringField;
    QueryLeaseCarcar_card_number: TStringField;
    QueryLeaseCarcar_type: TStringField;
    QueryLeaseCarengine_number: TStringField;
    QueryLeaseCarcar_number: TStringField;
    QueryLeaseCarcar_color: TStringField;
    QueryLeaseCarlease_way: TStringField;
    QueryLeaseCarbegin_date: TDateTimeField;
    QueryLeaseCarreturn_date: TDateTimeField;
    QueryLeaseCarreal_return_date: TDateTimeField;
    QueryLeaseCarcontinue_date: TDateTimeField;
    QueryLeaseCarcontinue_days: TIntegerField;
    QueryLeaseCarnote: TStringField;
    QueryLeaseCarbad_record_tag: TStringField;
    QueryLeaseCarrecord_number: TFloatField;
    QueryLeaseCarcomp_code: TStringField;
    QueryLeaseCarsite_code: TStringField;
    QueryGongGao: TQuery;
    DataSourceGongGao: TDataSource;
    QueryGonggaoFabu: TQuery;
    DataSourceGonggaoFabu: TDataSource;
    QueryShuaKa: TQuery;
    TableShuKa: TTable;
    LocalDataSet: TTable;
    DataSourceSite: TDataSource;
    TableSite: TTable;
    TableUser: TTable;
    DataSourceUser: TDataSource;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query2: TQuery;
    DataSource2: TDataSource;
    TableCarrecord_number: TFloatField;
    TableCarcomp_code: TStringField;
    TableCarsite_code: TStringField;
    TableCarid_number: TStringField;
    TableCarlease_comp_code: TStringField;
    TableCarcar_card_number: TStringField;
    TableCarcar_type: TStringField;
    TableCarengine_number: TStringField;
    TableCarcar_number: TStringField;
    TableCarcar_color: TStringField;
    TableCarlease_way: TStringField;
    TableCarbad_record_tag: TStringField;
    TableCarbegin_date: TDateTimeField;
    TableCarreturn_date: TDateTimeField;
    TableCarreal_return_date: TDateTimeField;
    TableCarcontinue_date: TDateTimeField;
    TableCarcontinue_days: TIntegerField;
    TableCarnote: TStringField;
    TableCarclient_name: TStringField;
    QueryLeaseCarclient_name: TStringField;
    ZongHeQuery: TQuery;
    ZongHeQuerycar_type: TStringField;
    ZongHeQuerycar_color: TStringField;
    ZongHeQuerybegin_date: TDateTimeField;
    ZongHeQueryreal_return_date: TDateTimeField;
    ZongHeQueryreturn_date: TDateTimeField;
    ZongHeQuerynote: TStringField;
    ZongHeDataSource: TDataSource;
    ZongHeQuerysite_name: TStringField;
    TableHei: TQuery;
    DataSourceHei: TDataSource;
    QueryHei: TQuery;
    DataSourceHeiDan: TDataSource;
    BackUpData: TClientDataSet;
    procedure DataModuleCreate(Sender: TObject);
    procedure QueryCarBeforePost(DataSet: TDataSet);
    procedure TableUserBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HuaXiaData: THuaXiaData;

implementation

uses Shenfen, Zulin, ErrorHit,Login;

{uses Shenfen, Zulin;}

{$R *.DFM}






procedure THuaXiaData.DataModuleCreate(Sender: TObject);
begin
Try
with Databasehx do
     begin
     Connected := False;
     Params.Values['USER NAME'] := 'qiao';
     Params.Values['PASSWORD'] := 'qiao';
     LoginPrompt := False;
     Connected := True;
    end;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure THuaXiaData.QueryCarBeforePost(DataSet: TDataSet);
begin
Try
If ZuLinForm.DbEdit2.Text='' Then
   Begin
   ErrorForm.ShowModal;
   ZulinForm.ActiveControl:=ZuLinForm.DbEdit2;
   End
Else
   Begin
   QueryCar.FieldByName('comp_code').AsString:=Login.CodeComp;
   QueryCar.FieldByName('site_code').AsString:=Login.CodeSite;
   QueryCar.FieldByName('id_number').AsString:=ShenFenForm.EditIdCode.Text;
   QueryCar.FieldByName('client_name').AsString:=ShenFenForm.EditName.Text;
   QueryCar.FieldByName('begin_date').Value:=ZulinForm.DatePickerBegin.Date;
   QueryCar.FieldByName('return_date').Value:=ZulinForm.DatePickerReturn.Date;
   QueryCar.FieldByName('real_return_date').Value:=Null;
   QueryCar.FieldByName('bad_record_tag').AsString:='-1';
   End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure THuaXiaData.TableUserBeforePost(DataSet: TDataSet);
begin
TableUser.FieldByName('comp_code').AsString:=Login.CodeComp;
end;

end.