⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ufhmrp.pas

📁 飞恒进销存(超市批发)管理系统（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
ImgIbuild.Visible:=false;
ImgItear.Visible:=false;
ImgDcombine1.Visible:=false;
Imgpay.Visible:=false;
Imgpay1.Visible:=false;
Imgcharge.Visible:=false;
Imgcharge1.Visible:=false;
image25.Visible:=true;
image26.Visible:=true;
image27.Visible:=true;
image28.Visible:=true;
image29.Visible:=true;
image32.Visible:=false;
image33.Visible:=false;
image34.Visible:=false;
Image25.Top:=139;
Image29.Top:=139;
LbeRpt1.Caption:='';
LbeRpt2.Caption:='';
LbeRpt3.Caption:='';
LbeRpt4.Caption:='';
LbeRpt5.Caption:='';
LbeRpt6.Caption:='';
LbeRpt7.Caption:='';
LbeRpt8.Caption:='';
ImgRpt1.Visible:=false;
ImgRpt2.Visible:=false;
ImgRpt3.Visible:=false;
ImgRpt4.Visible:=false;
ImgRpt5.Visible:=false;
ImgRpt6.Visible:=false;
ImgRpt7.Visible:=false;
ImgRpt8.Visible:=false;
end;

procedure TMainForm.Label5Click(Sender: TObject);
begin
nLblTag:=(sender as tLabel).tag;
showLblByTag;
//self.Caption:=self.Caption+'[现金银行]';
ImgIorder.Visible:=false;
ImgIorder1.Visible:=false;
ImgIright1.Visible:=false;
ImgIright2.Visible:=false;
ImgIdown.Visible:=false;
ImgIright3.Visible:=false;
Imginstore.Visible:=false;
Imginstore1.Visible:=false;
ImgIpay.Visible:=false;
ImgIpay1.Visible:=false;
ImgIreturn.Visible:=false;
ImgIreturn1.Visible:=false;
ImgOorder.Visible:=false;
ImgOorder1.Visible:=false;
ImgOoutstore.Visible:=false;
ImgOoutstore1.Visible:=false;
ImgOcharge.Visible:=false;
ImgOcharge1.Visible:=false;
ImgOreturn.Visible:=false;
ImgOoutstore2.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:=true;
image33.Visible:=true;
image34.Visible:=true;
Image32.Top:=182;
Image34.Top:=182;
Image33.Top:=182;
LbeRpt1.Caption:='现金银行汇总表';
LbeRpt2.Caption:='';
LbeRpt3.Caption:='';
LbeRpt4.Caption:='现金银行明细表';
LbeRpt5.Caption:='';
LbeRpt6.Caption:='';
LbeRpt7.Caption:='';
LbeRpt8.Caption:='';
ImgRpt1.Visible:=true;
ImgRpt2.Visible:=false;
ImgRpt3.Visible:=false;
ImgRpt4.Visible:=true;
ImgRpt5.Visible:=false;
ImgRpt6.Visible:=false;
ImgRpt7.Visible:=false;
ImgRpt8.Visible:=false;
end;

