u_datamodule.~pas

来自「一个小小的工资管理系统」· ~PAS 代码 · 共 49 行

unit u_datamodule;

interface

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

type
  TDM_main = class(TDataModule)
    Database: TDatabase;
    Q_login: TQuery;
    T_salary_set: TTable;
    DS_salary_set: TDataSource;
    Q_person_list: TQuery;
    DS_person_list: TDataSource;
    Q_depart: TQuery;
    Q_person: TQuery;
    T_salary_1: TTable;
    DS_salary_1: TDataSource;
    T_salary_2: TTable;
    T_salary_3: TTable;
    DS_salary_2: TDataSource;
    DS_salary_3: TDataSource;
    T_salary_4: TTable;
    DS_salary_4: TDataSource;
    Q_salary_list: TQuery;
    T_counter: TTable;
    Q_add_salary_other: TQuery;
    Q_person_list_all: TQuery;
    Q_salary_base: TQuery;
    Q_salary_other: TQuery;
    Q_attendance_stat: TQuery;
    T_add_salary: TTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_main: TDM_main;

implementation

{$R *.DFM}

end.