unit8.~pas

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

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ImgList, ComCtrls, ToolWin, GridsEh,
  DBGridEh, ExtCtrls;

type
  TForm8 = class(TForm)
    grp1: TGroupBox;
    dbgrd1: TDBGrid;
    grp2: TGroupBox;
    dbgrdh1: TDBGrid;
    tlb1: TToolBar;
    btn1: TToolButton;
    btn6: TToolButton;
    btn5: TToolButton;
    btn10: TToolButton;
    btn9: TToolButton;
    btn8: TToolButton;
    btn12: TToolButton;
    il1: TImageList;
    grp3: TGroupBox;
    dbgrdh2: TDBGridEh;
    btn2: TToolButton;
    procedure btn1Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn12Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dbgrdh2CellClick(Column: TColumnEh);
    procedure dbgrd1CellClick(Column: TColumn);
    procedure btn2Click(Sender: TObject);
    procedure rg1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

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

{$R *.dfm}

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

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

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

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

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

procedure TForm8.FormCreate(Sender: TObject);
var
  Str1:string;
begin
  DM.tbl1.Active:=True;
DM.tbl2.Active:=True;
DM.tbl3.Active:=True;
//Formhkxxt :=TFormhkxxt.Create(Self);
application.CreateForm(TFormhkxxt,  Formhkxxt);
//Str1:=Formhkxxt.edt1.Text;
//edt1.Text:=Formhkxxt.edt1.Text;
//application.MessageBox(PChar(Str1),'ee',MB_ICONINFORMATION);
dbgrd1.Columns[0].Title.Caption:='楼栋号';
 dbgrd1.Columns[1].Title.Caption:='所属小区';
 dbgrd1.Columns[2].Title.Caption:='所属居委会';
 dbgrd1.Columns[3].Title.Caption:='所属街道';
 dbgrd1.Columns[0].Width:=30;
dbgrd1.Columns[1].Width:=75;
dbgrd1.Columns[2].Width:=80;
dbgrd1.Columns[3].Width:=80;
dbgrdh1.Columns[0].Visible:=False;
dbgrdh1.Columns[0].Title.Caption:='户况编码';
dbgrdh1.Columns[1].Title.Caption:='房间号码';
dbgrdh1.Columns[2].Title.Caption:='单元号';
dbgrdh1.Columns[3].Title.Caption:='姓名';
dbgrdh1.Columns[4].Title.Caption:='与户主关系';
dbgrdh1.Columns[5].Title.Caption:='性别';
dbgrdh1.Columns[6].Title.Caption:='身份证号码';
dbgrdh1.Columns[7].Title.Caption:='婚姻状况';
dbgrdh1.Columns[8].Title.Caption:='结婚日期';
dbgrdh1.Columns[9].Title.Caption:='户籍地址';
dbgrdh1.Columns[10].Title.Caption:='目前住址';
dbgrdh1.Columns[11].Title.Caption:='联系电话';
dbgrdh1.Columns[12].Title.Caption:='户口类型';
dbgrdh1.Columns[13].Title.Caption:='所属楼栋';
dbgrdh1.Columns[14].Title.Caption:='所属小区';
dbgrdh1.Columns[15].Title.Caption:='所属居委会';
dbgrdh1.Columns[16].Title.Caption:='所属街道';
dbgrdh1.Columns[17].Title.Caption:='备注';
dbgrdh1.Columns[0].Width:=50;
dbgrdh1.Columns[1].Width:=50;
dbgrdh1.Columns[2].Width:=50;
dbgrdh1.Columns[3].Width:=80;
dbgrdh1.Columns[4].Width:=70;
dbgrdh1.Columns[5].Width:=30;
dbgrdh1.Columns[6].Width:=90;
dbgrdh1.Columns[7].Width:=80;
dbgrdh1.Columns[8].Width:=70;
dbgrdh1.Columns[9].Width:=123;
dbgrdh1.Columns[10].Width:=160;
dbgrdh1.Columns[11].Width:=90;
dbgrdh1.Columns[12].Width:=50;
dbgrdh1.Columns[13].Width:=50;
dbgrdh1.Columns[14].Width:=80;
dbgrdh1.Columns[15].Width:=80;
dbgrdh1.Columns[16].Width:=70;
dbgrdh1.Columns[17].Width:=130;

 dbgrdh2.Columns[0].Visible:=False;
                  dbgrdh2.Columns[1].Title.Caption:='房间号码';
                  dbgrdh2.Columns[2].Title.Caption:='户口类型';
                  dbgrdh2.Columns[3].Title.Caption:='所属单元';
                  dbgrdh2.Columns[4].Title.Caption:='楼冻号';
