?? data_1.pas
字號:
unit data_1;
interface
uses
SysUtils, Classes, DB, ADODB, FR_DSet, FR_DBSet, FR_Class;
type
TData1 = class(TDataModule)
database1: TADOConnection;
ado_tab: TADOQuery;
ado_yhgl: TADOQuery;
datas_yhgl: TDataSource;
ado_yhgluser_id: TIntegerField;
ado_yhgluser_name: TStringField;
ado_yhgluser_job: TStringField;
ado_yhgluser_power: TStringField;
ado_yhgluser_password: TStringField;
ado_workshop: TADOQuery;
ado_workshopworkshop_id: TStringField;
ado_workshopworkshop_name: TStringField;
data_workshop: TDataSource;
ado_active: TADOQuery;
ado_activeactive_id: TStringField;
ado_activeactive_name: TStringField;
ado_activeactive_cost: TFloatField;
Data_active: TDataSource;
backconn: TADOConnection;
cback: TADOCommand;
ADOCommand1: TADOCommand;
ado_resourse: TADOQuery;
data_resourse: TDataSource;
data_zpinf: TDataSource;
ado_zpinf: TADOQuery;
ado_zpinfdepart_name: TStringField;
ado_zpinfdepart_job: TStringField;
ado_zpinfxl: TStringField;
ado_zpinfxb: TStringField;
data_rsxt: TDataSource;
ado_rsxt: TADOQuery;
ado_rsxtrs_id: TStringField;
ado_rsxtrs_name: TStringField;
ado_rsxtrs_depart: TStringField;
ado_rsxtrs_job: TStringField;
ado_rsxtrs_xueli: TStringField;
ado_rsxtrs_xb: TStringField;
ado_rsxtrs_nl: TIntegerField;
ado_rsxtrs_gl: TIntegerField;
ado_rsxtrs_zzmm: TStringField;
ado_rsxtrs_hf: TStringField;
frReport1: TfrReport;
frDBDataSet1: TfrDBDataSet;
data_kaoqin: TDataSource;
ado_kaoqin: TADOQuery;
ado_gzxt: TADOQuery;
data_gzxt: TDataSource;
frReport2: TfrReport;
frDBDataSet2: TfrDBDataSet;
ado_gzxtg_nf: TStringField;
ado_gzxtg_yf: TStringField;
ado_gzxtrs_id: TStringField;
ado_gzxtrs_name: TStringField;
ado_gzxtg_jbgz: TFloatField;
ado_gzxtg_fdgz: TFloatField;
ado_gzxtg_grss: TFloatField;
ado_gzxtg_gwgz: TFloatField;
ado_gzxtg_shbz: TFloatField;
ado_gzxtg_bxkc: TFloatField;
ado_gzxtg_zgz: TFloatField;
ado_gzxtg_zkc: TFloatField;
ado_gzxtg_sfgz: TFloatField;
DataSource1: TDataSource;
ado_xshou: TADOQuery;
ado_kaoqinrs_id: TStringField;
ado_kaoqinrs_name: TStringField;
ado_kaoqins_time: TDateTimeField;
ado_kaoqinx_time: TDateTimeField;
ado_kaoqinc_sh: TStringField;
data_depart_id: TDataSource;
ado_depart_id: TADOQuery;
ado_depart_iddepart_id: TStringField;
ado_depart_iddepart_name: TStringField;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Data1: TData1;
implementation
uses f_yhgl;
{$R *.dfm}
procedure TData1.DataModuleCreate(Sender: TObject);
begin
ado_yhgl.Open;
ado_tab.Open;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -