【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供FrmMain.pas参考,解决您在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