udm_user.~pas

港口货物管理系统

unit udm_user;

interface

uses
  SysUtils, Classes, DB, DBTables,Messages;

type
  Tfmuser = class(TDataModule)
    Tuser: TTable;
    DSuser: TDataSource;
  private

    { Private declarations }
  public
       strqx:string;
       struname:string;
       strpass:string;
       loginok:boolean;
       strgroup,susername:string;{ Public declarations }
       fmid:integer;
     end;

var
  fmuser: Tfmuser;

implementation
{$R *.dfm}

end.