fzct.pas

功能强大,画面精致.是一款不可多得的进销存管理系统 acess数据库,用户名:yuansheng 密码:yuansheng 建议在xp系统下运行。

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.TreeView1DblClick(Sender: TObject);
begin
  if TreeView1.Selected.SelectedIndex=11 then
     Action2.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=12 then
     Action3.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=21 then
     Action5.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=22 then
     Action6.OnExecute(Sender);

  if TreeView1.Selected.SelectedIndex=31 then
     Action53.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=32 then
     Action8.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=33 then
     Action9.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=34 then
     Action20.OnExecute(Sender);

  if TreeView1.Selected.SelectedIndex=41 then
     Action11.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=42 then
     Action12.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=43 then
     Action13.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=44 then
     Action14.OnExecute(Sender);

  if TreeView1.Selected.SelectedIndex=51 then
     Action16.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=52 then
     Action17.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=53 then
     Action18.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=54 then
     Action19.OnExecute(Sender);

  if TreeView1.Selected.SelectedIndex=61 then
     Action22.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=62 then
     Action23.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=63 then
     Action24.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=64 then
     Action25.OnExecute(Sender);

  if TreeView1.Selected.SelectedIndex=71 then
     Action47.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=72 then
     Action50.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=73 then
     Action52.OnExecute(Sender);

  if TreeView1.Selected.SelectedIndex=81 then
     Action27.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=82 then
     Action28.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=83 then
     Action29.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=84 then
     Action30.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=85 then
     Action31.OnExecute(Sender);

  if TreeView1.Selected.SelectedIndex=91 then
     Action35.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=92 then
     Action36.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=93 then
     Action38.OnExecute(Sender);

  if TreeView1.Selected.SelectedIndex=101 then
     Action41.OnExecute(Sender);
  if TreeView1.Selected.SelectedIndex=102 then
     Action44.OnExecute(Sender);
end;

procedure TF_zct.FormCreate(Sender: TObject);
begin
  TreeView1.Items.Item[0].Expanded:=True;
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.