u_data.pas

主要是对人员信息和工资进行管理

unit U_data;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataM = class(TDataModule)
    Conn: TADOConnection;
    T_user: TADOTable;
    T_add_user: TADOTable;
    T_user_2: TADOTable;
    Ds_user: TDataSource;
    DS_add_user: TDataSource;
    DS_user2: TDataSource;
    T_change: TADOTable;
    T_chage_list: TADOTable;
    T_department: TADOTable;
    T_job: TADOTable;
    T_edu_level: TADOTable;
    T_counter: TADOTable;
    Ds_change: TDataSource;
    ds_change_list: TDataSource;
    ds_department: TDataSource;
    ds_job: TDataSource;
    ds_edu_level: TDataSource;
    ds_counter: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataM: TDataM;

implementation

{$R *.dfm}

end.