mainformunit.pas

Delphi 编写的"会员销售管理系统",源码全,数据库全,未经测试,请有兴趣的朋友自己测试!

unit mainformunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdActns, ActnList, Menus, StdCtrls;

type
  Tfrm_main = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N27: TMenuItem;
    N8: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    Help1: TMenuItem;
    OpenDialog: TOpenDialog;
    ActionList1: TActionList;
    FileNew1: TAction;
    FileOpen1: TAction;
    FileClose1: TWindowClose;
    FileSave1: TAction;
    FileSaveAs1: TAction;
    FileExit1: TAction;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowArrangeAll1: TWindowArrange;
    HelpAbout1: TAction;
    ImageList1: TImageList;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N35Click(Sender: TObject);
  private
    { Private declarations }
    username,userpwd,userpower:string;
    procedure setpower;
  public
    { Public declarations }
  end;

var
  frm_main: Tfrm_main;
 
implementation
    uses loginformunit,changepwdunit,registercompanyunit,
    authorizationunit,registermemberunit,registeremployeeunit,
    registerarticleunit,transactionunit,addbalanceunit,addfoodsunit,
    querymemberunit,changememberunit,consumptioninfounit,
    consumptionsumunit,querybalanceunit,querydeficiencyunit,
    queryarchievementunit,querysaleunit,queryarticleunit,queryemployeeunit;
{$R *.dfm}
procedure tfrm_main.setpower;
begin
 if userpower='1' then
 begin
  end
  else if userpower='2' then
    begin
     n2.Enabled:=false;
     n3.Enabled:=false;
     n6.Enabled:=false;
     n8.Enabled:=false;
    end
   else if userpower='3' then
   begin
     n2.Enabled:=false;
     n3.Enabled:=false;
     n6.Enabled:=false;
     n8.Enabled:=false;
     n10.Enabled:=false;
   end;

end;

procedure Tfrm_main.N5Click(Sender: TObject);
var rt:integer;
begin
  frm_changepwd:=tfrm_changepwd.Create(self);
  rt:=frm_changepwd.ShowModal;
  if rt=mrok then
   begin
   frm_changepwd.changepwd(username);
   end;
   frm_changepwd.Destroy;
end;

procedure Tfrm_main.N6Click(Sender: TObject);
var rt:integer;
f:file;
s1,s2,s3,s4:string[160];
begin
  frm_registercompany:=tfrm_registercompany.Create(self);
  if fileexists('info.ini') then
   begin
    assignfile(f,'info.ini');
    reset(f,1);
    blockread(f,s1,60);
    blockread(f,s2,100);
    blockread(f,s3,12);
    blockread(f,s4,28);
    frm_registercompany.Edit1.Text:=s1;
    frm_registercompany.Edit2.Text:=s2;
    frm_registercompany.Edit3.Text:=s3;
    frm_registercompany.Edit4.Text:=s4;
    closefile(f);
   end;
   rt:=frm_registercompany.ShowModal;
   if rt=mrok then
   begin
    frm_registercompany.registercompany;
    end;
    frm_registercompany.Destroy;

end;

procedure Tfrm_main.N9Click(Sender: TObject);
begin
application.Terminate;
end;

procedure Tfrm_main.N8Click(Sender: TObject);
begin
frm_authorization:=tfrm_authorization.Create(self);
frm_authorization.ShowModal;
frm_authorization.Destroy;
end;

procedure Tfrm_main.N11Click(Sender: TObject);
begin
frm_registermember:=tfrm_registermember.Create(self);
frm_registermember.b_cancelClick(nil);
frm_registermember.Showmodal;
frm_registermember.Destroy;
end;

procedure Tfrm_main.N12Click(Sender: TObject);
begin
 frm_registeremployee:=tfrm_registeremployee.Create(self);
 frm_registeremployee.b_cancelClick(nil);
 frm_registeremployee.ShowModal;
 frm_registeremployee.Destroy;

end;

procedure Tfrm_main.N31Click(Sender: TObject);
begin
frm_registerarticle:=tfrm_registerarticle.create(self);
frm_registerarticle.showmodal;
frm_registerarticle.Destroy;
end;

