📄 main1.pas

📁 delphi开发的委托加工管理系统源代码
💻 PAS
字号:
unit main1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, ComCtrls, ToolWin, ImgList, WinSkinData, bscalc,
  StdCtrls, OleCtrls, SHDocVw_EWB, EmbeddedWB;

type
  Tmain = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton9: TToolButton;
    ToolButton11: TToolButton;
    ToolButton13: TToolButton;
    ImageList1: TImageList;
    ToolButton4: TToolButton;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    Image1: TImage;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    ToolButton2: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton10: TToolButton;
    ToolButton12: TToolButton;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    bsSkinCalculator1: TbsSkinCalculator;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    Image2: TImage;
    ToolButton16: TToolButton;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    procedure N6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure Panel1DockDrop(Sender: TObject; Source: TDragDockObject; X,
      Y: Integer);
    procedure N37Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N46Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation

uses ck1, rk1, ql1, jglb1, cklb1, gyszl1, wel, wf1, pas1, kccx1, zggl1,
  gzgl1, gszl1, gy1, log1, adodm, yjql1, rkdg1, ckdcx1, wait1,
  gzcx1, djgx1, sgzl1, xjrj1, help1, kcpd1, skin1;

{$R *.dfm}

procedure Tmain.N6Click(Sender: TObject);
begin
if (messagedlg('你确实要退出吗？',mtconfirmation,[mbyes,mbno],0))=mryes then
close
end;

procedure Tmain.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[0].Text:='日 期：'+datetostr(date);
statusbar1.Panels[1].Text:='时 间：'+timetostr(now)
end;

procedure Tmain.ToolButton4Click(Sender: TObject);
begin
if (messagedlg('你确实要退出吗？',mtconfirmation,[mbyes,mbno],0))=mryes then
close
end;

procedure Tmain.ToolButton1Click(Sender: TObject);
begin
application.CreateForm(trk,rk);
rk.showmodal;
end;

procedure Tmain.ToolButton3Click(Sender: TObject);
begin
application.CreateForm(tck,ck);
ck.showmodal;
end;

procedure Tmain.N16Click(Sender: TObject);
begin
application.CreateForm(twl,wl);
wl.showmodal;
end;

procedure Tmain.N25Click(Sender: TObject);
begin
application.CreateForm(tjglb,jglb);
jglb.showmodal;
end;

procedure Tmain.N17Click(Sender: TObject);
begin
application.CreateForm(tcklb,cklb);
cklb.showmodal;
end;

procedure Tmain.N18Click(Sender: TObject);
begin
application.CreateForm(tgyszl,gyszl);
gyszl.showmodal;
end;

procedure Tmain.ToolButton13Click(Sender: TObject);
begin
application.CreateForm(tql,ql);
ql.showmodal;
end;

procedure Tmain.N8Click(Sender: TObject);
begin
application.CreateForm(trk,rk);
rk.showmodal;
end;

procedure Tmain.N9Click(Sender: TObject);
begin
application.CreateForm(tck,ck);
ck.showmodal;
end;

procedure Tmain.N4Click(Sender: TObject);
begin
close
end;

procedure Tmain.N2Click(Sender: TObject);
begin
application.CreateForm(twf,wf);
wf.showmodal;
end;

procedure Tmain.N3Click(Sender: TObject);
begin
application.CreateForm(tpas,pas);
pas.showmodal;
end;

procedure Tmain.ToolButton5Click(Sender: TObject);
begin
application.CreateForm(tkccx,kccx);
kccx.showmodal;
end;

procedure Tmain.N10Click(Sender: TObject);
begin
application.CreateForm(tkccx,kccx);
kccx.showmodal;
end;

procedure Tmain.N26Click(Sender: TObject);
begin
application.CreateForm(tzggl,zggl);
zggl.showmodal;
end;

procedure Tmain.ToolButton9Click(Sender: TObject);
begin
application.CreateForm(tgzgl,gzgl);
gzgl.showmodal;
end;

procedure Tmain.N15Click(Sender: TObject);
begin
application.CreateForm(tgszl,gszl);
gszl.showmodal;
end;

procedure Tmain.N28Click(Sender: TObject);
begin
application.CreateForm(tgzgl,gzgl);
gzgl.showmodal;
end;

