unithkxx.~pas

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

unit Unithkxx;

interface

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

type
  TFormhkxxt = class(TForm)
    tlb1: TToolBar;
    btn1: TToolButton;
    btn6: TToolButton;
    btn5: TToolButton;
    btn10: TToolButton;
    btn9: TToolButton;
    btn8: TToolButton;
    btn12: TToolButton;
    il1: TImageList;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    TabSheet3: TRzTabSheet;
    TabSheet4: TRzTabSheet;
    TabSheet5: TRzTabSheet;
    img1: TImage;
    img2: TImage;
    img3: TImage;
    img4: TImage;
    img5: TImage;
    btn2: TSpeedButton;
    btn3: TSpeedButton;
    btn4: TSpeedButton;
    btn7: TSpeedButton;
    btn11: TSpeedButton;
    btn13: TToolButton;
    edt1: TEdit;
    edt2: TEdit;
    btn14: TSpeedButton;
    btn15: TSpeedButton;
    btn16: TSpeedButton;
    btn17: TSpeedButton;
    btn18: TSpeedButton;
    btn19: TSpeedButton;
    btn20: TSpeedButton;
    btn21: TSpeedButton;
    btn22: TSpeedButton;
    btn23: TSpeedButton;
    btn24: TSpeedButton;
    btn25: TSpeedButton;
    btn26: TSpeedButton;
    btn27: TSpeedButton;
    btn28: TSpeedButton;
    btn29: TSpeedButton;
    btn30: TSpeedButton;
    btn31: TSpeedButton;
    btn32: TSpeedButton;
    btn33: TSpeedButton;
    btn34: TSpeedButton;
    btn35: TSpeedButton;
    btn36: TSpeedButton;
    btn37: TSpeedButton;
    btn38: TSpeedButton;
    btn39: TSpeedButton;
    btn40: TSpeedButton;
    btn41: TSpeedButton;
    btn42: TSpeedButton;
    btn43: TSpeedButton;
    btn44: TSpeedButton;
    btn45: TSpeedButton;
    btn46: TSpeedButton;
    btn47: TSpeedButton;
    btn48: TSpeedButton;
    btn49: TSpeedButton;
    btn50: TSpeedButton;
    btn51: TSpeedButton;
    btn52: TSpeedButton;
    btn53: TSpeedButton;
    btn54: TSpeedButton;
    btn55: TSpeedButton;
    btn56: TSpeedButton;
    btn57: TSpeedButton;
    btn58: TSpeedButton;
    btn59: TSpeedButton;
    btn60: TSpeedButton;
    btn61: TSpeedButton;
    btn62: TSpeedButton;
    btn63: TSpeedButton;
    btn64: TSpeedButton;
    btn65: TSpeedButton;
    btn66: TSpeedButton;
    btn67: TSpeedButton;
    btn68: TSpeedButton;
    btn69: TSpeedButton;
    btn70: TSpeedButton;
    btn71: TSpeedButton;
    btn72: TSpeedButton;
    btn73: TSpeedButton;
    btn74: TSpeedButton;
    btn75: TSpeedButton;
    btn76: TSpeedButton;
    btn77: TSpeedButton;
    btn78: TSpeedButton;
    btn79: TSpeedButton;
    btn80: TSpeedButton;
    btn81: TSpeedButton;
    btn82: TSpeedButton;
    btn83: TSpeedButton;
    btn84: TSpeedButton;
    btn85: TSpeedButton;
    btn86: TSpeedButton;
    btn87: TSpeedButton;
    btn88: TSpeedButton;
    btn89: TSpeedButton;
    btn90: TSpeedButton;
    btn91: TSpeedButton;
    btn92: TSpeedButton;
    btn93: TSpeedButton;
    btn94: TSpeedButton;
    btn95: TSpeedButton;
    btn96: TSpeedButton;
    btn97: TSpeedButton;
    btn98: TSpeedButton;
    btn99: TSpeedButton;
    btn100: TSpeedButton;
    btn101: TSpeedButton;
    btn102: TSpeedButton;
    btn103: TSpeedButton;
    btn104: TSpeedButton;
    btn105: TSpeedButton;
    btn106: TSpeedButton;
    btn107: TSpeedButton;
    btn108: TSpeedButton;
    btn109: TSpeedButton;
    btn110: TSpeedButton;
    procedure btn1Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn12Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn13Click(Sender: TObject);
    procedure btn14Click(Sender: TObject);
    procedure btn15Click(Sender: TObject);
    procedure btn16Click(Sender: TObject);
    procedure btn17Click(Sender: TObject);
    procedure btn18Click(Sender: TObject);
    procedure btn19Click(Sender: TObject);
    procedure btn20Click(Sender: TObject);
    procedure btn21Click(Sender: TObject);
    procedure btn22Click(Sender: TObject);
    procedure btn23Click(Sender: TObject);
    procedure btn24Click(Sender: TObject);
    procedure btn25Click(Sender: TObject);
    procedure btn26Click(Sender: TObject);
    procedure btn27Click(Sender: TObject);
    procedure btn28Click(Sender: TObject);
    procedure btn29Click(Sender: TObject);
    procedure btn30Click(Sender: TObject);
    procedure btn31Click(Sender: TObject);
    procedure btn32Click(Sender: TObject);
    procedure btn33Click(Sender: TObject);
    procedure btn34Click(Sender: TObject);
    procedure btn35Click(Sender: TObject);
    procedure btn36Click(Sender: TObject);
    procedure btn37Click(Sender: TObject);
    procedure btn38Click(Sender: TObject);
    procedure btn39Click(Sender: TObject);
    procedure btn40Click(Sender: TObject);
    procedure btn41Click(Sender: TObject);
    procedure btn42Click(Sender: TObject);
    procedure btn43Click(Sender: TObject);
    procedure btn44Click(Sender: TObject);
    procedure btn45Click(Sender: TObject);
    procedure btn46Click(Sender: TObject);
    procedure btn47Click(Sender: TObject);
    procedure btn48Click(Sender: TObject);
    procedure btn49Click(Sender: TObject);
    procedure btn50Click(Sender: TObject);
    procedure btn51Click(Sender: TObject);
    procedure btn53Click(Sender: TObject);
    procedure btn52Click(Sender: TObject);
    procedure btn54Click(Sender: TObject);
    procedure btn76Click(Sender: TObject);
    procedure btn55Click(Sender: TObject);
    procedure btn56Click(Sender: TObject);
    procedure btn57Click(Sender: TObject);
    procedure btn58Click(Sender: TObject);
    procedure btn59Click(Sender: TObject);
    procedure btn60Click(Sender: TObject);
    procedure btn61Click(Sender: TObject);
    procedure btn62Click(Sender: TObject);
    procedure btn63Click(Sender: TObject);
    procedure btn64Click(Sender: TObject);
    procedure btn66Click(Sender: TObject);
    procedure btn68Click(Sender: TObject);
    procedure btn70Click(Sender: TObject);
    procedure btn71Click(Sender: TObject);
    procedure btn74Click(Sender: TObject);
    procedure btn75Click(Sender: TObject);
    procedure btn65Click(Sender: TObject);
    procedure btn67Click(Sender: TObject);
    procedure btn69Click(Sender: TObject);
    procedure btn72Click(Sender: TObject);
    procedure btn73Click(Sender: TObject);
    procedure btn77Click(Sender: TObject);
    procedure btn78Click(Sender: TObject);
    procedure btn79Click(Sender: TObject);
    procedure btn80Click(Sender: TObject);
    procedure btn81Click(Sender: TObject);
    procedure btn82Click(Sender: TObject);
    procedure btn85Click(Sender: TObject);
    procedure btn83Click(Sender: TObject);
    procedure btn84Click(Sender: TObject);
    procedure btn109Click(Sender: TObject);
    procedure btn110Click(Sender: TObject);
    procedure btn97Click(Sender: TObject);
    procedure btn93Click(Sender: TObject);
    procedure btn98Click(Sender: TObject);
    procedure btn94Click(Sender: TObject);
    procedure btn88Click(Sender: TObject);
    procedure btn86Click(Sender: TObject);
    procedure btn87Click(Sender: TObject);
    procedure btn89Click(Sender: TObject);
    procedure btn90Click(Sender: TObject);
    procedure btn91Click(Sender: TObject);
    procedure btn92Click(Sender: TObject);
    procedure btn108Click(Sender: TObject);
    procedure btn106Click(Sender: TObject);
    procedure btn107Click(Sender: TObject);
    procedure btn105Click(Sender: TObject);
    procedure btn104Click(Sender: TObject);
    procedure btn101Click(Sender: TObject);
    procedure btn103Click(Sender: TObject);
    procedure btn102Click(Sender: TObject);
    procedure btn100Click(Sender: TObject);
    procedure btn96Click(Sender: TObject);
    procedure btn95Click(Sender: TObject);
    procedure btn99Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formhkxxt: TFormhkxxt;

