data_1.pas

这是一个ERP人力资源管理系统.....的毕业设计..全套~~~`欢迎大家来看看.

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.