procedure TMainForm.Label4Click(Sender: TObject);
begin
nLblTag:=(sender as tLabel).tag;
showLblByTag;
//self.Caption:=self.Caption+'[财务管理]';
ImgIorder.Visible:=false;
ImgIorder1.Visible:=false;
ImgIright1.Visible:=false;
ImgIright2.Visible:=false;
ImgIdown.Visible:=false;
ImgIright3.Visible:=false;
Imginstore.Visible:=false;
Imginstore1.Visible:=false;
ImgIpay.Visible:=false;
ImgIpay1.Visible:=false;
ImgIreturn.Visible:=false;
ImgIreturn1.Visible:=false;
ImgOorder.Visible:=false;
ImgOorder1.Visible:=false;
ImgOoutstore.Visible:=false;
ImgOoutstore1.Visible:=false;
ImgOcharge.Visible:=false;
ImgOcharge1.Visible:=false;
ImgOreturn.Visible:=false;
ImgOoutstore2.Visible:=false;
ImgOoutstore2.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:=true;
Imgpay1.Visible:=false;
Imgcharge.Visible:=true;
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;
Imgpay.Top:=182;
Imgcharge.Top:=182;
LbeRpt1.Caption:='应付款帐簿';
LbeRpt2.Caption:='';
LbeRpt3.Caption:='';
LbeRpt4.Caption:='应收款帐簿';
LbeRpt5.Caption:='';
LbeRpt6.Caption:='';
LbeRpt7.Caption:='';
LbeRpt8.Caption:='';
ImgRpt1.Visible:=true;
ImgRpt2.Visible:=false;
ImgRpt3.Visible:=false;
ImgRpt4.Visible:=true;
ImgRpt5.Visible:=false;
ImgRpt6.Visible:=false;
ImgRpt7.Visible:=false;
ImgRpt8.Visible:=false;
end;

procedure TMainForm.ShowLblbyTag;
begin
  Label1MouseLeave(Label1);
  Label1MouseLeave(Label2);
  Label1MouseLeave(Label3);
  Label1MouseLeave(Label4);
  Label1MouseLeave(Label5);
  Label1MouseLeave(Label6);
end;

procedure TMainForm.Label1Click(Sender: TObject);
begin
//self.Caption:=self.Caption+'[进 货 管 理]';
nLblTag:=(sender as tLabel).tag;
showLblByTag;

ImgIorder.Visible:=true;
ImgIorder1.Visible:=false;
ImgIright1.Visible:=true;
ImgIright2.Visible:=true;
ImgIdown.Visible:=true;
ImgIright3.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;
ImgOoutstore2.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;
ImgIdown.Left:=542;
LbeRpt1.Caption:='商品进货明细表';
LbeRpt2.Caption:='商品进货汇总表';
LbeRpt3.Caption:='应付款帐簿';
LbeRpt4.Caption:='供应商供货明细表';
LbeRpt5.Caption:='供应商供货汇总表';
LbeRpt6.Caption:='进货订单完成情况';
LbeRpt7.Caption:='业务员采购明细表';
LbeRpt8.Caption:='业务员采购汇总表';
ImgRpt1.Visible:=true;
ImgRpt2.Visible:=true;
ImgRpt3.Visible:=true;
ImgRpt4.Visible:=true;
ImgRpt5.Visible:=true;
ImgRpt6.Visible:=true;
ImgRpt7.Visible:=true;
ImgRpt8.Visible:=true;
end;

procedure TMainForm.Label2Click(Sender: TObject);
begin
nLblTag:=(sender as tLabel).tag;
showLblByTag;
//self.Caption:=self.Caption+'[销售管理]'
ImgIorder.Visible:=false;
ImgIorder1.Visible:=false;
ImgIright1.Visible:=true;
ImgIright2.Visible:=true;
ImgIdown.Visible:=true;
ImgIright3.Visible:=true;
Imginstore.Visible:=false;
Imginstore1.Visible:=false;
ImgIpay.Visible:=false;
ImgIpay1.Visible:=false;
ImgIreturn.Visible:=false;
ImgIreturn1.Visible:=false;
ImgOorder.Visible:=true;
ImgOorder1.Visible:=false;
ImgOoutstore.Visible:=true;
ImgOoutstore1.Visible:=false;
ImgOcharge.Visible:=true;
ImgOcharge1.Visible:=false;
ImgOreturn.Visible:=true;
ImgOoutstore2.Visible:=true;
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;
ImgOorder.Top:=139;
ImgOoutstore.Top:=139;
ImgOcharge.Top:=139;
ImgOreturn.Top:=280;
ImgOoutstore2.Top:=280;
ImgIdown.Top:=230;
ImgIright3.Top:=310;
ImgIdown.Left:=646;
LbeRpt1.Caption:='商品销售明细表';
LbeRpt2.Caption:='商品销售汇总表';
LbeRpt3.Caption:='应收款帐簿';
LbeRpt4.Caption:='客户销售明细表';
LbeRpt5.Caption:='客户销售汇总表';
LbeRpt6.Caption:='销售订单完成情况';
LbeRpt7.Caption:='业务员销售明细表';
LbeRpt8.Caption:='业务员销售汇总表';
ImgRpt1.Visible:=true;
ImgRpt2.Visible:=true;
ImgRpt3.Visible:=true;
ImgRpt4.Visible:=true;
ImgRpt5.Visible:=true;
ImgRpt6.Visible:=true;
ImgRpt7.Visible:=true;
ImgRpt8.Visible:=true;
end;

