📄 floor.pas

📁 一个实用的房地产行业收费管理软件
💻 PAS
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
  parambyname('room').Value:= dbnumberediteh17.Value;
  parambyname('roomyear').Value:=dbnumberediteh5.Value;
  parambyname('roomdz').Value:=dbnumberediteh8.Value;
  parambyname('ssroom').Value:= dbnumberediteh17.Value;
  parambyname('glf').Value:=dbnumberediteh19.Value;
  parambyname('glfyear').Value:=dbnumberediteh14.Value;
  parambyname('glfdz').Value:=dbnumberediteh15.Value;
  parambyname('ssglf').Value:=dbnumberediteh19.Value;
  parambyname('jzdate').Value:=dbdatetimeediteh1.Value;
  parambyname('dzdate').Value:=dbdatetimeediteh2.Value;
  parambyname('tsno').Value:=edit5.text;     //写字楼房号
  parambyname('note').Value:=edit6.text;     //宿舍房号
  parambyname('xzlnote').Value:=edit7.text;
  parambyname('roomnote').Value:=edit8.text;
  parambyname('glfnote').Value:=edit9.text;
  parambyname('yjnote').Value:=edit10.text;
  parambyname('otherfnote').Value:=edit11.text;
  parambyname('dtfnote').Value:=edit12.text;
  parambyname('artnote').Value:=edit13.text;
  parambyname('mbb').Value:=dbcomboboxeh5.Value;
  execsql;
end;

datamodule1.tpq.sql.clear;
datamodule1.tpq.sql.add('delete  from repo  where htno=:mm');
datamodule1.tpq.parambyname('mm').value:=edit4.Text;
datamodule1.tpq.execsql;

if  listbox2.Items.Count>0 then
begin
for miount:=0  to listbox2.Items.Count-1 do      //把要打印的格式存入repo中
begin
datamodule1.tpq.sql.clear;
datamodule1.tpq.sql.add('select * from printt where mm=:mm');
datamodule1.tpq.parambyname('mm').value:=listbox2.items.Strings[miount];
datamodule1.tpq.open;

datamodule1.printt.SQL.clear;
datamodule1.printt.SQL.Add('insert into repo(cfile,cname,htno,totrecord)');
datamodule1.printt.SQL.Add('values (:mcf,:mcn,:mhtno,:mtot)');
datamodule1.printt.parambyname('mcf').Value:=datamodule1.tpq.fieldbyname('nn').value;
datamodule1.printt.parambyname('mcn').Value:=listbox2.items.Strings[miount];
datamodule1.printt.parambyname('mhtno').Value:=edit4.Text;
datamodule1.printt.parambyname('mtot').Value:=1;        //表示是第2个列表框的内容
datamodule1.printt.execsql;
end;
end;                          //每张合同都要定义打印格式

if  listbox3.Items.Count>0 then
begin
for miount:=0  to listbox3.Items.Count-1 do      //把要打印的格式存入repo中
begin
datamodule1.tpq.sql.clear;
datamodule1.tpq.sql.add('select * from printt where mm=:mm');
datamodule1.tpq.parambyname('mm').value:=listbox3.items.Strings[miount];
datamodule1.tpq.open;

datamodule1.printt.SQL.clear;
datamodule1.printt.SQL.Add('insert into repo(cfile,cname,htno,totrecord)');
datamodule1.printt.SQL.Add('values (:mcf,:mcn,:mhtno,:mtot)');
datamodule1.printt.parambyname('mcf').Value:=datamodule1.tpq.fieldbyname('nn').value;
datamodule1.printt.parambyname('mcn').Value:=listbox3.items.Strings[miount];
datamodule1.printt.parambyname('mhtno').Value:=edit4.Text;
datamodule1.printt.parambyname('mtot').Value:=2;        //表示是第2个列表框的内容
datamodule1.printt.execsql;
end;
end;                          //每张合同都要定义打印格式


if  listbox4.Items.Count>0 then
begin
for miount:=0  to listbox4.Items.Count-1 do      //把要打印的格式存入repo中
begin
datamodule1.tpq.sql.clear;
datamodule1.tpq.sql.add('select * from printt where mm=:mm');
datamodule1.tpq.parambyname('mm').value:=listbox4.items.Strings[miount];
datamodule1.tpq.open;

