📄 ufhmrp.pas

📁 飞恒进销存(超市批发)管理系统（含源程序）语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上
💻 PAS
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
var
  nRptTag:integer;
begin
  if CheckRights(LbeRpt8.Caption) then
  begin
    case nLblTag of
      0: nRptTag:=54;
      1: nRptTag:=74;
      else nRptTag:=5;  //no use
    end;
    InfoSchForm.xTableId :=nRpttag;
    infoSchForm.caption  :=(sender as tLabel).Caption ;
    InfoSchForm.showModal;
  end;
end;

procedure TMainForm.LbeRpt1MouseLeave(Sender: TObject);
begin
  (sender as Tlabel).Font.Color:=clWindowText;
  (sender as Tlabel).Cursor:=crdefault;
end;

procedure TMainForm.PosTurnItemClick(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.N57Click(Sender: TObject);
begin
  RegCodeForm.showModal;
end;

procedure TMainForm.Image32Click(Sender: TObject);
begin
  MDExpense.Click;  
end;

procedure TMainForm.Image34Click(Sender: TObject);
begin
  MDIncome.Click;
end;

procedure TMainForm.Image25Click(Sender: TObject);
begin
  BackupItem.Click;
end;

procedure TMainForm.Image27Click(Sender: TObject);
begin
  ChangePwd.Click;
end;

procedure TMainForm.Image29Click(Sender: TObject);
begin
  Restroeitem.Click;
end;

procedure TMainForm.Image28Click(Sender: TObject);
begin
  OprRightsItem.Click;
end;

procedure TMainForm.Image26Click(Sender: TObject);
begin
  SuitParams.Click;
end;

procedure TMainForm.VIPCardItemClick(Sender: TObject);
begin
  BasicdataForm.xTableId :=(sender as TMenuItem).tag;
  BasicdataForm.caption  :=(sender as TMenuItem).Caption ;
  BasicdataForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.CardDiscountItemClick(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.CardTotalItemClick(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.CardDetailItemClick(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.POS1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TPosMachineForm,PosMachineForm);
    PosMachineForm.showmodal;
    DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  finally
    PosMachineForm.free;
  end;
end;

procedure TMainForm.N33Click(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.N82Click(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);

end;

procedure TMainForm.operatortotalClick(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.MOoutstore1Click(Sender: TObject);
begin
  dataE2.gTableId :=11;
  DataE2.bBatchSale:=true;
  SelectGoodsForm.NewStatus:='O';

  if dataE2.HotelSpe = ONAGas then
  begin
    dataE2.aTblname[11]:='IO_Gas';
    application.CreateForm(TIOGasForm, IOGasForm);
    IOGasForm.Caption:='提货单';
    IOGasForm.ShowModal;
    DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
    IOGasForm.Free;
  end else
  begin
    application.CreateForm(TIInstoreForm, IInstoreForm);
    IInstoreForm.Caption:='现款销售';
    IInstoreForm.ShowModal;
    DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
    IInstoreForm.Free;
  end;
end;

procedure TMainForm.ImgOoutstore2Click(Sender: TObject);
begin
  MOoutstore1.Click;
end;

function TMainForm.CheckRights(aName:string): Boolean;
var
  sSql:string;
begin
  sSql:='select * from Rights where number=:number and name=:name';
  with dataE2.QueryTmp do
  begin
    close;
    SQL.Clear;
    SQL.Add(sSql);
    Parameters[0].Value:=dataE2.myNumber;
    Parameters[1].Value:=aName;
    open;
    Result:=FieldByName('IsPermit').AsBoolean;
    if not FieldByName('IsPermit').AsBoolean then
      Application.MessageBox('你没有授权使用该功能！','提示',64);
  end;
end;

procedure TMainForm.N34Click(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.N83Click(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  StatusBar.Panels[2].Text:=formatdatetime('dddddd dddd tt',now);
end;

procedure TMainForm.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  StatusBar.Panels[0].Width:=StatusBar.Width-350;
end;

procedure TMainForm.LbeRpt6Click(Sender: TObject);
var
  nRptTag:integer;
begin
  if CheckRights(LbeRpt5.Caption) then
  begin
    case nLblTag of
      0: nRptTag:=57;
      1: nRptTag:=82;
      else nRptTag:=5;  //no use
    end;
    InfoSchForm.xTableId :=nRpttag;
    infoSchForm.caption  :=(sender as tLabel).Caption ;
    InfoSchForm.showModal;
  end;
end;

procedure TMainForm.Z1Click(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.N86Click(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.V4Click(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.N85Click(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.LbeRpt3Click(Sender: TObject);
var
  nRptTag:integer;
begin
  if CheckRights(LbeRpt5.Caption) then
  begin
    case nLblTag of
      0: nRptTag:=58;
      1: nRptTag:=83;
      else nRptTag:=5;  //no use
    end;
    InfoSchForm.xTableId :=nRpttag;
    infoSchForm.caption  :=(sender as tLabel).Caption ;
    InfoSchForm.showModal;
  end;
end;

procedure TMainForm.ChangeSuitClick(Sender: TObject);
begin
  if AccountForm.showmodal<>mrCancel then
    DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.lblGoodsClick(Sender: TObject);
begin
  N11.Click;
end;

procedure TMainForm.lblClientClick(Sender: TObject);
begin
 C2.Click;
end;

procedure TMainForm.lblVendorClick(Sender: TObject);
begin
  V1.Click;
end;

procedure TMainForm.lblEmployeeClick(Sender: TObject);
begin
  Memploy.Click;
end;

procedure TMainForm.lblGoodsMouseLeave(Sender: TObject);
begin
  (sender as Tlabel).Font.Color:=clWhite;
end;

procedure TMainForm.lblGoodsMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  (sender as Tlabel).Font.Color:=clYellow;
end;

procedure TMainForm.N27Click(Sender: TObject);
begin
  InfoNewForm.xTableId :=(sender as TMenuItem).tag;
  infoNewForm.caption  :=(sender as TMenuItem).Caption ;
  InfoNewForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.DRepairItemClick(Sender: TObject);
begin
  dataE2.gTableId :=18;
  SelectGoodsForm.NewStatus:='O';
  application.CreateForm(TDRepairForm, DRepairForm);
  DRepairForm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  DRepairForm.Free;
end;

procedure TMainForm.N28Click(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.ShowInfoSchForm(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.N39Click(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.N37Click(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

procedure TMainForm.N42Click(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
end;

procedure TMainForm.N45Click(Sender: TObject);
begin
  dataE2.gTableId :=1;
  DataE2.bBatchSale:=true;
  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.AuditItemClick(Sender: TObject);
begin
  application.CreateForm(TAuditFrm, AuditFrm);
  AuditFrm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  AuditFrm.Free;
end;

procedure TMainForm.N47Click(Sender: TObject);
begin
  application.CreateForm(TPosRightfrm, PosRightfrm);
  PosRightfrm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  PosRightfrm.Free;
end;

procedure TMainForm.N70Click(Sender: TObject);
begin
  application.CreateForm(TBankInOutFrm, BankInOutFrm);
  BankInOutFrm.ShowModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
  BankInOutFrm.Free;
end;

procedure TMainForm.BankTotalItemClick(Sender: TObject);
begin
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
end;

procedure TMainForm.N43Click(Sender: TObject);
begin
  dataE2.gTableId :=89;
  InfoSchForm.xTableId :=(sender as TMenuItem).tag;
  infoSchForm.caption  :=(sender as TMenuItem).Caption ;
  InfoSchForm.showModal;
  DataE2.InsEvent((sender as TMenuItem).Caption,'正常进入'+(sender as TMenuItem).Caption);
end;

end.
上一页 1 2 3 45
⌨️ 快捷键说明

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