procedure Tfrm_main.N14Click(Sender: TObject);
begin
frm_transaction:=tfrm_transaction.Create(self);
frm_transaction.ShowModal;
frm_transaction.Destroy;
end;

procedure Tfrm_main.N28Click(Sender: TObject);
begin
frm_addbalance:=tfrm_addbalance.Create(self);
frm_addbalance.ShowModal;
end;

procedure Tfrm_main.N30Click(Sender: TObject);
begin
frm_addfoods:=tfrm_addfoods.Create(self);
frm_addfoods.ShowModal;
end;

procedure Tfrm_main.N16Click(Sender: TObject);
begin
frm_querymember:=tfrm_querymember.Create(self);
   if userPower='3' then                     
   begin
      frm_QueryMember.b_modify.Enabled:=false;
      frm_QueryMember.b_del.Enabled:=false;
   end;
frm_querymember.ShowModal;
frm_querymember.Destroy;

end;

procedure Tfrm_main.N17Click(Sender: TObject);
begin
frm_consumptioninfo:=tfrm_consumptioninfo.Create(self);
frm_consumptioninfo.ShowModal;
frm_consumptioninfo.Destroy;
end;

procedure Tfrm_main.N18Click(Sender: TObject);
begin
frm_consumptionsum:=tfrm_consumptionsum.Create(self);
frm_consumptionsum.ShowModal;
frm_consumptionsum.Destroy;
end;

procedure Tfrm_main.N19Click(Sender: TObject);
begin
frm_querybalance:=tfrm_querybalance.Create(self);
frm_querybalance.ShowModal;
frm_querybalance.Destroy;
end;

procedure Tfrm_main.N20Click(Sender: TObject);
begin
frm_querydeficiency:=tfrm_querydeficiency.Create(self);
frm_querydeficiency.ShowModal;
frm_querydeficiency.Destroy;
end;

procedure Tfrm_main.N23Click(Sender: TObject);
begin
frm_queryarchievement:=tfrm_queryarchievement.Create(self);
frm_queryarchievement.ShowModal;
frm_queryarchievement.Destroy;
end;

procedure Tfrm_main.N26Click(Sender: TObject);
begin
frm_querysale:=tfrm_querysale.create(self);
frm_querysale.showmodal;
frm_querysale.Destroy;

end;

procedure Tfrm_main.N25Click(Sender: TObject);
begin
frm_queryarticle:=tfrm_queryarticle.Create(self);
  if userPower='3' then
   begin
      frm_Queryarticle.b_modify.Enabled:=false;
      frm_Queryarticle.b_del.Enabled:=false;
   end;
frm_queryarticle.ShowModal;
frm_queryarticle.Destroy;
end;

procedure Tfrm_main.N22Click(Sender: TObject);
begin
frm_queryemployee:=tfrm_queryemployee.Create(self);
  if userPower='3' then
   begin
      frm_Queryemployee.b_modify.Enabled:=false;
      frm_Queryemployee.b_del.Enabled:=false;
   end;
frm_queryemployee.ShowModal;
frm_queryemployee.Destroy;
end;

procedure Tfrm_main.FormActivate(Sender: TObject);
var rt:integer;
   n:integer; //登录次数;
begin
  n:=1;
  while n<=3 do
   begin
    rt:=frm_login.ShowModal;
    if rt=mrcancel then
      begin
      close;
      application.Terminate;
      end;
    if frm_login.canpass then
      begin
      username:=frm_login.i_name.Text;
      userpwd:=frm_login.i_pwd.Text;
      userpower:=frm_login.power;
      setpower;
      exit;
      end;
    n:=n+1;
      if n>3  then
       begin
        messagedlg('你登录已够三次,程序将退出!',mtwarning,[mbok],0);
        frm_login.Close;
        application.Terminate;
        exit;
        end;
   messagedlg('你输入的密码不正确,请重试!',mtwarning,[mbok],0);
   frm_login.i_pwd.Clear;
   frm_login.i_pwd.SetFocus;
  end;
end;

procedure Tfrm_main.N35Click(Sender: TObject);
begin
frm_main.FormActivate(nil);
end;

end.