datamodule1.printt.SQL.clear;
datamodule1.printt.SQL.Add('insert into repo(cfile,cname,htno,totrecord)');
datamodule1.printt.SQL.Add('values (:mcf,:mcn,:mhtno,:mtot)');
datamodule1.printt.parambyname('mcf').Value:=datamodule1.tpq.fieldbyname('nn').value;
datamodule1.printt.parambyname('mcn').Value:=listbox4.items.Strings[miount];
datamodule1.printt.parambyname('mhtno').Value:=edit4.Text;
datamodule1.printt.parambyname('mtot').Value:=3;        //表示是第2个列表框的内容
datamodule1.printt.execsql;
end;
end;                          //每张合同都要定义打印格式

 with datamodule1.htQ do
 begin
  sql.clear;
  sql.add('select a.*,b.custom,b.floor from ht a,company b where a.customno=b.customno and b.floor=:mf');
  if edit4.Text<>'' then
  sql.add('and htno=:htno');
  if edit4.Text<>'' then
  parambyname('htno').asstring:=edit4.Text;
  parambyname('mf').asstring:=dbcomboboxeh7.Value;
  open;
 end;
 application.MessageBox('增加完毕!','提  示',mb_ok);
end;   //增加结束

if edit_state=2 then   //修改开始
begin
with datamodule1.insertcustom do
begin
  sql.Clear;
  sql.add('update ht set customno=:customno,otherf=:otherf,dtf=:dtf');
  sql.Add(',yj=:yj,xzl=:xzl,xzlyear=:xzlyear,');
  sql.add('xzldz=:xzldz,art=:art,artyear=:artyear,artdz=:artdz,');
  sql.add('room=:room,roomyear=:roomyear,roomdz=:roomdz,tsno=:tsno,note=:note');
  sql.add(',glf=:glf,glfyear=:glfyear,glfdz=:glfdz,jzdate=:jzdate,dzdate=:dzdate,zl=:zl');
  sql.add(',ssartnote=:artnote,ssroomnote=:roomnote,ssxzlnote=:xzlnote,ssglfnote=:glfnote,dtfnote=:dtfnote,yjnote=:yjnote,otherfnote=:otherfnote,bb=:mbb');
  sql.add('where htno=:htno');
  parambyname('htno').Value:=edit4.Text;
  parambyname('customno').Value:=edit2.Text;
  parambyname('otherf').Value:=dbnumberediteh10.Value;
  parambyname('dtf').Value:=dbnumberediteh11.Value;
  parambyname('yj').Value:=dbnumberediteh12.Value;
  parambyname('xzl').Value:= dbnumberediteh16.Value;
  parambyname('zl').Value:= dbnumberediteh20.Value;
  parambyname('xzlyear').Value:= dbnumberediteh4.Value;
  parambyname('xzldz').Value:= dbnumberediteh7.Value;
  parambyname('art').Value:=dbnumberediteh18.Value;
  parambyname('artyear').Value:=dbnumberediteh6.Value;
  parambyname('artdz').value:=dbnumberediteh9.Value;
  parambyname('room').Value:= dbnumberediteh17.Value;
  parambyname('roomyear').Value:=dbnumberediteh5.Value;
  parambyname('roomdz').Value:=dbnumberediteh8.Value;
  parambyname('glf').Value:=dbnumberediteh19.Value;
  parambyname('glfyear').Value:=dbnumberediteh14.Value;
  parambyname('glfdz').Value:=dbnumberediteh15.Value;
  parambyname('jzdate').Value:=dbdatetimeediteh1.Value;
  parambyname('dzdate').Value:=dbdatetimeediteh2.Value;
  parambyname('tsno').Value:=edit5.text;
  parambyname('note').Value:=edit6.text;
  parambyname('xzlnote').Value:=edit7.text;
  parambyname('roomnote').Value:=edit8.text;
  parambyname('glfnote').Value:=edit9.text;
  parambyname('yjnote').Value:=edit10.text;
  parambyname('otherfnote').Value:=edit11.text;
  parambyname('dtfnote').Value:=edit12.text;
  parambyname('artnote').Value:=edit13.text;
  parambyname('mbb').Value:=dbcomboboxeh5.Value;
  execsql;
end;
 application.MessageBox('修改完毕!','提  示',mb_ok);
end;   //修改结束
 bitbtn9.Enabled:=true;
 bitbtn11.Enabled:=true;
 bitbtn24.Enabled:=false;

end;

