main.pas

北京铁路局住房分配系统,数据库为MSSql2000,依次执行crebas4.sql

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Buttons, ExtCtrls, StdCtrls, CheckLst, ComCtrls, ToolWin,
  Rascomp32, ImgList, DB, DBTables, jpeg;

type
  TFormmain = class(TForm)
    MainMenu1: TMainMenu;
    MFyxxgl: TMenuItem;
    MDwgrxx: TMenuItem;
    MZffp: TMenuItem;
    MBbdy: TMenuItem;
    MXqxx: TMenuItem;
    MZfxx: TMenuItem;
    MDwgl: TMenuItem;
    MGrgl: TMenuItem;
    MZfztfp: TMenuItem;
    MFjfp: TMenuItem;
    MSlfp: TMenuItem;
    MTxfp: TMenuItem;
    MZyfpzb: TMenuItem;
    MFlfpb: TMenuItem;
    MTC: TMenuItem;
    StatusBar1: TStatusBar;
    MLyxx: TMenuItem;
    MFptzd: TMenuItem;
    MFpfap: TMenuItem;
    MXtxx: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Image1: TImage;
    N6: TMenuItem;
    procedure MTCClick(Sender: TObject);
    procedure MXtxxClick(Sender: TObject);
    procedure MXqxxClick(Sender: TObject);
    procedure MLyxxClick(Sender: TObject);
    procedure MZfxxClick(Sender: TObject);
    procedure MDwglClick(Sender: TObject);
    procedure MGrglClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure MZfztfpClick(Sender: TObject);
    procedure MFjfpClick(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure MSlfpClick(Sender: TObject);
    procedure MTxfpClick(Sender: TObject);
    procedure MZyfpzbClick(Sender: TObject);
    procedure MFlfpbClick(Sender: TObject);
    procedure MFpfapClick(Sender: TObject);
    procedure MFptzdClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N6Click(Sender: TObject);

  private
    { Private declarations }
    //procedure QX(rd:string;Form:Tform);
  public
    { Public declarations }
    s_id,s_name,s_pwd:string;
    s_qx:boolean;
   // WinN:integer;
    //function decod():string;
 end;

var
  Formmain: TFormmain;

implementation

uses datamodl, Xtxx, Xqxx,lyxx, Zfxx, Dwxx, Grxx,
     Cssz, Ztfp, Fjfp,Ytfp, Slfp, ZFTYFP, Fpzbdy,
     Flfpbdy, Txfpbdy,Fptzsdy,publicfun,userMG;

{$R *.dfm}

procedure TFormmain.MTCClick(Sender: TObject);
begin
  application.Terminate;
end;

procedure TFormmain.MXtxxClick(Sender: TObject);
begin
   FormXtxx:= TFormXtxx.create(application);
   FormXtxx.showmodal;
   FormXtxx.Free;
end;

procedure TFormmain.MXqxxClick(Sender: TObject);
begin
   FormXqxx:= TFormXqxx.create(application);
   FormXqxx.showmodal;
   FormXqxx.Free;
end;

procedure TFormmain.MLyxxClick(Sender: TObject);
begin
   Formlyxx:= TFormlyxx.create(application);
   Formlyxx.showmodal;
   Formlyxx.Free;
end;

procedure TFormmain.MZfxxClick(Sender: TObject);
begin
   FormZfxx:= TFormZfxx.create(application);
   FormZfxx.showmodal;
   FormZfxx.Free;
end;

procedure TFormmain.MDwglClick(Sender: TObject);
begin
   FormDwxx:= TFormDwxx.create(application);
   FormDwxx.showmodal;
   FormDwxx.Free;
end;

procedure TFormmain.MGrglClick(Sender: TObject);
begin
   FormGrxx:= TFormGrxx.create(application);
   FormGrxx.showmodal;
   FormGrxx.Free;
end;

procedure TFormmain.N2Click(Sender: TObject);
begin
   FormCssz:= TFormCssz.create(application);
   FormCssz.showmodal;
   FormCssz.Free;
end;

procedure TFormmain.N3Click(Sender: TObject);
begin
  datamodule1.Connect;
  formmain.MainMenu1.Items[1].Enabled:=true;
  formmain.MainMenu1.Items[2].Enabled:=true;
  formmain.MainMenu1.Items[3].Enabled:=true;
  formmain.MainMenu1.Items[4].Enabled:=true;
  formmain.N3.Enabled:=false;
  formmain.N4.Enabled:=true;
end;

procedure TFormmain.N4Click(Sender: TObject);
begin
   datamodule1.disconnect;
   formmain.MainMenu1.Items[1].Enabled:=false;
   formmain.MainMenu1.Items[2].Enabled:=false;
   formmain.MainMenu1.Items[3].Enabled:=false;
   formmain.MainMenu1.Items[4].Enabled:=false;
   formmain.N3.Enabled:=true;
   formmain.N4.Enabled:=false;
end;

procedure TFormmain.MZfztfpClick(Sender: TObject);
begin
   FormZtfp:= TFormZtfp.create(application);
   FormZtfp.showmodal;
   FormZtfp.Free;
end;

procedure TFormmain.MFjfpClick(Sender: TObject);
begin
   FormFjfp:= TFormFjfp.create(application);
   FormFjfp.showmodal;
   FormFjfp.Free;
end;

procedure TFormmain.N5Click(Sender: TObject);
begin
   FormYtfp:= TFormYtfp.create(application);
   FormYtfp.showmodal;
   FormYtfp.Free;
end;

procedure TFormmain.MSlfpClick(Sender: TObject);
begin
   FormSlfp:= TFormSlfp.create(application);
   FormSlfp.showmodal;
   FormSlfp.Free;
end;

procedure TFormmain.MTxfpClick(Sender: TObject);
begin
   FormTxfp:= TFormTxfp.create(application);
   FormTxfp.showmodal;
   FormTxfp.Free;
end;

procedure TFormmain.MZyfpzbClick(Sender: TObject);
begin
   FormFpzbdy:= TFormFpzbdy.create(application);
   FormFpzbdy.showmodal;
   FormFpzbdy.Free;
end;

procedure TFormmain.MFlfpbClick(Sender: TObject);
begin
   FormFLFPBDY:= TFormFLFPBDY.create(application);
   FormFLFPBDY.showmodal;
   FormFLFPBDY.Free;
end;

procedure TFormmain.MFpfapClick(Sender: TObject);
begin
  FormTXFPBDY:= TFormTXFPBDY.create(application);
  FormTXFPBDY.showmodal;
  FormTXFPBDY.Free;
end;

procedure TFormmain.MFptzdClick(Sender: TObject);
begin
  FormFPTZSDY:= TFormFPTZSDY.create(application);
  FormFPTZSDY.showmodal;
  FormFPTZSDY.Free;
end;

procedure TFormmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  application.Terminate;
end;

procedure TFormmain.FormActivate(Sender: TObject);
begin
  formmain.MainMenu1.Items[1].Enabled:=false;
  formmain.MainMenu1.Items[2].Enabled:=false;
  formmain.MainMenu1.Items[3].Enabled:=false;
  formmain.MainMenu1.Items[4].Enabled:=false;
  formmain.N4.Enabled:=false;
end;

procedure TFormmain.FormCreate(Sender: TObject);
begin
  statusbar1.Panels[0].Text:='操作员ID: '+_userid;
  statusbar1.Panels[1].Text:='操作员姓名: '+_username;

end;

procedure TFormmain.N6Click(Sender: TObject);
begin
  UserMaint:= TUserMaint.create(application);
  UserMaint.showmodal;
  UserMaint.Free;
end;

end.