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

📄 ufhmrp1.pas

📁 飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
{
  application.CreateForm(TOOrderform, OOrderform);
  OOrderform.ShowModal;
  OOrderform.Free;
}
end;

procedure TMainForm.MOoutstoreClick(Sender: TObject);
begin
  dataE2.gTableId :=11;
  application.CreateForm(TIInstoreForm, IInstoreForm);
  IInstoreForm.ShowModal;
  IInstoreForm.Free;
end;

procedure TMainForm.MOreturnClick(Sender: TObject);
begin
  dataE2.gTableId :=12;
  application.CreateForm(TIReturnForm, IReturnForm);
  IReturnForm.ShowModal;
  IReturnForm.Free;
end;

procedure TMainForm.ImgIreturnClick(Sender: TObject);
begin
MIreturn.Click;
end;

procedure TMainForm.ImgpayClick(Sender: TObject);
begin
  MIPay.Click;
end;

procedure TMainForm.ImgchargeClick(Sender: TObject);
begin
MOcharge.Click;
end;

procedure TMainForm.ImgIbuildClick(Sender: TObject);
begin
MIbuild.Click;
end;

procedure TMainForm.ImgItearClick(Sender: TObject);
begin
MItear.Click;
end;

procedure TMainForm.ImgIpayClick(Sender: TObject);
begin
MIpay.Click;
end;

procedure TMainForm.ImgOchargeClick(Sender: TObject);
begin
MOcharge.Click;
end;

procedure TMainForm.MDInOutClick(Sender: TObject);
begin
  dataE2.gTableId :=26;
  application.CreateForm(TDInOutForm, DInOutForm);
  DInOutForm.ShowModal;
  DInOutForm.Free;
end;

procedure TMainForm.MIinstoreClick(Sender: TObject);
begin
  dataE2.gTableId :=1;
  application.CreateForm(TIInstoreForm, IInstoreForm);
  IInstoreForm.ShowModal;
  IInstoreForm.Free;
end;

procedure TMainForm.MIpayClick(Sender: TObject);
begin
  dataE2.gTableId :=3;
  application.CreateForm(TIpayForm, IpayForm);
  IpayForm.ShowModal;
  IpayForm.Free;
end;

procedure TMainForm.MOchargeClick(Sender: TObject);
begin
  dataE2.gTableId :=13;
  application.CreateForm(TIpayForm, IpayForm);
  IpayForm.ShowModal;
  IpayForm.Free;

{  dataE2.gTableId :=13;
  application.CreateForm(TOchargeForm, OchargeForm);
  OchargeForm.ShowModal;
  OchargeForm.Free;}
end;

procedure TMainForm.MDmoveClick(Sender: TObject);
begin
  dataE2.gTableId :=22;
  application.CreateForm(TdMoveForm, DMoveForm);
  DMoveForm.ShowModal;
  dMoveForm.Free;
end;

procedure TMainForm.MDcheckClick(Sender: TObject);
begin
  dataE2.gTableId :=21;
  application.CreateForm(TDCheckForm, DCheckForm);
  DCheckForm.ShowModal;
  DCheckForm.Free;
end;

procedure TMainForm.MIbuildClick(Sender: TObject);
begin
  dataE2.gTableId :=24;
  application.CreateForm(TItearForm, ITearForm);
  ItearForm.ShowModal;
  ItearForm.Free;
end;

procedure TMainForm.MItearClick(Sender: TObject);
begin
  dataE2.gTableId :=25;
  application.CreateForm(TItearForm, ITearForm);
  ItearForm.ShowModal;
  ItearForm.Free;
end;

procedure TMainForm.N62Click(Sender: TObject);
begin
  dataE2.gTableId :=30;
  application.CreateForm(TDMaterialForm, DMaterialForm);
  DMaterialForm.ShowModal;
  DMaterialForm.Free;
end;

procedure TMainForm.N20Click(Sender: TObject);
begin
//  ShellAbout(Application.Handle, PChar(application.MainForm.Caption), '',
//    Application.Icon.Handle);
  AboutBox.showModal;
end;

procedure TMainForm.N25Click(Sender: TObject);
begin
DataE2.dsclienttype.DataSet.Open;
infoform.infoGEh.DataSource:=DataE2.dsclienttype;
infoform.Width:=450;
infoform.Caption:='客户类别';
infoform.showmodal;
end;

procedure TMainForm.N26Click(Sender: TObject);
begin
DataE2.dsvdtype.DataSet.Open;
infoform.infoGEh.DataSource:=DataE2.dsvdtype;
infoform.Width:=450;
infoform.Caption:='供应商类别';
infoform.showmodal;
end;

procedure TMainForm.Label1MouseLeave(Sender: TObject);
begin
  if  (sender as Tlabel).tag=nLblTag then
    (sender as Tlabel).Font.Color:=clBlue
  else
    (sender as Tlabel).Font.Color:=clWindowText;

  (sender as Tlabel).Cursor:=crdefault;
end;

procedure TMainForm.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
(sender as Tlabel).Font.Color:=clRed;
(sender as Tlabel).Cursor:=crHandPoint;
end;

procedure TMainForm.Label6Click(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;
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;
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:=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;
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;
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;
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;
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;
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;
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;
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;
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:=264;
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;
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;
ImgOreturn1.Visible:=false;
ImgDcheck.Visible:=true;
ImgDcheck1.Visible:=false;
ImgDmove.Visible:=true;
ImgDmove1.Visible:=false;
ImgIbuild.Visible:=true;
ImgItear.Visible:=true;
123

⌨️ 快捷键说明

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