procedure TForm1.Edit2Exit(Sender: TObject);
begin
  with datamodule1.insertcustom do
  begin
     sql.clear;
     sql.add('select * from company where customno=:mm');
     parambyname('mm').Value:=edit2.Text;
     open;
     if recordcount<=0 then
     begin
     application.MessageBox('没有此编号','提  示',mb_ok);
     edit2.SetFocus;
     edit3.Text:='';
     end else
     begin
     edit3.Text:=fieldbyname('custom').Value;
     if edit_state=1 then    //开始合同编号生成　　客户编号＋序号
     begin
      datamodule1.insertsd.SQL.Clear;
      datamodule1.insertsd.SQL.add('select * from ht where  customno=:mm');
      datamodule1.insertsd.parambyname('mm').Value:=edit2.Text;
      datamodule1.insertsd.open;
      if  datamodule1.insertsd.RecordCount<=0 then
      edit4.Text:=edit2.text+'01';
      if  (datamodule1.insertsd.RecordCount>0) and  (datamodule1.insertsd.RecordCount<9) then
      edit4.Text:=edit2.Text+ '0'+inttostr(datamodule1.insertsd.RecordCount+1);
      if  datamodule1.insertsd.RecordCount>=9 then
      edit4.Text:=edit2.Text+inttostr(datamodule1.insertsd.RecordCount);
     end;
     end;
   end;
end;

procedure TForm1.DBGridEh2CellClick(Column: TColumnEh);
begin
  if  datamodule1.htQ.RecordCount>0 then
  begin
  with datamodule1.htQ do
  begin
   edit4.Text:=  fieldbyname('htno').Value;
   edit2.Text:=  fieldbyname('customno').Value;
   dbnumberediteh10.Value:=  fieldbyname('otherf').Value;
   dbnumberediteh11.Value:=  fieldbyname('dtf').Value;
   dbnumberediteh12.Value:=  fieldbyname('yj').Value;
   dbnumberediteh16.Value:=  fieldbyname('xzl').Value;
   dbnumberediteh4.Value :=  fieldbyname('xzlyear').Value;
   dbnumberediteh7.Value:=  fieldbyname('xzldz').Value;
   dbnumberediteh1.Value:=  fieldbyname('ssxzl').Value;
   dbnumberediteh18.Value:=  fieldbyname('art').Value;
   dbnumberediteh6.Value  :=fieldbyname('artyear').Value;
   dbnumberediteh9.Value  :=fieldbyname('artdz').value;
   dbnumberediteh3.Value := fieldbyname('ssart').Value;
   dbnumberediteh17.Value := fieldbyname('room').Value ;
   dbnumberediteh5.Value  :=fieldbyname('roomyear').Value;
   dbnumberediteh8.Value  :=fieldbyname('roomdz').Value;
   dbnumberediteh2.Value := fieldbyname('ssroom').Value;
   dbnumberediteh19.Value := fieldbyname('glf').Value;
   dbnumberediteh14.Value := fieldbyname('glfyear').Value;
   dbnumberediteh15.Value  :=fieldbyname('glfdz').Value;
   dbnumberediteh13.Value  :=fieldbyname('ssglf').Value;
   dbdatetimeediteh1.Value := fieldbyname('jzdate').Value;
   dbdatetimeediteh2.Value  :=fieldbyname('dzdate').Value;
   if fieldbyname('tsno').Value<>null then
   edit5.text  :=fieldbyname('tsno').Value else
   edit5.text  :='';
   if fieldbyname('note').Value<>null then
   edit6.Text  :=fieldbyname('note').Value else
   edit6.text  :='';
   if fieldbyname('ssxzlnote').Value<>null then
   edit7.text  :=fieldbyname('ssxzlnote').Value else
   edit7.Text  :='';
   if fieldbyname('ssroomnote').Value<>null then
   edit8.text  :=fieldbyname('ssroomnote').Value else
   edit8.Text  :='';
   if fieldbyname('ssglfnote').Value<>null then
   edit9.text  :=fieldbyname('ssglfnote').Value  else
   edit9.Text  :='';
   if fieldbyname('yjnote').Value<>null then
   edit10.text :=fieldbyname('yjnote').Value else
   edit10.Text :='';
   if  fieldbyname('otherfnote').Value<>null then
   edit11.text :=fieldbyname('otherfnote').Value else
   edit11.Text :='';
   if  fieldbyname('dtfnote').Value<>null then
   edit12.text :=fieldbyname('dtfnote').Value else
   edit12.Text :='';
   if  fieldbyname('ssartnote').Value<>null then
   edit13.text :=fieldbyname('ssartnote').Value else
   edit13.Text :='';
   dbcomboboxeh5.Value:=fieldbyname('bb').Value;
  end;
 end; 
end;

