开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
data_1.pas
资源名称：ERP人力资源管理系统毕业设计.rar　[点击查看]
上传用户：lcqxtx
上传日期：2013-02-15
资源大小：530k
文件大小：3k
源码类别：

企业管理

开发平台：

Delphi

data_1.pas：源码内容
  1. unit data_1;
  3. interface
  5. uses
  6.   SysUtils, Classes, DB, ADODB, FR_DSet, FR_DBSet, FR_Class;
  8. type
  9.   TData1 = class(TDataModule)
  10.     database1: TADOConnection;
  11.     ado_tab: TADOQuery;
  12.     ado_yhgl: TADOQuery;
  13.     datas_yhgl: TDataSource;
  14.     ado_yhgluser_id: TIntegerField;
  15.     ado_yhgluser_name: TStringField;
  16.     ado_yhgluser_job: TStringField;
  17.     ado_yhgluser_power: TStringField;
  18.     ado_yhgluser_password: TStringField;
  19.     ado_workshop: TADOQuery;
  20.     ado_workshopworkshop_id: TStringField;
  21.     ado_workshopworkshop_name: TStringField;
  22.     data_workshop: TDataSource;
  23.     ado_active: TADOQuery;
  24.     ado_activeactive_id: TStringField;
  25.     ado_activeactive_name: TStringField;
  26.     ado_activeactive_cost: TFloatField;
  27.     Data_active: TDataSource;
  28.     backconn: TADOConnection;
  29.     cback: TADOCommand;
  30.     ADOCommand1: TADOCommand;
  31.     ado_resourse: TADOQuery;
  32.     data_resourse: TDataSource;
  33.     data_zpinf: TDataSource;
  34.     ado_zpinf: TADOQuery;
  35.     ado_zpinfdepart_name: TStringField;
  36.     ado_zpinfdepart_job: TStringField;
  37.     ado_zpinfxl: TStringField;
  38.     ado_zpinfxb: TStringField;
  39.     data_rsxt: TDataSource;
  40.     ado_rsxt: TADOQuery;
  41.     ado_rsxtrs_id: TStringField;
  42.     ado_rsxtrs_name: TStringField;
  43.     ado_rsxtrs_depart: TStringField;
  44.     ado_rsxtrs_job: TStringField;
  45.     ado_rsxtrs_xueli: TStringField;
  46.     ado_rsxtrs_xb: TStringField;
  47.     ado_rsxtrs_nl: TIntegerField;
  48.     ado_rsxtrs_gl: TIntegerField;
  49.     ado_rsxtrs_zzmm: TStringField;
  50.     ado_rsxtrs_hf: TStringField;
  51.     frReport1: TfrReport;
  52.     frDBDataSet1: TfrDBDataSet;
  53.     data_kaoqin: TDataSource;
  54.     ado_kaoqin: TADOQuery;
  55.     ado_gzxt: TADOQuery;
  56.     data_gzxt: TDataSource;
  57.     frReport2: TfrReport;
  58.     frDBDataSet2: TfrDBDataSet;
  59.     ado_gzxtg_nf: TStringField;
  60.     ado_gzxtg_yf: TStringField;
  61.     ado_gzxtrs_id: TStringField;
  62.     ado_gzxtrs_name: TStringField;
  63.     ado_gzxtg_jbgz: TFloatField;
  64.     ado_gzxtg_fdgz: TFloatField;
  65.     ado_gzxtg_grss: TFloatField;
  66.     ado_gzxtg_gwgz: TFloatField;
  67.     ado_gzxtg_shbz: TFloatField;
  68.     ado_gzxtg_bxkc: TFloatField;
  69.     ado_gzxtg_zgz: TFloatField;
  70.     ado_gzxtg_zkc: TFloatField;
  71.     ado_gzxtg_sfgz: TFloatField;
  72.     DataSource1: TDataSource;
  73.     ado_xshou: TADOQuery;
  74.     ado_kaoqinrs_id: TStringField;
  75.     ado_kaoqinrs_name: TStringField;
  76.     ado_kaoqins_time: TDateTimeField;
  77.     ado_kaoqinx_time: TDateTimeField;
  78.     ado_kaoqinc_sh: TStringField;
  79.     data_depart_id: TDataSource;
  80.     ado_depart_id: TADOQuery;
  81.     ado_depart_iddepart_id: TStringField;
  82.     ado_depart_iddepart_name: TStringField;
  83.     procedure DataModuleCreate(Sender: TObject);
  84.   private
  85.     { Private declarations }
  86.   public
  87.     { Public declarations }
  88.   end;
  90. var
  91.   Data1: TData1;
  93. implementation
  95. uses f_yhgl;
  97. {$R *.dfm}
  99. procedure TData1.DataModuleCreate(Sender: TObject);
  100. begin
  101.  ado_yhgl.Open;
  102.  ado_tab.Open;
  104. end;
  106. end.