?? dm.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -