dnusermanager.pas

个人写的一个操作员管理部分

unit DnUserManager;

interface

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

type
  TdmUserManager = class(TDataModule)
    qryUsers: TQuery;
    UserManager: TDatabase;
    DelUserPosts: TQuery;
    qryMenus: TQuery;
    delMenus: TQuery;
    qryPrograms: TQuery;
    qryPosts: TQuery;
    qryUserPost: TQuery;
    qryAvailUsers: TQuery;
    delPostMenus: TQuery;
    delUserPost: TQuery;
    qryPostMenus: TQuery;
    InsUserPosts: TQuery;
    delProgramPostUser: TQuery;
    qryUserPosts: TQuery;
    UpdSqlUsers: TUpdateSQL;
    UpdSqlMenus: TUpdateSQL;
    UpdSqlPosts: TUpdateSQL;
    UpdSqlPostMenus: TUpdateSQL;
    UpdSqlUserPosts: TUpdateSQL;
    qryCheckPosts: TQuery;
    qryCenter: TQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmUserManager: TdmUserManager;

implementation

{$R *.DFM}

end.