procedure Tmain.N24Click(Sender: TObject);
begin
application.CreateForm(tgy,gy);
gy.showmodal;
end;

procedure Tmain.N29Click(Sender: TObject);
begin
 N29.Checked := not N29.Checked;
  if N29.Checked = True then
  begin
    toolBar1.Visible := True;
  end
  else
  begin
    toolBar1.Visible := False;
  end;
end;

procedure Tmain.N34Click(Sender: TObject);
begin
n34.Checked := not n34.Checked;
if n34.Checked=true then
image1.Visible:=true
else
image1.Visible:=false
end;

procedure Tmain.Panel1DockDrop(Sender: TObject; Source: TDragDockObject; X,
  Y: Integer);
  var
  i:integer;
begin
  i:=0;
  while (i<=panel1.ControlCount-1) and (panel1.ControlCount>1) do
begin
if panel1.Controls[i] is tform then
begin
panel1.Controls[i].Free;
end
else
i:= i+1;
end
end;

procedure Tmain.N37Click(Sender: TObject);
begin
application.CreateForm(tyjql,yjql);
yjql.showmodal;
end;

procedure Tmain.N36Click(Sender: TObject);
begin
dm.frReport1.DesignReport
end;

procedure Tmain.N11Click(Sender: TObject);
begin
application.CreateForm(trkdcx,rkdcx);
rkdcx.showmodal;
end;

procedure Tmain.N12Click(Sender: TObject);
begin
application.CreateForm(tckdcx,ckdcx);
ckdcx.showmodal;
end;

procedure Tmain.N38Click(Sender: TObject);
begin
application.CreateForm(twait,wait);
wait.showmodal;
end;

procedure Tmain.N39Click(Sender: TObject);
begin
application.CreateForm(tql,ql);
ql.showmodal;
end;

procedure Tmain.ToolButton11Click(Sender: TObject);
begin
application.CreateForm(tyjql,yjql);
yjql.showmodal;
end;

procedure Tmain.N27Click(Sender: TObject);
begin
application.CreateForm(tgzcx,gzcx);
gzcx.showmodal;
end;

procedure Tmain.ToolButton14Click(Sender: TObject);
begin
bsskincalculator1.Execute
end;

procedure Tmain.N42Click(Sender: TObject);
begin
application.CreateForm(tdjgx,djgx);
djgx.ShowModal;
end;

procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
log.Close;
end;

procedure Tmain.N46Click(Sender: TObject);
begin
application.CreateForm(tsgzl,sgzl);
sgzl.ShowModal;
end;

procedure Tmain.N31Click(Sender: TObject);
begin
     if MessageBox(0, '确定要备份数据？', '提示', MB_OKCANCEL + 
       MB_ICONQUESTION) = IDOK then
     begin
     CopyFile(Pchar('data\wtgl.mdb'),'data\back\wtgl.mdb',true);
     sleep(1200);//wait 
     MessageBox(0, '系统数据备份完成！', '提示', MB_OK + MB_ICONINFORMATION);
     end;
end;

procedure Tmain.N32Click(Sender: TObject);
begin
   if MessageDlg('该操作将不保留备份后输入的数据，真的要恢复吗？', mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
   begin
//将备份的文件复制并复盖当前的数据库文件
   CopyFile('data\back\wtgl.mdb',Pchar('data\wtgl.mdb'),false);
   sleep(1200);
   MessageBox(0, '恢复系统数据完成！请重新启动本软件！谢谢！', '提示', MB_OK + 
     MB_ICONINFORMATION);
    end;
end;
procedure Tmain.N45Click(Sender: TObject);
begin
application.CreateForm(txjrj,xjrj);
xjrj.showmodal;
end;

procedure Tmain.N23Click(Sender: TObject);
begin
application.CreateForm(thelp,help);
help.showmodal;
end;

procedure Tmain.N48Click(Sender: TObject);
begin
application.CreateForm(tkcpd,kcpd);
kcpd.ShowModal;
end;

procedure Tmain.N49Click(Sender: TObject);
begin
application.CreateForm(tskin,skin);
skin.ShowModal;
end;

end.
⌨️ 快捷键说明

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