huaxia.pas

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

unit HuaXia;

interface

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

type
  THuaXiaData = class(TDataModule)
    Databasehx: TDatabase;
    QueryShengAll: TQuery;
    QueryJiangTop: TQuery;
    QueryJiangAll: TQuery;
    DataSourcePaiHang: TDataSource;
    CompTable: TTable;
    CompDataSource: TDataSource;
    ZongHeDataSource: TDataSource;
    QueryYueBao: TQuery;
    QueryYueBaocomp_code: TStringField;
    QueryYueBaosite_code: TStringField;
    QueryYueBaobrush_mach_no: TStringField;
    QueryYueBaoamount: TIntegerField;
    QueryYueBaocomp_name: TStringField;
    DataSourceYueBao: TDataSource;
    QueryYueBaoHuiZong: TQuery;
    QueryYueBaoHuiZongcomp_code: TStringField;
    QueryYueBaoHuiZongtj11: TIntegerField;
    QueryMingXi: TQuery;
    QueryMingXicomp_code: TStringField;
    QueryMingXisite_code: TStringField;
    QueryMingXibrush_mach_no: TStringField;
    QueryMingXibrush_date: TDateTimeField;
    QueryMingXicomp_name: TStringField;
    DataSourceMingXi: TDataSource;
    QueryMingXiHuiZong: TQuery;
    QueryMingXiHuiZongcomp_code: TStringField;
    QueryMingXiHuiZongamount: TIntegerField;
    ZongHeQuery: TQuery;
    clientTable: TTable;
    ClientDataSource: TDataSource;
    QueryClient: TQuery;
    DataSourceClient: TDataSource;
    QueryDanwei: TQuery;
    icbrush: TTable;
    qs_DataSource1: TDataSource;
    QueryCompYear: TQuery;
    QueryCompYearCOLUMN3: TIntegerField;
    QueryCompYearCOUNT_OF_brush_date: TIntegerField;
    QueryCompYearcomp_name: TStringField;
    QueryCompMonth: TQuery;
    QueryCompMonthCOLUMN3: TIntegerField;
    QueryCompMonthCOLUMN4: TIntegerField;
    QueryCompMonthCOUNT_OF_brush_date: TIntegerField;
    QueryCompMonthcomp_name: TStringField;
    QueryCompDay: TQuery;
    QueryCompDaydate: TStringField;
    QueryCompDayamount: TIntegerField;
    QueryCompDaycomp_name: TStringField;
    DataSourceQuShi: TDataSource;
    QueryAllYear: TQuery;
    QueryAllMonth: TQuery;
    QueryAllDay: TQuery;
    StringField8: TStringField;
    IntegerField6: TIntegerField;
    QueryYueBaosite_name: TStringField;
    QueryAllYearamount: TIntegerField;
    QueryAllYearyear: TIntegerField;
    QueryAllMonthamount: TIntegerField;
    QueryAllMonthyyear: TIntegerField;
    QueryAllMonthmonth: TIntegerField;
    QueryClientid_number: TStringField;
    QueryClientclient_name: TStringField;
    QueryClientcomp_name: TStringField;
    QueryClientcar_type: TStringField;
    QueryClientbegin_date: TDateTimeField;
    QueryClientreal_return_date: TDateTimeField;
    QueryClientreturn_date: TDateTimeField;
    QueryClientnote: TStringField;
    DataSourceDanWei: TDataSource;
    QueryDanweilease_comp_name: TStringField;
    QueryDanweicar_type: TStringField;
    QueryDanweibegin_date: TDateTimeField;
    QueryDanweireal_return_date: TDateTimeField;
    QueryDanweireturn_date: TDateTimeField;
    QueryDanweinote: TStringField;
    QueryDanweicomp_name: TStringField;
    ZongHeQuerycar_type: TStringField;
    ZongHeQuerycar_color: TStringField;
    ZongHeQuerycomp_name: TStringField;
    ZongHeQuerybegin_date: TDateTimeField;
    ZongHeQueryreturn_date: TDateTimeField;
    ZongHeQuerynote: TStringField;
    ZongHeQueryreal_return_date: TDateTimeField;
    QueryShengTop: TQuery;
    QueryRiMingxi: TQuery;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    DateTimeField1: TDateTimeField;
    StringField4: TStringField;
    QueryRiMingXiHuiZong: TQuery;
    StringField5: TStringField;
    IntegerField1: TIntegerField;
    DataSourceRiMingXi: TDataSource;
    QueryRiBao: TQuery;
    StringField6: TStringField;
    StringField7: TStringField;
    StringField9: TStringField;
    IntegerField2: TIntegerField;
    StringField10: TStringField;
    StringField11: TStringField;
    QueryRiBaoHuiZong: TQuery;
    StringField12: TStringField;
    IntegerField3: TIntegerField;
    DataSourceRiBao: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HuaXiaData: THuaXiaData;

implementation

{uses Shenfen, Zulin;}

{$R *.DFM}






procedure THuaXiaData.DataModuleCreate(Sender: TObject);
begin
with Databasehx do
     begin
     Connected := False;
     Params.Values['USER NAME'] := 'qiao';
     Params.Values['PASSWORD'] := 'qiao';
     LoginPrompt := False;
     Connected := True;
     end;
end;


end.