unitczgl.pas

一个完整的户况管理系统一个完整的户况管理系统一个完整的户况管理系统

unit Unitczgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, XPMenu, ComCtrls, ToolWin, ImgList, ExtCtrls, StdCtrls,
  jpeg, Buttons, DBCtrls;

type
  TFormczgl = class(TForm)
    il1: TImageList;
    tlb1: TToolBar;
    btn1: TToolButton;
    btn5: TToolButton;
    btn6: TToolButton;
    btn9: TToolButton;
    btn8: TToolButton;
    btn10: TToolButton;
    btn12: TToolButton;
    img1: TImage;
    btn2: TSpeedButton;
    btn3: TSpeedButton;
    btn4: TSpeedButton;
    btn7: TSpeedButton;
    dbcbb1: TDBComboBox;
    procedure btn12Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formczgl: TFormczgl;

implementation

uses hkgl, Unit1, Unitzhxx, Unitxqsz, Unitlxfs, Unitlcsz, Unitjwh,
  Unitfjxx, Unit5, Unit3, unit2, Unit4, Unittpld, Unit6, Unit7, Unitczgl1,
  Unit8, Unithkxx;

{$R *.dfm}

procedure TFormczgl.btn12Click(Sender: TObject);
begin
close;
end;

procedure TFormczgl.btn1Click(Sender: TObject);
begin
 application.CreateForm(TFormzhxx,  Formzhxx);
  Formzhxx.ShowModal;
  Formzhxx.Free;
end;

procedure TFormczgl.btn6Click(Sender: TObject);
begin
  application.CreateForm(TFormlcsz,  Formlcsz);
  Formlcsz.ShowModal;
  Formlcsz.Free;
end;

procedure TFormczgl.btn10Click(Sender: TObject);
begin
 application.CreateForm(TFormxqsz,  Formxqsz);
  Formxqsz.ShowModal;
  Formxqsz.Free;
end;

procedure TFormczgl.btn9Click(Sender: TObject);
begin
 application.CreateForm(TFormlxfs,  Formlxfs);
  Formlxfs.ShowModal;
  Formlxfs.Free;
end;





procedure TFormczgl.btn2Click(Sender: TObject);
begin
  //Self.ActiveMDIChild.Close;

  application.CreateForm(TFormtpld,  Formtpld);

  Formtpld.ShowModal;
  Formtpld.Free;
  
  //Formczgl.Close;
end;

procedure TFormczgl.btn7Click(Sender: TObject);
begin
application.CreateForm(Tform6,  form6);
  form6.ShowModal;
  form6.Free;
end;

procedure TFormczgl.btn4Click(Sender: TObject);
begin
application.CreateForm(Tform7,  form7);
  form7.ShowModal;
  form7.Free;
end;

procedure TFormczgl.btn3Click(Sender: TObject);
begin
  application.CreateForm(TFormczgl2,  Formczgl2);
  Formczgl2.ShowModal;
  Formczgl2.Free;

end;

end.