main.pas

delphi做的进销存系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, RzPanel, RzSplit, RzGroupBar, RzTabs, RzStatus,
  RzButton, ImgList, WinSkinData, Buttons, StdCtrls, RzBckgnd, jpeg,
  RzLabel, frxClass, frxDBSet;

type
  Tmainfrm = class(TForm)
    mm1: TMainMenu;
    xtgl: TMenuItem;
    cxdl: TMenuItem;
    xtcsh: TMenuItem;
    yhgl: TMenuItem;
    szccx: TMenuItem;
    bfsj: TMenuItem;
    N6: TMenuItem;
    hfsj: TMenuItem;
    N8: TMenuItem;
    x_quit: TMenuItem;
    jbjlwh: TMenuItem;
    ygzl: TMenuItem;
    khzl: TMenuItem;
    ghszl: TMenuItem;
    N11: TMenuItem;
    splb: TMenuItem;
    jldw: TMenuItem;
    spzl: TMenuItem;
    jhgl: TMenuItem;
    jh: TMenuItem;
    jhtj: TMenuItem;
    xsgl: TMenuItem;
    xs: TMenuItem;
    xstj: TMenuItem;
    kc: TMenuItem;
    kctj: TMenuItem;
    gy: TMenuItem;
    help: TMenuItem;
    about: TMenuItem;
    RzSplitter1: TRzSplitter;
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    RzGroup2: TRzGroup;
    RzGroup3: TRzGroup;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    RzStatusBar1: TRzStatusBar;
    RzClockStatus1: TRzClockStatus;
    RzToolbar1: TRzToolbar;
    RzToolButton1: TRzToolButton;
    RzToolButton2: TRzToolButton;
    RzToolButton3: TRzToolButton;
    RzSpacer1: TRzSpacer;
    RzToolButton4: TRzToolButton;
    RzToolButton5: TRzToolButton;
    RzSpacer2: TRzSpacer;
    RzToolButton6: TRzToolButton;
    il1: TImageList;
    il2: TImageList;
    RzStatusPane1: TRzStatusPane;
    TabSheet2: TRzTabSheet;
    TabSheet3: TRzTabSheet;
    SkinData1: TSkinData;
    SpeedButton1: TSpeedButton;
    pnl1: TPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    RzMarqueeStatus1: TRzMarqueeStatus;
    RzKeyStatus1: TRzKeyStatus;
    RzKeyStatus2: TRzKeyStatus;
    RzKeyStatus3: TRzKeyStatus;
    RzStatusPane2: TRzStatusPane;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    pnl2: TPanel;
    pnl3: TPanel;
    RzToolButton7: TRzToolButton;
    RzSpacer3: TRzSpacer;
    TabSheet4: TRzTabSheet;
    pnl4: TPanel;
    SpeedButton4: TSpeedButton;
    TabSheet5: TRzTabSheet;
    pnl5: TPanel;
    TabSheet6: TRzTabSheet;
    TabSheet7: TRzTabSheet;
    pnl6: TPanel;
    TabSheet8: TRzTabSheet;
    pnl7: TPanel;
    TabSheet9: TRzTabSheet;
    pnl8: TPanel;
    SpeedButton16: TSpeedButton;
    RzToolButton8: TRzToolButton;
    tmr1: TTimer;
    frxDBDataset1: TfrxDBDataset;
    frxDBDataset2: TfrxDBDataset;
    frxDBDataset3: TfrxDBDataset;
    frxReport3: TfrxReport;
    tmr2: TTimer;
    lbl1: TLabel;
    Label1: TLabel;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    RzLabel3: TRzLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    RzLabel4: TRzLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    RzLabel5: TRzLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    RzLabel6: TRzLabel;
    lbl10: TLabel;
    lbl11: TLabel;
    RzLabel7: TRzLabel;
    lbl12: TLabel;
    lbl13: TLabel;
    RzLabel8: TRzLabel;
    lbl14: TLabel;
    lbl15: TLabel;
    frxReport1: TfrxReport;
    frxReport2: TfrxReport;
    procedure x_quitClick(Sender: TObject);
    procedure RzToolButton6Click(Sender: TObject);
    procedure pnl1UnDock(Sender: TObject; Client: TControl;
      NewTarget: TWinControl; var Allow: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure yhglClick(Sender: TObject);
    procedure xtcshClick(Sender: TObject);
    procedure bfsjClick(Sender: TObject);
    procedure hfsjClick(Sender: TObject);
    procedure ygzlClick(Sender: TObject);
    procedure khzlClick(Sender: TObject);
    procedure ghszlClick(Sender: TObject);
    procedure splbClick(Sender: TObject);
    procedure jldwClick(Sender: TObject);
    procedure spzlClick(Sender: TObject);
    procedure jhClick(Sender: TObject);
    procedure xsClick(Sender: TObject);
    procedure kctjClick(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure RzToolButton2Click(Sender: TObject);
    procedure RzToolButton3Click(Sender: TObject);
    procedure RzToolButton4Click(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure cxdlClick(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure RzToolButton7Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure jhtjClick(Sender: TObject);
    procedure xstjClick(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure RzToolButton8Click(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure aboutClick(Sender: TObject);
    procedure tmr2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    pnl1dock:Boolean;//panel1的停泊标志为
    pnl2dock:Boolean;
    pnl3dock:Boolean;
    pnl4dock:Boolean;
    pnl5dock:Boolean;
    pnl6dock:Boolean;
    pnl7dock:Boolean;
    pnl8dock:Boolean;
    pnl9dock:Boolean;
    pnl10dock:Boolean;
  end;

var
  mainfrm: Tmainfrm;

implementation

uses login, Math, ygxxgl, dm, khxxgl, ghsxxgl, splbgl, jldwgl, spzlgl,
  backup, restore, csh, qxgl, jhdgl, kctj, xsgl, jhtj, xstj, mlfx,
  logoscreen;

{$R *.dfm}

procedure Tmainfrm.x_quitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure Tmainfrm.RzToolButton6Click(Sender: TObject);
begin
  x_quitClick(self);
end;

procedure Tmainfrm.pnl1UnDock(Sender: TObject; Client: TControl;
  NewTarget: TWinControl; var Allow: Boolean);
begin
   //当有窗体被载入时不进行重新定位
   if newtarget<>sender then
      ALLOW:=FALSE
   else
      Allow:=true;
end;

procedure Tmainfrm.FormCreate(Sender: TObject);
begin
  pnl1dock:=False;//panel的停泊标志为没有窗体停靠
  pnl2dock:=False;
  pnl3dock:=False;
  pnl4dock:=False;
  pnl5dock:=False;
  pnl6dock:=False;
  pnl7dock:=False;
  pnl8dock:=False;
  pnl9dock:=False;
  pnl10dock:=False;

end;

procedure Tmainfrm.SpeedButton5Click(Sender: TObject);
begin
   //在没有窗体被载入时才可以进行载入
   if not pnl1dock then
     begin
       //载入一个窗体到TAbsheet1
       application.CreateForm(Tygxxglfrm,ygxxglfrm);
       ygxxglfrm.Dock(pnl1,BoundsRect);
       ygxxglfrm.show;
       //修改标志,不可以再载入其它窗体
       pnl1dock:=True;
       //修改TabSheet的标题为被载入的窗体的标题
       TabSheet1.Caption:=ygxxglfrm.Caption;
     end;
     TabSheet1.Show;
end;

procedure Tmainfrm.SpeedButton6Click(Sender: TObject);
begin
   //在没有窗体被载入时才可以进行载入
   if not pnl2dock then
     begin
       //载入一个窗体到TAbsheet2
       application.CreateForm(Tkhxxglfrm,khxxglfrm);
       khxxglfrm.Dock(pnl2,BoundsRect);
       khxxglfrm.show;
       //修改标志,不可以再载入其它窗体
       pnl2dock:=True;
       //修改TabSheet的标题为被载入的窗体的标题
       TabSheet2.Caption:=khxxglfrm.Caption;
     end;
     TabSheet2.Show;
end;

procedure Tmainfrm.SpeedButton7Click(Sender: TObject);
begin
   //在没有窗体被载入时才可以进行载入
   if not pnl3dock then
     begin
       //载入一个窗体到TAbsheet
       application.CreateForm(Tghsxxglfrm,ghsxxglfrm);
       ghsxxglfrm.Dock(pnl3,BoundsRect);
       ghsxxglfrm.show;
       //修改标志,不可以再载入其它窗体
       pnl3dock:=True;
       //修改TabSheet的标题为被载入的窗体的标题
       TabSheet3.Caption:=ghsxxglfrm.Caption;
     end;
     TabSheet3.Show;
end;

procedure Tmainfrm.SpeedButton8Click(Sender: TObject);
begin
  splbglfrm.ShowModal;
end;

procedure Tmainfrm.SpeedButton9Click(Sender: TObject);
begin
  jldwglfrm.ShowModal;
end;

procedure Tmainfrm.SpeedButton10Click(Sender: TObject);
begin
     //在没有窗体被载入时才可以进行载入
   if not pnl4dock then
     begin
       //载入一个窗体到TAbsheet
       application.CreateForm(Tspzlglfrm,spzlglfrm);
       spzlglfrm.Dock(pnl4,BoundsRect);
       spzlglfrm.show;
       //修改标志,不可以再载入其它窗体
       pnl4dock:=True;
       //修改TabSheet的标题为被载入的窗体的标题
       TabSheet4.Caption:=spzlglfrm.Caption;
     end;
     TabSheet4.Show;
end;

procedure Tmainfrm.SpeedButton2Click(Sender: TObject);
begin
  backupfrm.ShowModal;
end;

procedure Tmainfrm.SpeedButton3Click(Sender: TObject);
begin
  restorefrm.ShowModal;
end;

procedure Tmainfrm.SpeedButton4Click(Sender: TObject);
begin
  cshfrm.ShowModal;
end;

procedure Tmainfrm.SpeedButton1Click(Sender: TObject);
begin
  qxglfrm.ShowModal;
end;

procedure Tmainfrm.yhglClick(Sender: TObject);
begin
  SpeedButton1Click(Self);
end;

procedure Tmainfrm.xtcshClick(Sender: TObject);
begin
  SpeedButton4Click(self);
end;

procedure Tmainfrm.bfsjClick(Sender: TObject);
begin
  SpeedButton2Click(self);
end;

procedure Tmainfrm.hfsjClick(Sender: TObject);
begin
  SpeedButton3Click(self);
end;