procedure TMainForm.Label3Click(Sender: TObject);
begin
nLblTag:=(sender as tLabel).tag;
showLblByTag;
//self.Caption:=self.Caption+'[库存管理]'
ImgIorder.Visible:=false;
ImgIorder1.Visible:=false;
ImgIright1.Visible:=false;
ImgIright2.Visible:=false;
ImgIdown.Visible:=false;
ImgIright3.Visible:=false;
Imginstore.Visible:=false;
Imginstore1.Visible:=false;
ImgIpay.Visible:=false;
ImgIpay1.Visible:=false;
ImgIreturn.Visible:=false;
ImgIreturn1.Visible:=false;
ImgOorder.Visible:=false;
ImgOorder1.Visible:=false;
ImgOoutstore.Visible:=false;
ImgOoutstore1.Visible:=false;
ImgOcharge.Visible:=false;
ImgOcharge1.Visible:=false;
ImgOreturn.Visible:=false;
ImgOoutstore2.Visible:=false;
ImgOreturn1.Visible:=false;
ImgDcheck.Visible:=true;
ImgDcheck1.Visible:=false;
ImgDmove.Visible:=true;
ImgDmove1.Visible:=false;
ImgIbuild.Visible:=true;
ImgItear.Visible:=true;
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;
LbeRpt1.Caption:='当前库存明细表';
LbeRpt2.Caption:='商品货位报表';
LbeRpt3.Caption:='';
LbeRpt4.Caption:='库存不足报警';
LbeRpt5.Caption:='库存积压报警';
LbeRpt6.Caption:='';
LbeRpt7.Caption:='库存数量汇总表';
LbeRpt8.Caption:='';
ImgRpt1.Visible:=true;
ImgRpt2.Visible:=true;
ImgRpt3.Visible:=false;
ImgRpt4.Visible:=true;
ImgRpt5.Visible:=true;
ImgRpt6.Visible:=false;
ImgRpt7.Visible:=true;
ImgRpt8.Visible:=false;
end;


procedure TMainForm.ExitItemClick(Sender: TObject);
begin
  close;
end;

procedure TMainForm.N65Click(Sender: TObject);
begin
  application.CreateForm(TGoodDform, GoodDform);
  GoodDform.ShowModal;
  GoodDform.Free;
end;

procedure TMainForm.Label7Click(Sender: TObject);
begin
  close;
end;

procedure TMainForm.MBankClick(Sender: TObject);
begin
  infoform.infoGEh.DataSource:=DataE2.dsBank;
  infoform.Width:=480;
  infoform.Caption:='现金银行';
  infoform.showmodal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.MIetypeClick(Sender: TObject);
begin
  //infoform.infoGEh.DataSource:=DataE2.dsIetype;
  //infoform.Width:=480;
  //infoform.Caption:='收入支出类别';
  //infoform.showmodal;
  TreeIETypefrm.showmodal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.MpaytypeClick(Sender: TObject);
begin
  infoform.infoGEh.DataSource:=DataE2.dspaytype;
  infoform.Width:=480;
  infoform.Caption:='收付款方式';
  infoform.showmodal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.MIOTYPEClick(Sender: TObject);
begin
  infoform.infoGEh.DataSource:=DataE2.dsIOTYPE;
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -