dm.pas

来自「管理车队用车记录」· PAS 代码 · 共 91 行

unit DM;

interface

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

type
  TForm_dm = class(TForm)
    ADOConnection: TADOConnection;
    ADOTable_driver: TADOTable;
    ADOTable_car: TADOTable;
    ADOTable_repair: TADOTable;
    ADOTable_oil: TADOTable;
    ADOTable_car_out: TADOTable;
    ADOTable_driver_car: TADOTable;
    ADOTable_users: TADOTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    ADOQuery_driver: TADOQuery;
    ADOQuery_car: TADOQuery;
    ADOTable_params: TADOTable;
    ADOTable_employer: TADOTable;
    ADOQuery_signers: TADOQuery;
    ADOTable_type1: TADOTable;
    ADOTable_type2: TADOTable;
    ADOTable_begin1: TADOTable;
    ADOTable_end1: TADOTable;
    ADOCommand1: TADOCommand;
    ADOTable_signers: TADOTable;
    ADOtable_repairspot: TADOTable;
    ADOTable_repairitem: TADOTable;
    ADOTable_oilspot: TADOTable;
    ADOTable_oiltype: TADOTable;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    ADOQuery_carout: TADOQuery;
    ADOQuery_common: TADOQuery;
    DataSource8: TDataSource;
    ADOQuery_oil: TADOQuery;
    DataSource9: TDataSource;
    ADOQuery_repair: TADOQuery;
    DataSource10: TDataSource;
    ADOQuery_common2: TADOQuery;
    DataSource11: TDataSource;
    ADOTable_shouru: TADOTable;
    DataSource12: TDataSource;
    ADOTable_shouru1: TADOTable;
    procedure FormCreate(Sender: TObject);
    procedure ADOQuery_caroutAfterOpen(DataSet: TDataSet);
    procedure ADOTable_car_outAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_dm: TForm_dm;
  version:string;
  bSort: integer;
implementation

{$R *.dfm}

procedure TForm_dm.FormCreate(Sender: TObject);
begin
version:='3.0';
ADOConnection.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ getcurrentdir+'\data\data.mdb;Persist Security Info=False;Jet OLEDB:Database Password=b700ba5df2e2d5a4fef2';
adoconnection.Connected:=true;
bSort:=0;
end;

procedure TForm_dm.ADOQuery_caroutAfterOpen(DataSet: TDataSet);
begin
(ADOQuery_carout.FieldByName('spend') as tfloatfield).DisplayFormat:='0.00';
(ADOQuery_carout.FieldByName('sjb') as tfloatfield).DisplayFormat:='0.00';
end;

procedure TForm_dm.ADOTable_car_outAfterOpen(DataSet: TDataSet);
begin
 (form_dm.ADOTable_car_out.FieldByName('spend')as tfloatfield).DisplayFormat:='0.00';
(form_dm.ADOTable_car_out.FieldByName('sjb')as tfloatfield).DisplayFormat:='0.00';
end;

end.