fzct.pas

进销存开发系统

  Application.CreateForm(TF_yxssdz, F_yxssdz);
  F_yxssdz.Caption:='应收应付';
  F_yxssdz.ShowModal;
  F_yxssdz.Free;
end;

procedure TF_zct.Action26Execute(Sender: TObject);
begin
  //
end;

procedure TF_zct.Action27Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_myunits, F_myunits);
  F_myunits.ShowModal;
  F_myunits.Free;
end;

procedure TF_zct.Action28Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_users, F_users);
  F_users.ShowModal;
  F_users.Free;
end;

procedure TF_zct.Action29Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_back, F_back);
  F_back.ShowModal;
  F_back.Free;
end;

procedure TF_zct.Action30Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_restore, F_restore);
  F_restore.ShowModal;
  F_restore.Free;
end;

procedure TF_zct.Action31Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_gywldz, F_gywldz);
  F_gywldz.ShowModal;
  F_gywldz.Free;
end;

procedure TF_zct.Action32Execute(Sender: TObject);
begin
  //
end;

procedure TF_zct.Action34Execute(Sender: TObject);
begin
  //
end;

procedure TF_zct.Action35Execute(Sender: TObject);
begin
  //启动Word
  try
    ShellExecute(handle,'open','winword',nil,nil,SW_SHOWNORMAL);
  except
    Application.MessageBox('没找到Word程序，请确认已安装','提示',mb_ok);
  end;
end;

procedure TF_zct.Action36Execute(Sender: TObject);
begin
  //启动Excel
  try
    ShellExecute(handle,'open','excel',nil,nil,SW_SHOWNORMAL);
  except
    Application.MessageBox('没找到Excel程序，请确认已安装','提示',mb_ok);
  end;
end;

procedure TF_zct.Action38Execute(Sender: TObject);
begin
  //启动计算器
  try
    ShellExecute(handle,'open','calc.exe',nil,nil,SW_SHOWNORMAL);
  except
    Application.MessageBox('没找到计算器程序，请确认已安装','提示',mb_ok);
  end;
end;

procedure TF_zct.Action39Execute(Sender: TObject);
begin
  Application.CreateForm(TF_display, F_display);
  F_display.ShowModal;
  F_display.Free;
end;

procedure TF_zct.Action40Execute(Sender: TObject);
begin
  //
end;

procedure TF_zct.Action41Execute(Sender: TObject);
begin
  //
  Application.HelpFile := 'imahelp.hlp';
  Application.HelpCommand(HELP_FINDER, 0);
end;

procedure TF_zct.Action42Execute(Sender: TObject);
begin
  //
end;

procedure TF_zct.Action43Execute(Sender: TObject);
begin
  //
  
end;

procedure TF_zct.Action44Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_yxszk, F_yxszk);
  F_yxszk.ShowModal;
  F_yxszk.Free;
end;

procedure TF_zct.FormShow(Sender: TObject);
begin
  Application.CreateForm(TF_log, F_log);
  F_log.ShowModal;
  F_log.Free;
  wf:=0;
  jt:=0;
  with statusbar1 do
  begin
    checkbox1.Parent:=statusbar1;
    checkbox1.Top:=4;
    checkbox1.Height:=Height-4;
    checkbox1.Width:=75;
    checkbox1.Left:=Panels[0].Width+Panels[1].Width+Panels[2].Width+10;
    checkbox1.Visible:=true;
  end;
end;

procedure TF_zct.Action46Execute(Sender: TObject);
begin
//
end;

procedure TF_zct.Action47Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_jhfx, F_jhfx);
  F_jhfx.ShowModal;
  F_jhfx.Free;
end;

procedure TF_zct.Action50Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_sellbmp, F_sellbmp);
  F_sellbmp.ShowModal;
  F_sellbmp.Free;
end;

procedure TF_zct.Action52Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_xscb, F_xscb);
  F_xscb.ShowModal;
  F_xscb.Free;
end;

procedure TF_zct.Action53Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_kczk, F_kczk);
  F_kczk.ShowModal;
  F_kczk.Free;
end;

procedure TF_zct.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   if Application.MessageBox('是否退出系统？','提示',mb_yesno)=id_no then
    Canclose:=False;
end;

procedure TF_zct.CheckBox1Click(Sender: TObject);
begin
  if checkbox1.Checked=True then
    statusbar1.Panels[2].Text:=datetimetostr(now)
  else
    statusbar1.panels[2].text:=datetostr(date());
end;

procedure TF_zct.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_F5 then Close;
end;


procedure TF_zct.SpeedButton3Click(Sender: TObject);
begin
  huopin.BringToFront;
end;

procedure TF_zct.SpeedButton2Click(Sender: TObject);
begin
  moneym.BringToFront;