implementation

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

{$R *.dfm}

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

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

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

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

procedure TFormhkxxt.btn12Click(Sender: TObject);
begin
  
 // Formhkxxt.Free;
  close;
end;

procedure TFormhkxxt.btn2Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='材科处';
  edt2.Clear;
  edt2.Text:='1栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn3Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='二十六中';
  //application.CreateForm(Tform9,  form9);
  //form9.ShowModal;
//form9.Free;
 RzPageControl1.ActivePageIndex :=1;
end;

procedure TFormhkxxt.btn11Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='天竹晨欣园';
 RzPageControl1.ActivePageIndex :=4;
end;

procedure TFormhkxxt.btn7Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='合钢三厂';
  RzPageControl1.ActivePageIndex :=2;
end;

procedure TFormhkxxt.btn4Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='濉溪路盛亳市福怡合';
 RzPageControl1.ActivePageIndex :=3;
end;

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

procedure TFormhkxxt.btn14Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='材科处';
  edt2.Clear;
  edt2.Text:='2栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn15Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='材科处';
   edt2.Clear;
  edt2.Text:='3栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn16Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='二十六中';
  edt2.Clear;
  edt2.Text:='3栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn17Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='二十六中';
  edt2.Clear;
  edt2.Text:='2栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn18Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='二十六中';
  edt2.Clear;
  edt2.Text:='1栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn19Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='二十六中';
  edt2.Clear;
  edt2.Text:='二十六中恢复楼';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn20Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='盐业公司';
  edt2.Clear;
  edt2.Text:='1栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn21Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='盐业公司';
  edt2.Clear;
  edt2.Text:='4栋';
 application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn22Click(Sender: TObject);
begin
edt1.Clear;
  edt1.Text:='盐业公司';
  edt2.Clear;
  edt2.Text:='3栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn23Click(Sender: TObject);
begin
  edt1.Clear;
  edt1.Text:='盐业公司';
  edt2.Clear;
  edt2.Text:='2栋';
  application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn24Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='349平房';
 application.CreateForm(Tform9,  form9);
  form9.ShowModal;
  form9.Free;
end;

procedure TFormhkxxt.btn25Click(Sender: TObject);
begin
 edt1.Clear;
  edt1.Text:='合钢三厂';
  edt2.Clear;
  edt2.Text:='221小楼';