📄 unitzhxx.~pas
字号:
end
else
begin
application.MessageBox('户况编码不能重复!','提示',64);
edt1.Enabled:=True;
edt1.SetFocus;
with dm.qry4 do
begin
sql.Clear;
sql.Add('select * from zhxxb order by zhbm ' );
dm.qry4.Active:=True;
end ;
dbgrdh1.Columns[0].Title.Caption:='户况编码';
dbgrdh1.Columns[0].HideDuplicates:=True;
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[18].Title.Caption:='备注';
dbgrdh1.Columns[0].Width:=90;
dbgrdh1.Columns[1].Width:=50;
dbgrdh1.Columns[2].Width:=50;
dbgrdh1.Columns[3].Width:=80;
dbgrdh1.Columns[4].Width:=30;
dbgrdh1.Columns[5].Width:=70;
dbgrdh1.Columns[6].Width:=30;
dbgrdh1.Columns[7].Width:=90;
dbgrdh1.Columns[8].Width:=80;
dbgrdh1.Columns[9].Width:=70;
dbgrdh1.Columns[10].Width:=123;
dbgrdh1.Columns[11].Width:=160;
dbgrdh1.Columns[12].Width:=90;
dbgrdh1.Columns[13].Width:=50;
dbgrdh1.Columns[14].Width:=50;
dbgrdh1.Columns[15].Width:=80;
dbgrdh1.Columns[16].Width:=80;
dbgrdh1.Columns[17].Width:=70;
dbgrdh1.Columns[18].Width:=130;
end
end
end
else
begin
with dm.qry4 do
begin
sql.Clear;
sql.Add('select * from zhxxb ' );
Open;
Append;
FieldByName('zhbm').AsString:=edt1.Text;
FieldByName('mph').AsString:='';
FieldByName('dyh').AsString:=cbb4.Text;
FieldByName('zhxm').AsString:=edt3.Text;
FieldByName('nl').AsString:=edt2.Text;
FieldByName('yhzgx').AsString:=edt12.Text;
FieldByName('sex').AsString:=cbb5.Text;
FieldByName('sfzh').AsString:=edt4.Text;
FieldByName('hyzk').AsString:=edt5.Text;
FieldByName('jhrq').AsString:=edt6.Text;
FieldByName('hjdz').AsString:=edt7.Text;
FieldByName('xzhuzhi').AsString:=edt9.Text;
FieldByName('lxdh').AsString:=edt8.Text;
FieldByName('hklx').AsString:=cbb6.Text;
FieldByName('ssld').AsString:=cbb3.Text;
FieldByName('ssxq').AsString:=cbb2.Text;
FieldByName('ssjwh').AsString:=cbb1.Text;
FieldByName('ssjd').AsString:=Ssjd;
FieldByName('bz').AsString:=edt10.Text;
post;
application.MessageBox('添加成功!','提示',64);
//dm.tbl1.Refresh;
end;
with dm.qry4 do
begin
sql.Clear;
sql.Add('select * from zhxxb order by zhbm ' );
dm.qry4.Active:=True;
end ;
dbgrdh1.Columns[0].Title.Caption:='户况编码';
dbgrdh1.Columns[0].HideDuplicates:=True;
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[18].Title.Caption:='备注';
dbgrdh1.Columns[0].Width:=90;
dbgrdh1.Columns[1].Width:=50;
dbgrdh1.Columns[2].Width:=50;
dbgrdh1.Columns[3].Width:=80;
dbgrdh1.Columns[4].Width:=30;
dbgrdh1.Columns[5].Width:=70;
dbgrdh1.Columns[6].Width:=30;
dbgrdh1.Columns[7].Width:=90;
dbgrdh1.Columns[8].Width:=80;
dbgrdh1.Columns[9].Width:=70;
dbgrdh1.Columns[10].Width:=123;
dbgrdh1.Columns[11].Width:=160;
dbgrdh1.Columns[12].Width:=90;
dbgrdh1.Columns[13].Width:=50;
dbgrdh1.Columns[14].Width:=50;
dbgrdh1.Columns[15].Width:=80;
dbgrdh1.Columns[16].Width:=80;
dbgrdh1.Columns[17].Width:=70;
dbgrdh1.Columns[18].Width:=130;
end;
end;
end;
end
end;
end;
end;
end;
procedure TFormzhxx.cbb3Change(Sender: TObject);
begin
with dm.qry2 do
begin
sql.Clear;
sql.Add('select * from hk_fjxx where ssjwh='''+cbb1.Text+''' and ssxq='''+cbb2.Text+''' and ssld='''+cbb3.Text+''' ' );
dm.qry2.Active:=True;
dm.qry2.First;
cbb4.Clear;
while not dm.qry2.Eof do
begin
//jwh:=dm.qry2.FieldByName('jwhmc').AsString;
cbb4.Items.Add(Trim(dm.qry2.FieldByName('dyh').AsString));
dm.qry2.Next;
end;
end ;
end;
procedure TFormzhxx.cbb4Change(Sender: TObject);
begin
with dm.qry2 do
begin
sql.Clear;
sql.Add('select * from hk_fjxx where ssjwh='''+cbb1.Text+''' and ssxq='''+cbb2.Text+''' and ssld='''+cbb3.Text+''' and dyh='''+cbb4.Text+''' ' );
dm.qry2.Active:=True;
dm.qry2.First;
cbb7.Clear;
while not dm.qry2.Eof do
begin
//jwh:=dm.qry2.FieldByName('jwhmc').AsString;
cbb7.Items.Add(Trim(dm.qry2.FieldByName('fjhm').AsString));
dm.qry2.Next;
end;
end ;
end;
procedure TFormzhxx.cbb7Change(Sender: TObject);
begin
edt9.Text:='安徽省合肥市'+ssjd+cbb1.Text+cbb2.Text+cbb3.Text+cbb4.Text+cbb7.Text;
if chk1.Checked=True then
begin
if (cbb1.Text <> '') and (cbb2.Text <> '') and (cbb3.Text <> '') and (cbb4.Text <> '') and (cbb7.Text <> '') and (edt1.Text = '') then
begin
edt1.Enabled:=False;
with dm.qry2 do
begin
sql.Clear;
sql.Add('select zhbm from zhxxb where ssjwh='''+cbb1.Text+''' and ssxq='''+cbb2.Text+''' and ssld='''+cbb3.Text+''' and dyh='''+cbb4.Text+''' and mph='''+cbb7.Text+''' ' );
dm.qry2.Active:=True;
//dm.qry2.First;
//cbb2.Clear;
//while not dm.qry2.Eof do
begin
//jwh:=dm.qry2.FieldByName('jwhmc').AsString;
// cbb2.Items.Add(Trim(dm.qry2.FieldByName('xqmc').AsString));
edt1.Text:=Trim(dm.qry2.FieldByName('zhbm').AsString);
//dm.qry2.Next;
end;
end ;
end
else
begin
end
end
else
begin
end;
end;
procedure TFormzhxx.chk1Click(Sender: TObject);
begin
if chk1.Checked=True then
begin
if (cbb1.Text <> '') and (cbb2.Text <> '') and (cbb3.Text <> '') and (cbb4.Text <> '') and (cbb7.Text <> '') and (edt1.Text = '') then
begin
edt1.Enabled:=False;
with dm.qry2 do
begin
sql.Clear;
sql.Add('select zhbm from zhxxb where ssjwh='''+cbb1.Text+''' and ssxq='''+cbb2.Text+''' and ssld='''+cbb3.Text+''' and dyh='''+cbb4.Text+''' and mph='''+cbb7.Text+''' ' );
dm.qry2.Active:=True;
//dm.qry2.First;
//cbb2.Clear;
//while not dm.qry2.Eof do
begin
//jwh:=dm.qry2.FieldByName('jwhmc').AsString;
// cbb2.Items.Add(Trim(dm.qry2.FieldByName('xqmc').AsString));
edt1.Text:=Trim(dm.qry2.FieldByName('zhbm').AsString);
//dm.qry2.Next;
end;
end ;
end
else
begin
end
end
else
begin
edt1.Text:='';
edt1.Enabled:=True;
end;
end;
procedure TFormzhxx.dbgrdh1CellClick(Column: TColumnEh);
var
gh:string;
begin
chk1.Enabled:=False;
edt1.Enabled:=False;
gh:=dbgrdh1.DataSource.DataSet.findfield('zhbm').Value;
xm:=dbgrdh1.DataSource.DataSet.findfield('zhxm').Value;
with dm.qry3 do
begin
sql.Clear;
sql.Add('select * from zhxxb where zhbm='''+gh+''' and zhxm='''+xm+''' ');
open;
end;
edt1.Text:=dm.qry3.FieldByName('zhbm').AsString;
edt2.Text:=dm.qry3.FieldByName('nl').AsString;
cbb1.Text:=dm.qry3.FieldByName('ssjwh').AsString;
cbb2.Text:=dm.qry3.FieldByName('ssxq').AsString;
cbb3.Text:=dm.qry3.FieldByName('ssld').AsString;
cbb4.Text:=dm.qry3.FieldByName('dyh').AsString;
cbb7.Text:=dm.qry3.FieldByName('mph').AsString;
edt3.Text:=dm.qry3.FieldByName('zhxm').AsString;
cbb5.Text:=dm.qry3.FieldByName('sex').AsString;
edt4.Text:=dm.qry3.FieldByName('sfzh').AsString;
edt5.Text:=dm.qry3.FieldByName('hyzk').AsString;
edt6.Text:=dm.qry3.FieldByName('jhrq').AsString;
edt7.Text:=dm.qry3.FieldByName('hjdz').AsString;
edt12.Text:=dm.qry3.FieldByName('yhzgx').AsString;
edt8.Text:=dm.qry3.FieldByName('lxdh').AsString;
cbb6.Text:=dm.qry3.FieldByName('hklx').AsString;
edt9.Text:=dm.qry3.FieldByName('xzhuzhi').AsString;
edt10.Text:=dm.qry3.FieldByName('bz').AsString;
btn2.Enabled:=True;
btn5.Enabled:=True;
btn4.Enabled:=True;
btn1.Enabled:=False;
end;
procedure TFormzhxx.btn2Click(Sender: TObject);
begin
with dm.qry4 do
begin
sql.Clear;
sql.Add('select * from zhxxb where zhbm='''+edt1.Text+''' and zhxm='''+xm+''' ' );
Open;
Edit;
FieldByName('zhbm').AsString:=edt1.Text;
FieldByName('mph').AsString:=cbb7.Text;
FieldByName('dyh').AsString:=cbb4.Text;
FieldByName('zhxm').AsString:=edt3.Text;
FieldByName('nl').AsString:=edt2.Text;
FieldByName('yhzgx').AsString:=edt12.Text;
FieldByName('sex').AsString:=cbb5.Text;
FieldByName('sfzh').AsString:=edt4.Text;
FieldByName('hyzk').AsString:=edt5.Text;
FieldByName('jhrq').AsString:=edt6.Text;
FieldByName('hjdz').AsString:=edt7.Text;
FieldByName('xzhuzhi').AsString:=edt9.Text;
FieldByName('lxdh').AsString:=edt8.Text;
FieldByName('hklx').AsString:=cbb6.Text;
FieldByName('ssld').AsString:=cbb3.Text;
FieldByName('ssxq').AsString:=cbb2.Text;
FieldByName('ssjwh').AsString:=cbb1.Text;
FieldByName('ssjd').AsString:=Ssjd;
FieldByName('bz').AsString:=edt10.Text;
post;
application.MessageBox('修改成功!','提示',64);
//dm.tbl1.Refresh;
end;
with dm.qry4 do
begin
sql.Clear;
sql.Add('select * from zhxxb order by zhbm ' );
dm.qry4.Active:=True;
end ;
dbgrdh1.Columns[0].Title.Caption:='户况编码';
dbgrdh1.Columns[0].HideDuplicates:=True;
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[18].Title.Caption:='备注';
dbgrdh1.Columns[0].Width:=90;
dbgrdh1.Columns[1].Width:=50;
dbgrdh1.Columns[2].Width:=50;
dbgrdh1.Columns[3].Width:=80;
dbgrdh1.Columns[4].Width:=30;
dbgrdh1.Columns[5].Width:=70;
dbgrdh1.Columns[6].Width:=30;
dbgrdh1.Columns[7].Width:=90;
dbgrdh1.Columns[8].Width:=80;
dbgrdh1.Columns[9].Width:=70;
dbgrdh1.Columns[10].Width:=123;
dbgrdh1.Columns[11].Width:=160;
dbgrdh1.Columns[12].Width:=90;
dbgrdh1.Columns[13].Width:=50;
dbgrdh1.Columns[14].Width:=50;
dbgrdh1.Columns[15].Width:=80;
dbgrdh1.Columns[16].Width:=80;
dbgrdh1.Columns[17].Width:=70;
dbgrdh1.Columns[18].Width:=130;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -