unitmain.~pas

这是一个SQL的物资管理系统 这是一个SQL的物资管理系统

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB;

type
  TFrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    ADOStoredProc1: TADOStoredProc;
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    LoginUseID:string;
  end;

var
  FrmMain: TFrmMain;

implementation

uses UnitLogin, UnitAddUser, UnitDM, UnitEarn, UnitGdzcDj, UnitGdzcQuery,
  UnitGdzcRepair, UnitOut, UnitPandian, UnitPay, UnitQuit, UnitService,
  UnitStore, UnitUpdatePassword, UnitQueryOut, UnitQueryStore;

{$R *.dfm}

procedure TFrmMain.FormCreate(Sender: TObject);
begin
    self.N2.Visible:=false;
    FrmLogin:= TFrmLogin.Create(self);
    FrmLogin.ShowModal;
    FrmLogin.Free;
end;

procedure TFrmMain.N2Click(Sender: TObject);
begin
  FrmAddUser := TFrmAddUser.Create(self);
  FrmAddUser.ShowModal;
end;

procedure TFrmMain.N3Click(Sender: TObject);
begin
  FrmUpdatePassword :=TFrmUpdatePassword.Create(self);
  FrmUpdatePassword.ShowModal;
end;

procedure TFrmMain.N5Click(Sender: TObject);
begin
  FrmGdzcDj :=TFrmGdzcDj.Create(self);
  FrmGdzcDj.ShowModal;
end;

procedure TFrmMain.N6Click(Sender: TObject);
begin
  FrmGdzcQuery :=TFrmGdzcQuery.Create(self);
  FrmGdzcQuery.ShowModal;
end;

procedure TFrmMain.N7Click(Sender: TObject);
begin
  FrmGdzcRepair :=TFrmGdzcRepair.Create(self);
  FrmGdzcRepair.ShowModal;
end;

procedure TFrmMain.N9Click(Sender: TObject);
begin
  FrmStore :=TFrmStore.Create(self);
  FrmStore.ShowModal;
end;

procedure TFrmMain.N10Click(Sender: TObject);
begin
  FrmOut :=TFrmOut.Create(self);
  FrmOut.ShowModal;
end;

procedure TFrmMain.N11Click(Sender: TObject);
begin
  FrmQuit :=TFrmQuit.Create(self);
  FrmQuit.ShowModal;
end;

procedure TFrmMain.N12Click(Sender: TObject);
begin
  FrmPandian :=TFrmPandian.Create(self);
  FrmPandian.ShowModal;
end;

procedure TFrmMain.N13Click(Sender: TObject);
begin
  FrmService :=TFrmService.Create(self);
  FrmService.ShowModal;
end;

procedure TFrmMain.N14Click(Sender: TObject);
begin
  FrmPay :=TFrmPay.Create(self);
  FrmPay.ShowModal;
end;

procedure TFrmMain.N15Click(Sender: TObject);
begin
  FrmEarn :=TFrmEarn.Create(self);
  FrmEarn.ShowModal;
end;

procedure TFrmMain.N20Click(Sender: TObject);
begin
        ADOStoredProc1.Connection:=DataModule2.ADOConnection1;
        ADOStoredProc1.Close;
        ADOStoredProc1.ProcedureName:='Log_Operation';
        ADOStoredProc1.Parameters.Refresh;
        ADOStoredProc1.Parameters.ParamByName('@ID').Value:=LoginUseID;
        ADOStoredProc1.Parameters.ParamByName('@Op').Value:='退出系统';
        ADOStoredProc1.ExecProc;
        self.Close;

end;

procedure TFrmMain.N22Click(Sender: TObject);
begin
  FrmQueryStore :=TFrmQueryStore.Create(self);
  FrmQueryStore.ShowModal;
end;

procedure TFrmMain.N23Click(Sender: TObject);
begin
  FrmQueryOut :=TFrmQueryOut.Create(self);
  FrmQueryOut.ShowModal;
end;

end.