unit9.~pas

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

unit Unit9;

interface

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

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

var
  Form9: TForm9;

implementation

uses Unithkxx, Unit1, Unitzhxx, Unitlcsz, Unitxqsz, Unitlxfs, Unit6;

{$R *.dfm}

procedure TForm9.FormCreate(Sender: TObject);
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;
edt2.Text:=Formhkxxt.edt2.Text;
DM.tbl1.Filter:='ssxq'+'='''+edt1.Text+'''';
DM.tbl1.Filtered:=True;
DM.tbl1.Sort:='ldhm ASC';
//dm.tbl1.Locate('ldhm',Trim(edt2.Text),[]);
//application.MessageBox(PChar(Str1),'ee',MB_ICONINFORMATION);
grp1.Caption:='濉溪路社居委'+edt1.Text+'楼栋信息：';
grp3.Caption:='濉溪路社居委'+edt1.Text+edt2.Text+'房间信息：';
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[1].HideDuplicates:=True;
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[3].HideDuplicates:=True;
                  dbgrdh2.Columns[4].Title.Caption:='楼冻号';
                  dbgrdh2.Columns[4].HideDuplicates:=True;
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 TForm9.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 TForm9.btn1Click(Sender: TObject);
begin
 application.CreateForm(TFormzhxx,  Formzhxx);
  Formzhxx.ShowModal;
  Formzhxx.Free;
end;

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

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

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

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

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

procedure TForm9.edt2Change(Sender: TObject);
begin
  //if DM.tb

//dm.tbl1.Locate('ldhm',Trim(edt2.Text),[]);
end;

end.