procedure TForm1.DBGridEh2ColExit(Sender: TObject);
begin
  if datamodule1.htQ.RecordCount>0 then
  begin
  with datamodule1.htQ do
  begin
   edit4.Text:=  fieldbyname('htno').Value;
   edit2.Text:=  fieldbyname('customno').Value;
   dbnumberediteh10.Value:=  fieldbyname('otherf').Value;
   dbnumberediteh11.Value:=  fieldbyname('dtf').Value;
   dbnumberediteh12.Value:=  fieldbyname('yj').Value;
   dbnumberediteh16.Value:=  fieldbyname('xzl').Value;
   dbnumberediteh4.Value :=  fieldbyname('xzlyear').Value;
   dbnumberediteh7.Value:=  fieldbyname('xzldz').Value;
   dbnumberediteh1.Value:=  fieldbyname('ssxzl').Value;
   dbnumberediteh18.Value:=  fieldbyname('art').Value;
   dbnumberediteh6.Value  :=fieldbyname('artyear').Value;
   dbnumberediteh9.Value  :=fieldbyname('artdz').value;
   dbnumberediteh3.Value := fieldbyname('ssart').Value;
   dbnumberediteh17.Value := fieldbyname('room').Value ;
   dbnumberediteh5.Value  :=fieldbyname('roomyear').Value;
   dbnumberediteh8.Value  :=fieldbyname('roomdz').Value;
   dbnumberediteh2.Value := fieldbyname('ssroom').Value;
   dbnumberediteh19.Value := fieldbyname('glf').Value;
   dbnumberediteh14.Value := fieldbyname('glfyear').Value;
   dbnumberediteh15.Value  :=fieldbyname('glfdz').Value;
   dbnumberediteh13.Value  :=fieldbyname('ssglf').Value;
   dbdatetimeediteh1.Value := fieldbyname('jzdate').Value;
   dbdatetimeediteh2.Value  :=fieldbyname('dzdate').Value;
   if fieldbyname('tsno').Value<>null then
   edit5.text  :=fieldbyname('tsno').Value else
   edit5.text  :='';
   if fieldbyname('note').Value<>null then
   edit6.Text  :=fieldbyname('note').Value else
   edit6.text  :='';
   if fieldbyname('ssxzlnote').Value<>null then
   edit7.text  :=fieldbyname('ssxzlnote').Value else
   edit7.Text  :='';
   if fieldbyname('ssroomnote').Value<>null then
   edit8.text  :=fieldbyname('ssroomnote').Value else
   edit8.Text  :='';
   if fieldbyname('ssglfnote').Value<>null then
   edit9.text  :=fieldbyname('ssglfnote').Value  else
   edit9.Text  :='';
   if fieldbyname('yjnote').Value<>null then
   edit10.text :=fieldbyname('yjnote').Value else
   edit10.Text :='';
   if  fieldbyname('otherfnote').Value<>null then
   edit11.text :=fieldbyname('otherfnote').Value else
   edit11.Text :='';
   if  fieldbyname('dtfnote').Value<>null then
   edit12.text :=fieldbyname('dtfnote').Value else
   edit12.Text :='';
   if  fieldbyname('ssartnote').Value<>null then
   edit13.text :=fieldbyname('ssartnote').Value else
   edit13.Text :='';
   dbcomboboxeh5.Value:=fieldbyname('bb').Value;
  end;
  end;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
    begin
    key:=#0;
    perform(WM_nextdlgctl,0,0);
    end;  
end;

procedure TForm1.BitBtn25Click(Sender: TObject);
var
 miount:integer;
begin
for miount:=0 to     listbox1.Items.Count-1 do
begin
if listbox1.selected[miount] then
   begin
   listbox2.items.add(listbox1.items.Strings[miount]);
   end;
end;
end;

procedure TForm1.BitBtn26Click(Sender: TObject);
begin
   listbox2.items.Delete(listbox2.itemindex);
end;

procedure TForm1.BitBtn27Click(Sender: TObject);
var miount:integer;
begin
for miount:=0 to     listbox1.Items.Count-1 do
begin
if listbox1.selected[miount] then
   begin
   listbox3.items.add(listbox1.items.Strings[miount]);
   end;
end;

end;

procedure TForm1.BitBtn29Click(Sender: TObject);
var miount:integer;
begin
for miount:=0 to     listbox1.Items.Count-1 do
begin
if listbox1.selected[miount] then
   begin
   listbox4.items.add(listbox1.items.Strings[miount]);
   end;
end;

end;

procedure TForm1.BitBtn28Click(Sender: TObject);
begin
   listbox3.items.Delete(listbox3.itemindex);
end;

procedure TForm1.BitBtn30Click(S
上一页 1 2 3 45
💿 文件大小 1566 K
👤 上传用户 norwaybaby
📂 所属分类其他行业
🏷️ 相关标签

#房地产 #收费 #管理软件
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -