ufhmrp.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

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;
ImgIright3.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;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Application.MessageBox('欢迎使用本系统！'+char(13)+'真的要退出吗？',
                  '确定',MB_YESNO + MB_ICONQUESTION) = IDYES then
     Action := caFree
  else  Action := caNone;
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.Caption := '请选择正确的路径 - 数据备份';
  Backupform.cmdRestore.Visible:=false;
  Backupform.cmdBackup.Visible:=true;
  Backupform.showmodal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
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;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.V1Click(Sender: TObject);
begin
  infoform.infoGEh.DataSource:=DataE2.dsven;
  DataE2.Tblvendor.Open;
  infoform.Width:=700;
  infoform.Caption:='供应商资料';
  infoform.showmodal; 
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
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:=480;
  infoform.Caption:='区域资料';
  infoform.showmodal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
  DataE2.tblGoods.Close;
  DataE2.tblGoods.SQL.Clear;
  DataE2.tblGoods.SQL.Add('select * from goods where TypeCode like :TypeCode');
  infoform.infoGEh.DataSource:=DataE2.DSGoods;
  DataE2.tblGoods.Parameters[0].Value:='%';
  DataE2.tblGoods.Open;
  infoform.Width:=700;
  infoform.Caption:='货品资料';
  infoform.showmodal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.MIorderClick(Sender: TObject);
begin
  dataE2.gTableId :=0;
  SelectGoodsForm.NewStatus:='I';
  application.CreateForm(TIOrderform, IOrderform);
  IOrderform.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  IOrderform.Free;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
  infoform.infoGEh.DataSource:=DataE2.dsStore;
  DataE2.tblStore.Open;
  infoform.Width:=480;
  infoform.Caption:='仓库资料';
  infoform.showmodal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.MIreturnClick(Sender: TObject);
begin
  dataE2.gTableId :=2;
  SelectGoodsForm.NewStatus:='I';
  application.CreateForm(TIReturnForm, IReturnForm);
  IReturnForm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  IReturnForm.Free;
end;

procedure TMainForm.MOOrderClick(Sender: TObject);
begin
  dataE2.gTableId :=10;
  SelectGoodsForm.NewStatus:='O';
  application.CreateForm(TIOrderform, IOrderform);
  IOrderform.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  IOrderform.Free;
{
  application.CreateForm(TOOrderform, OOrderform);
  OOrderform.ShowModal;
  OOrderform.Free;
}
end;

procedure TMainForm.MOoutstoreClick(Sender: TObject);
begin
  dataE2.gTableId :=11;
  DataE2.bBatchSale:=false;
  SelectGoodsForm.NewStatus:='O';
  application.CreateForm(TIInstoreForm, IInstoreForm);
  IInstoreForm.Caption:='销售开单';
  IInstoreForm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  IInstoreForm.Free;
end;

procedure TMainForm.MOreturnClick(Sender: TObject);
begin
  dataE2.gTableId :=12;
  SelectGoodsForm.NewStatus:='O';
  application.CreateForm(TIReturnForm, IReturnForm);
  IReturnForm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  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;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  DInOutForm.Free;
end;

procedure TMainForm.MIinstoreClick(Sender: TObject);
begin
  dataE2.gTableId :=1;
  DataE2.bBatchSale:=false;
  SelectGoodsForm.NewStatus:='I';
  application.CreateForm(TIInstoreForm, IInstoreForm);
  IInstoreForm.Caption:='进货开单';
  IInstoreForm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  IInstoreForm.Free;
end;

procedure TMainForm.MIpayClick(Sender: TObject);
begin
  dataE2.gTableId :=3;
  application.CreateForm(TIpayForm, IpayForm);
  IpayForm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  IpayForm.Free;
end;

procedure TMainForm.MOchargeClick(Sender: TObject);
begin
  dataE2.gTableId :=13;
  application.CreateForm(TIpayForm, IpayForm);
  IpayForm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  IpayForm.Free;

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

procedure TMainForm.MDmoveClick(Sender: TObject);
begin
  dataE2.gTableId :=22;
  SelectGoodsForm.NewStatus:='I';
  application.CreateForm(TdMoveForm, DMoveForm);
  DMoveForm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  dMoveForm.Free;
end;

procedure TMainForm.MDcheckClick(Sender: TObject);
begin
  dataE2.gTableId :=21;
  SelectGoodsForm.NewStatus:='I';
  application.CreateForm(TDCheckForm, DCheckForm);
  DCheckForm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  DCheckForm.Free;
end;

procedure TMainForm.MIbuildClick(Sender: TObject);
begin
  dataE2.gTableId :=24;
  application.CreateForm(TItearForm, ITearForm);
  ItearForm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  ItearForm.Free;
end;

procedure TMainForm.MItearClick(Sender: TObject);
begin
  dataE2.gTableId :=25;
  application.CreateForm(TItearForm, ITearForm);
  ItearForm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  ItearForm.Free;
end;

procedure TMainForm.N62Click(Sender: TObject);
begin
  dataE2.gTableId :=30;
  application.CreateForm(TDMaterialForm, DMaterialForm);
  DMaterialForm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  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:=480;
  infoform.Caption:='客户类别';
  infoform.showmodal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.N26Click(Sender: TObject);
begin
  DataE2.dsvdtype.DataSet.Open;
  infoform.infoGEh.DataSource:=DataE2.dsvdtype;
  infoform.Width:=480;
  infoform.Caption:='供应商类别';
  infoform.showmodal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

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

  (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;
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;