📄 ufhmrp1.pas
字号:
unit Ufhmrp;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, jpeg, ExtCtrls, StdCtrls, ToolWin, Menus, Buttons, shellapi;
type
TMainForm = class(TForm)
statusbar: TStatusBar;
mainPanel: TPanel;
ImgDcheck: TImage;
ImgIpay: TImage;
ImgIreturn: TImage;
ImgOcharge: TImage;
ImgOreturn: TImage;
Image25: TImage;
Image32: TImage;
ImgDmove: TImage;
ImgIbuild: TImage;
Image26: TImage;
Image27: TImage;
Image28: TImage;
Image29: TImage;
Image33: TImage;
Image34: TImage;
ImgIorder: TImage;
Imginstore: TImage;
ImgOorder: TImage;
ImgOoutstore: TImage;
PnTitle: TPanel;
ImgTitle: TImage;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
ImgOorder1: TImage;
ImgOoutstore1: TImage;
ImgOcharge1: TImage;
ImgOreturn1: TImage;
ImgIorder1: TImage;
Imginstore1: TImage;
ImgIpay1: TImage;
ImgIreturn1: TImage;
ImgDcheck1: TImage;
ImgDmove1: TImage;
ImgDcombine1: TImage;
Imgcharge: TImage;
Imgpay: TImage;
Imgpay1: TImage;
Imgcharge1: TImage;
ImgIright1: TImage;
ImgIright2: TImage;
ImgIdown: TImage;
ImgItear: TImage;
Panel3: TPanel;
LbeRpt1: TLabel;
LbeRpt2: TLabel;
LbeRpt3: TLabel;
LbeRpt4: TLabel;
LbeRpt5: TLabel;
LbeRpt6: TLabel;
LbeRpt7: TLabel;
LbeRpt8: TLabel;
ImgRpt1: TImage;
ImgRpt2: TImage;
ImgRpt3: TImage;
ImgRpt4: TImage;
ImgRpt5: TImage;
ImgRpt6: TImage;
ImgRpt7: TImage;
ImgRpt8: TImage;
MainMenu1: TMainMenu;
N1: TMenuItem;
OprRightsItem: TMenuItem;
ChangePwd: TMenuItem;
ChangeOprItem: TMenuItem;
eventLogItem: TMenuItem;
N2: TMenuItem;
ChangeSuit: TMenuItem;
SuitParams: TMenuItem;
ClearSuitItem: TMenuItem;
N74: TMenuItem;
BackupItem: TMenuItem;
Restroeitem: TMenuItem;
DeleteItem: TMenuItem;
N7: TMenuItem;
ExitItem: TMenuItem;
L1: TMenuItem;
V1: TMenuItem;
C2: TMenuItem;
N9: TMenuItem;
N18: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
Mgoodtype: TMenuItem;
MUnit: TMenuItem;
N73: TMenuItem;
MDept: TMenuItem;
Memploy: TMenuItem;
MIOTYPE: TMenuItem;
N75: TMenuItem;
Mpaytype: TMenuItem;
MBank: TMenuItem;
MIetype: TMenuItem;
C1: TMenuItem;
MIorder: TMenuItem;
MIinstore: TMenuItem;
MIreturn: TMenuItem;
MIpay: TMenuItem;
N21: TMenuItem;
MVendorPurchaseTotal: TMenuItem;
MVendorPurchaseDetail: TMenuItem;
N24: TMenuItem;
MGoodsPurchaseTotal: TMenuItem;
MGoodsPurchaseDetail: TMenuItem;
N29: TMenuItem;
MEmployPurchaseTotal: TMenuItem;
MEmployPurchaseDetail: TMenuItem;
N32: TMenuItem;
N33: TMenuItem;
N34: TMenuItem;
N76: TMenuItem;
V4: TMenuItem;
Z1: TMenuItem;
X2: TMenuItem;
MOOrder: TMenuItem;
MOoutstore: TMenuItem;
MOreturn: TMenuItem;
MOcharge: TMenuItem;
N35: TMenuItem;
MClientSaleTotal: TMenuItem;
MClientSaleDetail: TMenuItem;
N38: TMenuItem;
MGoodsSaleTotal: TMenuItem;
MGoodsSaleDetail: TMenuItem;
N41: TMenuItem;
MEmploySaleTotal: TMenuItem;
MEmploySaleDetail: TMenuItem;
N44: TMenuItem;
MStoreSaleTotal: TMenuItem;
MStoreSaleDetail: TMenuItem;
N77: TMenuItem;
MClientProfitTotal: TMenuItem;
MClientProfitDetail: TMenuItem;
MClientProfitByInvo: TMenuItem;
N81: TMenuItem;
N82: TMenuItem;
N83: TMenuItem;
N84: TMenuItem;
N85: TMenuItem;
N86: TMenuItem;
N4: TMenuItem;
MDmove: TMenuItem;
MDcheck: TMenuItem;
MDInOut: TMenuItem;
N61: TMenuItem;
N62: TMenuItem;
MIbuild: TMenuItem;
MItear: TMenuItem;
N64: TMenuItem;
N65: TMenuItem;
N66: TMenuItem;
N67: TMenuItem;
N68: TMenuItem;
N88: TMenuItem;
N89: TMenuItem;
N90: TMenuItem;
N91: TMenuItem;
N92: TMenuItem;
N93: TMenuItem;
N58: TMenuItem;
MDExpense: TMenuItem;
MDIncome: TMenuItem;
N70: TMenuItem;
N71: TMenuItem;
BankTotalItem: TMenuItem;
BankDetailItem: TMenuItem;
N59: TMenuItem;
POSItem: TMenuItem;
N19: TMenuItem;
N53: TMenuItem;
N54: TMenuItem;
N55: TMenuItem;
N57: TMenuItem;
N56: TMenuItem;
N20: TMenuItem;
MIPay1: TMenuItem;
MOCharge1: TMenuItem;
POS1: TMenuItem;
N3: TMenuItem;
N5: TMenuItem;
PosSchItem: TMenuItem;
N6: TMenuItem;
PosTurnItem: TMenuItem;
DayAuditItem: TMenuItem;
N8: TMenuItem;
VIPCardItem: TMenuItem;
CardDiscountItem: TMenuItem;
CardTotalItem: TMenuItem;
CardDetailItem: TMenuItem;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ImgIorderClick(Sender: TObject);
procedure ImginstoreClick(Sender: TObject);
procedure ImgOorderClick(Sender: TObject);
procedure ImgOoutstoreClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ImgOreturnClick(Sender: TObject);
procedure ImgDcheckClick(Sender: TObject);
procedure ImgDmoveClick(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure BackupItemClick(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure C2Click(Sender: TObject);
procedure V1Click(Sender: TObject);
procedure Y1Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure MIorderClick(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure MIreturnClick(Sender: TObject);
procedure MOOrderClick(Sender: TObject);
procedure MOoutstoreClick(Sender: TObject);
procedure MOreturnClick(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Label1MouseLeave(Sender: TObject);
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label6Click(Sender: TObject);
procedure Label5Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure ImgIreturnClick(Sender: TObject);
procedure ImgpayClick(Sender: TObject);
procedure ImgchargeClick(Sender: TObject);
procedure ImgIbuildClick(Sender: TObject);
procedure ImgItearClick(Sender: TObject);
procedure ImgIpayClick(Sender: TObject);
procedure ImgOchargeClick(Sender: TObject);
procedure MDInOutClick(Sender: TObject);
procedure MIinstoreClick(Sender: TObject);
procedure MIpayClick(Sender: TObject);
procedure MOchargeClick(Sender: TObject);
procedure MDmoveClick(Sender: TObject);
procedure MDcheckClick(Sender: TObject);
procedure MIbuildClick(Sender: TObject);
procedure MItearClick(Sender: TObject);
procedure ExitItemClick(Sender: TObject);
procedure N65Click(Sender: TObject);
procedure Label7Click(Sender: TObject);
procedure MBankClick(Sender: TObject);
procedure MIetypeClick(Sender: TObject);
procedure MpaytypeClick(Sender: TObject);
procedure MIOTYPEClick(Sender: TObject);
procedure MgoodtypeClick(Sender: TObject);
procedure MUnitClick(Sender: TObject);
procedure MDeptClick(Sender: TObject);
procedure MemployClick(Sender: TObject);
procedure OprRightsItemClick(Sender: TObject);
procedure ChangePwdClick(Sender: TObject);
procedure eventLogItemClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure SuitParamsClick(Sender: TObject);
procedure RestroeitemClick(Sender: TObject);
procedure ClearSuitItemClick(Sender: TObject);
procedure DeleteItemClick(Sender: TObject);
procedure N62Click(Sender: TObject);
procedure MVendorPurchaseTotalClick(Sender: TObject);
procedure N53Click(Sender: TObject);
procedure ChangeOprItemClick(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure MDIncomeClick(Sender: TObject);
procedure MDExpenseClick(Sender: TObject);
procedure PosSchItemClick(Sender: TObject);
procedure DayAuditItemClick(Sender: TObject);
procedure BankDetailItemClick(Sender: TObject);
procedure LbeRpt1Click(Sender: TObject);
procedure LbeRpt2Click(Sender: TObject);
procedure LbeRpt4Click(Sender: TObject);
procedure LbeRpt7Click(Sender: TObject);
procedure LbeRpt5Click(Sender: TObject);
procedure LbeRpt8Click(Sender: TObject);
procedure LbeRpt1MouseLeave(Sender: TObject);
procedure PosTurnItemClick(Sender: TObject);
procedure N57Click(Sender: TObject);
procedure Image32Click(Sender: TObject);
procedure Image34Click(Sender: TObject);
procedure Image25Click(Sender: TObject);
procedure Image27Click(Sender: TObject);
procedure Image29Click(Sender: TObject);
procedure Image28Click(Sender: TObject);
procedure Image26Click(Sender: TObject);
procedure VIPCardItemClick(Sender: TObject);
procedure CardDiscountItemClick(Sender: TObject);
procedure CardTotalItemClick(Sender: TObject);
procedure CardDetailItemClick(Sender: TObject);
procedure POS1Click(Sender: TObject);
private
{ Private declarations }
nLblTag:integer;//记录当前在那个画面 如:进,销
procedure InitSystemInfo;
procedure SetMenuItems;
procedure ShowLblbyTag;
public
{ Public declarations }
end;
var
MainForm: TMainForm;
atom:word;
bPass:boolean;
implementation
uses IOrder, IInStore, IReturn,datamodule1, IBuild, ITear, information, search,
DataBack, department, employee, subarea, VendorTYPE, selVC,
Dcheck, Dmove, Ipay, Ocharge, DInOut, Good_D, client, ChgPwd, EventLog,
infoType, About, sysParam, DataClear, DataDelete, DMaterial, InfoSch,DelphiHtmlHelp,
login, DInCome, PosSch, RegCode, BasicData, PosMachine;
{$R *.DFM}
procedure TMainForm.FormShow(Sender: TObject);
begin
//self.Caption:=self.Caption+'[进 货 管 理]';
ImgIorder.Visible:=true;
ImgIorder1.Visible:=false;
Imginstore.Visible:=true;
Imginstore1.Visible:=false;
ImgIpay.Visible:=true;
ImgIpay1.Visible:=false;
ImgIreturn.Visible:=true;
ImgIreturn1.Visible:=false;
ImgOorder.Visible:=false;
ImgOorder1.Visible:=false;
ImgOoutstore.Visible:=false;
ImgOoutstore1.Visible:=false;
ImgOcharge.Visible:=false;
ImgOcharge1.Visible:=false;
ImgOreturn.Visible:=false;
ImgOreturn1.Visible:=false;
ImgDcheck.Visible:=false;
ImgDcheck1.Visible:=false;
ImgDmove.Visible:=false;
ImgDmove1.Visible:=false;
ImgIbuild.Visible:=false;
ImgItear.Visible:=false;
ImgDcombine1.Visible:=false;
Imgpay.Visible:=false;
Imgpay1.Visible:=false;
Imgcharge.Visible:=false;
Imgcharge1.Visible:=false;
image25.Visible:=false;
image26.Visible:=false;
image27.Visible:=false;
image28.Visible:=false;
image29.Visible:=false;
image32.Visible:=false;
image33.Visible:=false;
image34.Visible:=false;
ImgIorder.Top:=139;
Imginstore.Top:=139;
ImgIpay.Top:=139;
ImgIreturn.Top:=264;
ImgIright1.Top:=165;
Imgiright2.Top:=165;
ImgIdown.Top:=210;
end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//speedbutton2.Click;
end;
procedure TMainForm.ImgIorderClick(Sender: TObject);
begin
MIorder.Click;
end;
procedure TMainForm.ImginstoreClick(Sender: TObject);
begin
MIinstore.Click;
end;
procedure TMainForm.ImgOorderClick(Sender: TObject);
begin
MOOrder.Click;
end;
procedure TMainForm.ImgOoutstoreClick(Sender: TObject);
begin
MOoutstore.Click;
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
bPass:=true;
nLblTag:=0; //默认为进仓画面
{ if GlobalFindAtom('PROGRAM_RUNNING') = 0 then
atom:=GlobalAddAtom('PROGRAM_RUNNING')
else begin
MessageDlg('程 序 已 运 行!!',mtWarning,[mbOK],0);
Halt;
end;
}
end;
procedure TMainForm.FormDestroy(Sender: TObject);
begin
globaldeleteatom(atom);
end;
procedure TMainForm.ImgOreturnClick(Sender: TObject);
begin
MOreturn.Click;
end;
procedure TMainForm.ImgDcheckClick(Sender: TObject);
begin
MDcheck.Click;
end;
procedure TMainForm.ImgDmoveClick(Sender: TObject);
begin
MDmove.Click;
end;
procedure TMainForm.N8Click(Sender: TObject);
begin
infoform.infoGEh.DataSource:=DataE2.dsDept;
DataE2.tblDept.Open;
infoform.Width:=450;
infoform.Caption:='部门资料';
infoform.showmodal;
end;
procedure TMainForm.BackupItemClick(Sender: TObject);
begin
//标志在备份数据
dataE2.gTableId :=-1;
Backupform.showmodal;
end;
procedure TMainForm.N16Click(Sender: TObject);
begin
infoform.infoGEh.DataSource:=DataE2.dsUnit;
DataE2.tblUnit.Open;
infoform.Width:=450;
infoform.Caption:='单位资料';
infoform.showmodal;
end;
procedure TMainForm.C2Click(Sender: TObject);
begin
infoform.infoGEh.DataSource:=DataE2.dsCus;
DataE2.Tblclient.Open;
infoform.Width:=700;
infoform.Caption:='客户资料';
infoform.showmodal;
end;
procedure TMainForm.V1Click(Sender: TObject);
begin
infoform.infoGEh.DataSource:=DataE2.dsven;
DataE2.Tblvendor.Open;
infoform.Width:=700;
infoform.Caption:='供应商资料';
infoform.showmodal;
end;
procedure TMainForm.Y1Click(Sender: TObject);
begin
infoform.infoGEh.DataSource:=DataE2.dsemploy;
DataE2.tblOpr.Open;
infoform.Caption:='员工资料';
infoform.showmodal;
end;
procedure TMainForm.N18Click(Sender: TObject);
begin
DataE2.dsSubArea.DataSet.Open;
infoform.infoGEh.DataSource:=DataE2.dsSubArea;
infoform.Width:=450;
infoform.Caption:='区域资料';
infoform.showmodal;
end;
procedure TMainForm.N11Click(Sender: TObject);
begin
infoform.infoGEh.DataSource:=DataE2.DSGoods;
DataE2.tblGoods.Open;
infoform.Width:=700;
infoform.Caption:='货品资料';
infoform.showmodal;
end;
procedure TMainForm.MIorderClick(Sender: TObject);
begin
dataE2.gTableId :=0;
application.CreateForm(TIOrderform, IOrderform);
IOrderform.ShowModal;
IOrderform.Free;
end;
procedure TMainForm.N12Click(Sender: TObject);
begin
infoform.infoGEh.DataSource:=DataE2.dsStore;
DataE2.tblStore.Open;
infoform.Width:=450;
infoform.Caption:='仓库资料';
infoform.showmodal;
end;
procedure TMainForm.MIreturnClick(Sender: TObject);
begin
dataE2.gTableId :=2;
application.CreateForm(TIReturnForm, IReturnForm);
IReturnForm.ShowModal;
IReturnForm.Free;
end;
procedure TMainForm.MOOrderClick(Sender: TObject);
begin
dataE2.gTableId :=10;
application.CreateForm(TIOrderform, IOrderform);
IOrderform.ShowModal;
IOrderform.Free;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -