global.pas

学员管理的软件

unit Global;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TTglobal = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Tglobal: TTglobal;
  userid:integer;//登陆人ID
  username:string;
  userpass:shortstring;
  qx:string;//权限
  ip:string='127.0.0.1';
  db_name:string='sa';
  db_pass:string='';
  db_initcat:string='exam';
  which_pic:boolean=false;
  sj_sqlstr:string;
  blnopensound:boolean=false;//是否打开音效
  selsqlstr:string;//存放主界面网格中的SQL语句的SELECT部分

implementation
{$R *.dfm}
end.