dbgrdh2.Columns[5].Title.Caption:='所属小区';
dbgrdh2.Columns[6].Title.Caption:='所属居委会';
dbgrdh2.Columns[7].Title.Caption:='所属街道';
dbgrdh2.Columns[1].Width:=50;
dbgrdh2.Columns[2].Width:=50;
dbgrdh2.Columns[3].Width:=60;
dbgrdh2.Columns[4].Width:=70;
dbgrdh2.Columns[5].Width:=130;
dbgrdh2.Columns[6].Width:=130;
dbgrdh2.Columns[7].Width:=130;
end;

procedure TForm8.dbgrdh2CellClick(Column: TColumnEh);
begin
  DM.tbl4.Active:=True;
dbgrdh1.DataSource:=DM.ds6;
dbgrdh1.Columns[0].Visible:=False;
dbgrdh1.Columns[0].Title.Caption:='户况编码';
dbgrdh1.Columns[1].Title.Caption:='房间号码';
dbgrdh1.Columns[2].Title.Caption:='单元号';
dbgrdh1.Columns[3].Title.Caption:='姓名';
dbgrdh1.Columns[4].Title.Caption:='与户主关系';
dbgrdh1.Columns[5].Title.Caption:='性别';
dbgrdh1.Columns[6].Title.Caption:='身份证号码';
dbgrdh1.Columns[7].Title.Caption:='婚姻状况';
dbgrdh1.Columns[8].Title.Caption:='结婚日期';
dbgrdh1.Columns[9].Title.Caption:='户籍地址';
dbgrdh1.Columns[10].Title.Caption:='目前住址';
dbgrdh1.Columns[11].Title.Caption:='联系电话';
dbgrdh1.Columns[12].Title.Caption:='户口类型';
dbgrdh1.Columns[13].Title.Caption:='所属楼栋';
dbgrdh1.Columns[14].Title.Caption:='所属小区';
dbgrdh1.Columns[15].Title.Caption:='所属居委会';
dbgrdh1.Columns[16].Title.Caption:='所属街道';
dbgrdh1.Columns[17].Title.Caption:='备注';
dbgrdh1.Columns[0].Width:=50;
dbgrdh1.Columns[1].Width:=50;
dbgrdh1.Columns[2].Width:=50;
dbgrdh1.Columns[3].Width:=80;
dbgrdh1.Columns[4].Width:=70;
dbgrdh1.Columns[5].Width:=30;
dbgrdh1.Columns[6].Width:=90;
dbgrdh1.Columns[7].Width:=80;
dbgrdh1.Columns[8].Width:=70;
dbgrdh1.Columns[9].Width:=123;
dbgrdh1.Columns[10].Width:=160;
dbgrdh1.Columns[11].Width:=90;
dbgrdh1.Columns[12].Width:=50;
dbgrdh1.Columns[13].Width:=50;
dbgrdh1.Columns[14].Width:=80;
dbgrdh1.Columns[15].Width:=80;
dbgrdh1.Columns[16].Width:=70;
dbgrdh1.Columns[17].Width:=130;
end;

procedure TForm8.dbgrd1CellClick(Column: TColumn);
begin
dbgrdh1.DataSource:=DM.ds4;
end;

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

procedure TForm8.rg1Click(Sender: TObject);
var
  Str:string;
begin
  Str :='显示内容';
  if application.MessageBox(PChar(Str),'提示',MB_YESNO+MB_ICONQUESTION) = id_yes then
  Application.MessageBox('选择YES','提示',MB_ICONINFORMATION)
  else
  Application.MessageBox('选择NO','提示',MB_ICONINFORMATION);
end;

end.