u_datamodule.pas

考勤管理系统 数据库系列

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_depart: TTable;
    DS_depart: TDataSource;
    T_person: TTable;
    T_counter: TTable;
    DS_attendance: TDataSource;
    T_attendance: TTable;
    T_overtime: TTable;
    DS_overtime: TDataSource;
    T_leave: TTable;
    DS_leave: TDataSource;
    T_errand: TTable;
    DS_errand: TDataSource;
    T_stat: TTable;
    DS_stat: TDataSource;
    Q_attend: TQuery;
    Q_leave: TQuery;
    Q_errand: TQuery;
    Q_overtime: TQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_main: TDM_main;

implementation

{$R *.DFM}

end.