end;

procedure TF_zct.SpeedButton1Click(Sender: TObject);
begin
  kumanage.BringToFront;
end;

procedure TF_zct.SpeedButton18Click(Sender: TObject);
begin
  baseinfo.BringToFront;
end;

procedure TF_zct.SpeedButton19Click(Sender: TObject);
begin
  panel2.BringToFront;
end;

procedure TF_zct.SpeedButton24Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_myunits, F_myunits);
  F_myunits.ShowModal;
  F_myunits.Free;
end;

procedure TF_zct.SpeedButton25Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_users, F_users);
  F_users.ShowModal;
  F_users.Free;
end;

procedure TF_zct.SpeedButton27Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_restore, F_restore);
  F_restore.ShowModal;
  F_restore.Free;
end;

procedure TF_zct.SpeedButton28Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_back, F_back);
  F_back.ShowModal;
  F_back.Free;
end;

procedure TF_zct.SpeedButton26Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_gywldz, F_gywldz);
  F_gywldz.ShowModal;
  F_gywldz.Free;
end;

procedure TF_zct.SpeedButton5Click(Sender: TObject);
begin
  //收款
  Application.CreateForm(TF_sk, F_sk);
  F_sk.ShowModal;
  F_sk.Free;
end;

procedure TF_zct.SpeedButton8Click(Sender: TObject);
begin
  //付款
  Application.CreateForm(TF_fk, F_fk);
  F_fk.ShowModal;
  F_fk.Free;
end;

procedure TF_zct.SpeedButton15Click(Sender: TObject);
begin
  //现金费用
  Application.CreateForm(TF_xjfy, F_xjfy);
  F_xjfy.ShowModal;
  F_xjfy.Free;
end;

procedure TF_zct.SpeedButton7Click(Sender: TObject);
begin
  //一般机费用
  Application.CreateForm(TF_ybfy, F_ybfy);
  F_ybfy.ShowModal;
  F_ybfy.Free;
end;

procedure TF_zct.SpeedButton16Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_yxssdz, F_yxssdz);
  F_yxssdz.Caption:='与供应商对账';
  F_yxssdz.ShowModal;
  F_yxssdz.Free;
end;

procedure TF_zct.SpeedButton17Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_yxssdz, F_yxssdz);
  F_yxssdz.Caption:='与代理商对账';
  F_yxssdz.ShowModal;
  F_yxssdz.Free;
end;

procedure TF_zct.SpeedButton12Click(Sender: TObject);
begin
  //进货单录入
  Application.CreateForm(TF_jhd, F_jhd);
  F_jhd.ShowModal;
  F_jhd.Free;
end;

procedure TF_zct.SpeedButton11Click(Sender: TObject);
begin
  //销售单录入
  Application.CreateForm(TF_xsd, F_xsd);
  F_xsd.ShowModal;
  F_xsd.Free;
end;

procedure TF_zct.SpeedButton13Click(Sender: TObject);
begin
  //进货退货单录入
  Application.CreateForm(TF_jhthd, F_jhthd);
  F_jhthd.ShowModal;
  F_jhthd.Free;
end;

procedure TF_zct.SpeedButton14Click(Sender: TObject);
begin
  //销售退货单录入
  Application.CreateForm(TF_xsthd, F_xsthd);
  F_xsthd.ShowModal;
  F_xsthd.Free;
end;

procedure TF_zct.SpeedButton20Click(Sender: TObject);
begin
  //库存商品
  Application.CreateForm(TF_kcsp, F_kcsp);
  F_kcsp.ShowModal;
  F_kcsp.Free;
end;

procedure TF_zct.SpeedButton22Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_zycx, F_zycx);
  F_zycx.ShowModal;
  F_zycx.Free;
end;

procedure TF_zct.SpeedButton23Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_fylx, F_fylx);
  F_fylx.ShowModal;
  F_fylx.Free;
end;

procedure TF_zct.SpeedButton21Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_wldw, F_wldw);
  F_wldw.ShowModal;
  F_wldw.Free;
end;

procedure TF_zct.SpeedButton9Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_kczk, F_kczk);
  F_kczk.ShowModal;
  F_kczk.Free;
end;

procedure TF_zct.SpeedButton4Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_ygysdz, F_ygysdz);
  F_ygysdz.ShowModal;
  F_ygysdz.Free;
end;

procedure TF_zct.SpeedButton6Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_kcpd, F_kcpd);
  F_kcpd.ShowModal;
  F_kcpd.Free;
end;

procedure TF_zct.SpeedButton10Click(Sender: TObject);
begin
  //
  Application.CreateForm(TF_kcbd, F_kcbd);
  F_kcbd.ShowModal;
  F_kcbd.Free;
end;

end.