main.~pas

一个下设单位的局部网络终端数据录入软件。

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, dxWinXPBar, dxCore, dxContainer,DD,SCH_RBFORM;

type
  TSCH_Global = class(TForm)
    dxContainer1: TdxContainer;
    ScrollBox1: TScrollBox;
    dxContainer3: TdxContainer;
    BBaseSetup: TdxWinXPBar;
    dxContainer2: TdxContainer;
    BInOut: TdxWinXPBar;
    dxContainer4: TdxContainer;
    BHelp: TdxWinXPBar;
    dxContainer6: TdxContainer;
    LblAppVer1: TLabel;
    LblAppVer2: TLabel;
    dxCRight: TdxContainer;
    EdtPwd: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure BBaseSetupItems0Click(Sender: TObject);
    procedure CreateDockChild(Fname: string; Fclass: TFormClass);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SCH_Global: TSCH_Global;

implementation

{$R *.dfm}

procedure TSCH_Global.FormActivate(Sender: TObject);
begin
end;


//窗体停靠 （融合）
procedure TSCH_Global.CreateDockChild(Fname: string; Fclass: TFormClass);
var Fform: TForm;
begin
 if Application.FindComponent(Fname) = nil then
 begin
   Fform := Fclass.Create(Application);
     with Fform do
     begin
       WindowState :=wsMaximized ;
       BorderStyle := bsNone;
       Parent :=dxCRight;
       Align := alClient;
       Show;
     end;
 end
 else        begin

             with TForm(Application.FindComponent(Fname)) do begin
             show ;
             BringToFront;
             end;
 end;

end;


procedure TSCH_Global.BBaseSetupItems0Click(Sender: TObject);
begin
    With DataModuleSCH.Query1 do begin
          if active then close;
          sql.Clear;
          sql.Text:='select * from '
    end;

    BBaseSetup.Items[0].Enabled :=False;
    CreateDockChild('SCH_RB',TSCH_RB);
end;



end.