unitmain.pas

这是一个很好的超市管理系统

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ExtCtrls, ToolWin, Menus, jpeg;

type
  userinfo = record
  id: integer;
  right: string
end;

type
  TFrmMain = class(TForm)
    MainMenu1: TMainMenu;
    StatusBar1: TStatusBar;
    d1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    c1: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    h1: TMenuItem;
    N19: TMenuItem;
    ToolBar1: TToolBar;
    Image1: TImage;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ImageList1: TImageList;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    auser: userinfo;
    userid: integer;
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses UnitXiangPin, UnitXPXS, UnitXPTH, UnitJHTH, UnitZDYCX, Unitbackup,
  UnitUserManage, UnitChangePass, UnitDHR, UnitGHX, UnitMYCX, UnitKCCX,
  UnitDH;

{$R *.dfm}

procedure TFrmMain.N1Click(Sender: TObject);
begin
  Application.CreateForm(TFrmXiangPin, FrmXiangPin);
  FrmXiangPin.ShowModal;
  FrmXiangPin.free;
end;

procedure TFrmMain.ToolButton6Click(Sender: TObject);
begin
  self.Close;
  ModalResult := mrok;
end;

procedure TFrmMain.N2Click(Sender: TObject);
begin
  Application.CreateForm(TFrmXPXS, FrmXPXS);
  FrmXPXS.ShowModal;
  FrmXPXS.Free;
end;

procedure TFrmMain.N3Click(Sender: TObject);
begin
  Application.CreateForm(TFrmXPTH, FrmXPTH);
  FrmXPTH.ShowModal;
  FrmXPTH.Free; 
end;

procedure TFrmMain.N25Click(Sender: TObject);
begin
  application.CreateForm(TFrmJHTH, FrmJHTH);
  FrmJHTH.ShowModal;
  FrmJHTH.Free;
end;

procedure TFrmMain.N23Click(Sender: TObject);
begin
  application.CreateForm(TFrmDHR, FrmDHR);
  FrmDHR.ShowModal;
  FrmDHR.Free;
end;

procedure TFrmMain.N27Click(Sender: TObject);
begin
  application.CreateForm(TFrmGHX, FrmGHX);
  FrmGHX.ShowModal;
  FrmGHX.Free;
end;

procedure TFrmMain.ToolButton1Click(Sender: TObject);
begin
  N2Click(self);
end;

procedure TFrmMain.ToolButton2Click(Sender: TObject);
begin
  N1Click(self);  
end;

procedure TFrmMain.ToolButton3Click(Sender: TObject);
begin
  N3Click(self);  
end;

procedure TFrmMain.N8Click(Sender: TObject);
begin
  application.CreateForm(TFrmMYCX, FrmMYCX);
  FrmMYCX.ShowModal;
  FrmMYCX.Free;
end;

procedure TFrmMain.N12Click(Sender: TObject);
begin
  application.CreateForm(TFrmKCCX, FrmKCCX);
  FrmKCCX.ShowModal;
  FrmKCCX.Free;
end;

procedure TFrmMain.N9Click(Sender: TObject);
begin
  application.CreateForm(TFrmZDYCX, FrmZDYCX);
  FrmZDYCX.ShowModal;
  FrmZDYCX.Free;
end;

procedure TFrmMain.N21Click(Sender: TObject);
begin
  application.CreateForm(TFrmbackup, Frmbackup);
  Frmbackup.ShowModal;
  Frmbackup.Free;
end;

procedure TFrmMain.N18Click(Sender: TObject);
begin
  application.CreateForm(TFrmUserManage, FrmUserManage);
  FrmUserManage.showmodal;
  FrmUserManage.free;
end;

procedure TFrmMain.N16Click(Sender: TObject);
begin
  Application.CreateForm(TFrmChangePass, FrmChangePass);
  FrmChangePass.ShowModal;
  FrmChangePass.Free; 
end;

procedure TFrmMain.N7Click(Sender: TObject);
begin
  application.CreateForm(TFrmDH, FrmDH);
  FrmDH.ShowModal;
  FrmDH.Free;
end;

procedure TFrmMain.FormShow(Sender: TObject);
begin
  Statusbar1.Panels[1].Text := '时间：' + datetimetostr(now);
end;

procedure TFrmMain.ToolButton4Click(Sender: TObject);
begin
  N9Click(self);
end;

procedure TFrmMain.ToolButton5Click(Sender: TObject);
begin
  N12Click(self);
end;

end.