main.pas

无线实时仓库管理系统 (ADO+ACCESS)

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Buttons, ToolWin, ComCtrls, ExtCtrls, StdCtrls,DB,ADODB;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;     
    SpeedButton13: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure N7Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
//   procedure N15Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
 //   procedure N4Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  username:string;            //用户名
  qx:array[1..3] of boolean;  //三个权限
implementation
 uses checkuser,operator,passwordchange, cangku, xcku, ruku, chuku, kucun;
{$R *.dfm}

procedure TMainForm.N7Click(Sender: TObject);
begin
    if application.MessageBox('真的退出?','提示',mb_okcancel)=idok then
  application.Terminate;
end;

procedure TMainForm.FormActivate(Sender: TObject);
begin
    CheckUserForm.ShowModal();
    if username<>'' then
    begin
        if qx[1] then
        begin
          N2.Enabled:=true;
       //   N4.Enabled:=true;
          N3.Enabled:=true;
          //N21.Enabled:=true;
          speedbutton1.Enabled:=true;
          speedbutton2.Enabled:=true;
     //     speedbutton3.Enabled:=true;
          //speedbutton4.Enabled:=true;
        end
        else
        begin
          N2.Enabled:=false;
       //   N4.Enabled:=false;
          N3.Enabled:=false;
         // N21.Enabled:=false;
          speedbutton1.Enabled:=false;
          speedbutton2.Enabled:=false;
      //   speedbutton3.Enabled:=false;
         // speedbutton4.Enabled:=false;
        end;
        if qx[2] then
        begin
          N10.Enabled:=true;
          N11.Enabled:=true;
          speedbutton4.Enabled:=true;
          speedbutton5.Enabled:=true;
        end
        else
        begin
          N10.Enabled:=false;
          N11.Enabled:=false;
          speedbutton4.Enabled:=false;
          speedbutton5.Enabled:=false;
        end;
        if qx[3] then
        begin
          N13.Enabled:=true;
          N14.Enabled:=true;
          N15.Enabled:=true;
          speedbutton6.Enabled:=true;
          speedbutton7.Enabled:=true;
          speedbutton8.Enabled:=true;
        end
        else
        begin
          N13.Enabled:=false;
          N14.Enabled:=false;
          N15.Enabled:=false;
          speedbutton6.Enabled:=false;
          speedbutton7.Enabled:=false;
          speedbutton8.Enabled:=false;
        end;
        //if qx[4] then
       // begin
        //  N17.Enabled:=true;
        //  N18.Enabled:=true;
        //  N19.Enabled:=true;
 //         N20.Enabled:=true;
        //  speedbutton10.Enabled:=true;
      //    speedbutton11.Enabled:=true;
      //    speedbutton12.Enabled:=true;
      //    speedbutton13.Enabled:=true;
     //   end
    //    else
      // begin
        // N17.Enabled:=false;
      //   N18.Enabled:=false;
       //  N19.Enabled:=false;
       //   N20.Enabled:=false;
       //   speedbutton10.Enabled:=false;
       //   speedbutton11.Enabled:=false;
       //   speedbutton12.Enabled:=false;
       //   speedbutton13.Enabled:=false;
      //  end;
    end
    else
        close;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
    OperatorForm.ShowModal();
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
    passwordchangeform.ShowModal();
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
//    classform.ShowModal();
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
 //  cangkuform.ShowModal();
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
    cangkuform.ShowModal();
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
    xckuForm.ShowModal();
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
    rukuForm.ShowModal();
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
    kucunform.ShowModal();
end;


procedure TMainForm.SpeedButton14Click(Sender: TObject);
begin
    cLOSE;
end;



procedure TMainForm.N17Click(Sender: TObject);
begin
 //   ClassBookBrowerForm.ShowModal();
end;

procedure TMainForm.N18Click(Sender: TObject);
begin
  //  bookbrowerform.ShowModal();
end;

procedure TMainForm.N19Click(Sender: TObject);
begin
 //     TakeBookForm.ShowModal();
end;

procedure TMainForm.N15Click(Sender: TObject);
begin
chukuform.showmodal();
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (messagedlg('现在就要离开吗?',mtconfirmation,[mbok,mbcancel],0)=mrok)
  then
    canclose:=true
  else
    canclose:=false;
end;

end.