frmmain.pas

这是一个商品管理系统

unit FrmMain;

interface

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

type
  TFormMain = class(TForm)
    MainMenu: TMainMenu;
    MenuSystemManager: TMenuItem;
    MenuUserLogin: TMenuItem;
    MenuPWChange: TMenuItem;
    MenuUserManager: TMenuItem;
    MenuSetBasicInfo: TMenuItem;
    MenuSetNation: TMenuItem;
    MenuSetArea: TMenuItem;
    MenuSetSort: TMenuItem;
    MenuSetTrade: TMenuItem;
    MenuSetDepot: TMenuItem;
    MenuSetPayment: TMenuItem;
    MenuSetDeliver: TMenuItem;
    MenuSetAndSeekCommodity: TMenuItem;
    MenuSetCommodity: TMenuItem;
    MenuSeekCommodity: TMenuItem;
    MenuInputBill: TMenuItem;
    MenuInputStockBill: TMenuItem;
    MenuInputSellBill: TMenuItem;
    MenuConfirmBill: TMenuItem;
    MenuConfirmStockBill: TMenuItem;
    MenuConfirmSellBill: TMenuItem;
    MenuSeekStorage: TMenuItem;
    MenuSetProvider: TMenuItem;
    MenuSetCustomer: TMenuItem;
    procedure MenuUserLoginClick(Sender: TObject);
    procedure MenuPWChangeClick(Sender: TObject);
    procedure MenuUserManagerClick(Sender: TObject);
    procedure MenuSetNationClick(Sender: TObject);
    procedure MenuSetAreaClick(Sender: TObject);
    procedure MenuSetSortClick(Sender: TObject);
    procedure MenuSetTradeClick(Sender: TObject);
    procedure MenuSetDepotClick(Sender: TObject);
    procedure MenuSetPaymentClick(Sender: TObject);
    procedure MenuSetDeliverClick(Sender: TObject);
    procedure MenuSetCommodityClick(Sender: TObject);
    procedure MenuSeekCommodityClick(Sender: TObject);
    procedure MenuInputStockBillClick(Sender: TObject);
    procedure MenuSetProviderClick(Sender: TObject);
    procedure MenuSetCustomerClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MenuInputSellBillClick(Sender: TObject);
    procedure MenuConfirmStockBillClick(Sender: TObject);
    procedure MenuConfirmSellBillClick(Sender: TObject);
    procedure MenuSeekStorageClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;
  CurUserName: string;
  CurUserType: integer;

implementation

uses FrmLogin, FrmChangePW, FrmUserManager, FrmBasicInfoSet, FrmSetPC,
  FrmSetCommodity, FrmSeekCommodity, FrmInputStoreBill, FrmInputSellBill,
  FrmConfirmStoreBill, FrmConfirmSellBill, FrmStorageQuery;

{$R *.dfm}


procedure TFormMain.MenuUserLoginClick(Sender: TObject);
begin
        if (FormLogin.ShowModal = mrOK) then
        begin
                CurUserName := FormLogin.CurUserName;
                CurUserType := FormLogin.CurUserType;
                MenuPWChange.Enabled := true;
                if (CurUserType = 1) then
                begin
                        MenuUserManager.Enabled := true;
                        MenuSetBasicInfo.Enabled := true;
                        MenuSetAndSeekCommodity.Enabled := true;
                        MenuInputBill.Enabled := true;
                        MenuConfirmBill.Enabled := true;
                        MenuSeekStorage.Enabled := true;
                end
                else
                begin
                        MenuInputBill.Enabled := true;
                        MenuSeekStorage.Enabled := true;
                end;
                MenuUserLogin.Enabled := false;
        end
end;

procedure TFormMain.MenuPWChangeClick(Sender: TObject);
begin
        FormChangePW.EditUserName.Text := CurUserName;
        FormChangePW.ShowModal;
end;

procedure TFormMain.MenuUserManagerClick(Sender: TObject);
begin
        FormUserManager.ShowModal;
end;

procedure TFormMain.MenuSetNationClick(Sender: TObject);
begin
        FormBasicInfoSet.CBObject.Text := '国家'; 
        FormBasicInfoSet.ShowModal;
end;

procedure TFormMain.MenuSetAreaClick(Sender: TObject);
begin
        FormBasicInfoSet.CBObject.Text := '地区'; 
        FormBasicInfoSet.ShowModal;
end;

procedure TFormMain.MenuSetSortClick(Sender: TObject);
begin
        FormBasicInfoSet.CBObject.Text := '类别';
        FormBasicInfoSet.ShowModal;
end;

procedure TFormMain.MenuSetTradeClick(Sender: TObject);
begin
        FormBasicInfoSet.CBObject.Text := '行业'; 
        FormBasicInfoSet.ShowModal;
end;

procedure TFormMain.MenuSetDepotClick(Sender: TObject);
begin
        FormBasicInfoSet.CBObject.Text := '仓库'; 
        FormBasicInfoSet.ShowModal;
end;

procedure TFormMain.MenuSetPaymentClick(Sender: TObject);
begin
        FormBasicInfoSet.CBObject.Text := '付款方式'; 
        FormBasicInfoSet.ShowModal;
end;

procedure TFormMain.MenuSetDeliverClick(Sender: TObject);
begin
        FormBasicInfoSet.CBObject.Text := '送货方式'; 
        FormBasicInfoSet.ShowModal;
end;

procedure TFormMain.MenuSetCommodityClick(Sender: TObject);
begin
        FormSetCommodity.ShowModal;
end;

procedure TFormMain.MenuSeekCommodityClick(Sender: TObject);
begin
        FormSeekCommodity.ShowModal;
end;

procedure TFormMain.MenuInputStockBillClick(Sender: TObject);
begin
        FormInputStoreBill.EditSysUser.Text := CurUserName;
        FormInputStoreBill.ShowModal;
end;

procedure TFormMain.MenuInputSellBillClick(Sender: TObject);
begin
        FormInputSellBill.EditSysUser.Text := CurUserName;
        FormInputSellBill.ShowModal;
end;

procedure TFormMain.MenuSetProviderClick(Sender: TObject);
begin
        FormSetPC.CBObject.Text := '供应商';
        FormSetPC.ShowModal;
end;

procedure TFormMain.MenuSetCustomerClick(Sender: TObject);
begin
        FormSetPC.CBObject.Text := '客户';
        FormSetPC.ShowModal;
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
        CurUserName := 'SuperManager';
        CurUserType := 1;
end;

procedure TFormMain.MenuConfirmStockBillClick(Sender: TObject);
begin
        FormConfirmStoreBill.ShowModal;
end;

procedure TFormMain.MenuConfirmSellBillClick(Sender: TObject);
begin
        FormConfirmSellBill.ShowModal;
end;

procedure TFormMain.MenuSeekStorageClick(Sender: TObject);
begin
        FormStorageQuery.ShowModal;
end;

end.