fzct.pas

系统目标：通过库存管理系统

  Application.CreateForm(TF_zycx, F_zycx);
  F_zycx.ShowModal;
  F_zycx.Free;
end;

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

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

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

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

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

procedure TF_zct.Action24Execute(Sender: TObject);
begin
  //
  Application.CreateForm(TF_fyzc, F_fyzc);
  F_fyzc.ShowModal;
  F_fyzc.Free;
end;

procedure TF_zct.Action25Execute(Sender: TObject);
begin
  //
  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.SpeedButton25Click(Sender: TObject);
begin
  //

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.SpeedButton1Click(Sender: TObject);
begin
  Action2.OnExecute(sender);
end;

procedure TF_zct.SpeedButton2Click(Sender: TObject);
begin
  Action5.OnExecute(sender);
end;

procedure TF_zct.SpeedButton3Click(Sender: TObject);
begin
  Action53.OnExecute(sender);
end;

procedure TF_zct.SpeedButton4Click(Sender: TObject);
begin
  Action16.OnExecute(sender);
end;

procedure TF_zct.SpeedButton5Click(Sender: TObject);
begin
  Action47.OnExecute(sender);
end;

procedure TF_zct.SpeedButton6Click(Sender: TObject);
begin
  Action50.OnExecute(sender);
end;

procedure TF_zct.SpeedButton7Click(Sender: TObject);
begin
  Action29.OnExecute(sender);
end;

end.