datamodule.~pas

一个很好的企业内部人事管理系统,具有基本的框架和标准的结构,很容易改成具体的复杂的应用系统

unit DataModule;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TDataModule1 = class(TDataModule)
    Database: TDatabase;
    T_user: TTable;
    T_add_user: TTable;
    DS_add_user: TDataSource;
    T_counter: TTable;
    T_department: TTable;
    DS_department: TDataSource;
    T_job: TTable;
    T_edu_level: TTable;
    DS_job: TDataSource;
    DS_edu_level: TDataSource;
    T_change: TTable;
    DS_user: TDataSource;
    T_user_2: TTable;
    DS_user_2: TDataSource;
    T_change_list: TTable;
    DS_change_list: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

{$R *.DFM}

end.