realtya26.pas
来自「物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、」· PAS 代码 · 共 787 行 · 第 1/2 页
PAS
787 行
s6:=Edit9.text+s6;
s:='select * from 房间 where 编号='''+sNum;
s:=s+'''';
if DataModuleADO.ADOConnection1.InTransaction=true then
DataModuleADO.ADOConnection1.RollbackTrans;
query1.sql.Clear;
query1.SQL.Add(s);
query1.Open;
if query1.RecordCount=0 then
begin
s:='insert into 房间(编号,名称,管理处,管理区,楼宇,';
s:=s+'房型,单元号,楼层号,朝向,建筑面积,';
s:=s+'使用面积,地址,权属类型,用途,装修情况,';
s:=s+'配套设施,说明)';
s:=s+' Values(:s1,:s2,:s3,:s4,:s5,';
s:=s+':s6,:s7,:s8,:s9,:s10,';
s:=s+':s11,:s12,:s13,:s14,:s15,';
s:=s+':s16,:s17)';
query.sql.Clear;
query.SQL.Add(s);
query.Open;
if query.RecordCount=0 then
begin
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=sNum;
query.Parameters.ParamByName('s2').Value:=s6;
query.Parameters.ParamByName('s3').Value:=s1;
query.Parameters.ParamByName('s4').Value:=s2;
query.Parameters.ParamByName('s5').Value:=s3;
query.Parameters.ParamByName('s6').Value:=r1;
query.Parameters.ParamByName('s7').Value:=s4;
query.Parameters.ParamByName('s8').Value:=s5;
query.Parameters.ParamByName('s9').Value:=r2;
query.Parameters.ParamByName('s10').Value:=mainform.stddou2(edit11.Text);
query.Parameters.ParamByName('s11').Value:=mainform.stddou2(edit12.Text);
query.Parameters.ParamByName('s12').Value:=edit10.Text;
query.Parameters.ParamByName('s13').Value:=r3;
query.Parameters.ParamByName('s14').Value:=r4;
query.Parameters.ParamByName('s15').Value:=edit13.Text;
query.Parameters.ParamByName('s16').Value:=edit14.Text;
query.Parameters.ParamByName('s17').Value:=edit15.Text;
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
end;
end;
end;
end;
end; }
if (getStatus(Edit3.Text)='5') and (getStatus(Edit4.Text)='5') and (getStatus(Edit5.Text)='0') and (getStatus(Edit6.Text)='0') and (getStatus(Edit7.Text)='5') and (getStatus(Edit8.Text)='5') then
begin
for i:=ord(t3[1]) to ord(t4[1]) do
begin
for j:=strtoint(edit5.Text) to strtoint(edit6.Text) do
begin
for k:=ord(t7[1]) to ord(t8[1]) do
begin
getID;
s4:=chr(i);
s5:=inttostr(j);
s6:=chr(i)+ss+inttostr(j)+ss+chr(k);
s6:=Edit9.text+s6;
s:='select * from 房间 where 编号='''+sNum;
s:=s+'''';
if DataModuleADO.ADOConnection1.InTransaction=true then
DataModuleADO.ADOConnection1.RollbackTrans;
query1.sql.Clear;
query1.SQL.Add(s);
query1.Open;
if query1.RecordCount=0 then
begin
s:='insert into 房间(编号,名称,管理处,管理区,楼宇,';
s:=s+'房型,单元号,楼层号,朝向,建筑面积,';
s:=s+'使用面积,地址,权属类型,用途,装修情况,';
s:=s+'配套设施,说明)';
s:=s+' Values(:s1,:s2,:s3,:s4,:s5,';
s:=s+':s6,:s7,:s8,:s9,:s10,';
s:=s+':s11,:s12,:s13,:s14,:s15,';
s:=s+':s16,:s17)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=sNum;
query.Parameters.ParamByName('s2').Value:=s6;
query.Parameters.ParamByName('s3').Value:=s1;
query.Parameters.ParamByName('s4').Value:=s2;
query.Parameters.ParamByName('s5').Value:=s3;
query.Parameters.ParamByName('s6').Value:=r1;
query.Parameters.ParamByName('s7').Value:=s4;
query.Parameters.ParamByName('s8').Value:=s5;
query.Parameters.ParamByName('s9').Value:=r2;
query.Parameters.ParamByName('s10').Value:=mainform.stddou2(edit11.Text);
query.Parameters.ParamByName('s11').Value:=mainform.stddou2(edit12.Text);
query.Parameters.ParamByName('s12').Value:=edit10.Text;
query.Parameters.ParamByName('s13').Value:=r3;
query.Parameters.ParamByName('s14').Value:=r4;
query.Parameters.ParamByName('s15').Value:=edit13.Text;
query.Parameters.ParamByName('s16').Value:=edit14.Text;
query.Parameters.ParamByName('s17').Value:=edit15.Text;
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
end;
end;
end;
end;
if (getStatus(Edit3.Text)='5') and (getStatus(Edit4.Text)='5') and (getStatus(Edit5.Text)='0') and (getStatus(Edit6.Text)='0') and (getStatus(Edit7.Text)='0') and (getStatus(Edit8.Text)='0') then
begin
for i:=ord(t3[1]) to ord(t4[1]) do
begin
for j:=strtoint(edit5.Text) to strtoint(edit6.Text) do
begin
for k:=strtoint(edit7.Text) to strtoint(edit8.Text) do
begin
getID;
s4:=chr(i);
s5:=inttostr(j);
s6:=inttostr(k);
if k<10 then s6:='0'+inttostr(k);
s6:=chr(i)+ss+inttostr(j)+ss+s6;
s6:=Edit9.text+s6;
s:='select * from 房间 where 编号='''+sNum;
s:=s+'''';
if DataModuleADO.ADOConnection1.InTransaction=true then
DataModuleADO.ADOConnection1.RollbackTrans;
query1.sql.Clear;
query1.SQL.Add(s);
query1.Open;
if query1.RecordCount=0 then
begin
s:='insert into 房间(编号,名称,管理处,管理区,楼宇,';
s:=s+'房型,单元号,楼层号,朝向,建筑面积,';
s:=s+'使用面积,地址,权属类型,用途,装修情况,';
s:=s+'配套设施,说明)';
s:=s+' Values(:s1,:s2,:s3,:s4,:s5,';
s:=s+':s6,:s7,:s8,:s9,:s10,';
s:=s+':s11,:s12,:s13,:s14,:s15,';
s:=s+':s16,:s17)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=sNum;
query.Parameters.ParamByName('s2').Value:=s6;
query.Parameters.ParamByName('s3').Value:=s1;
query.Parameters.ParamByName('s4').Value:=s2;
query.Parameters.ParamByName('s5').Value:=s3;
query.Parameters.ParamByName('s6').Value:=r1;
query.Parameters.ParamByName('s7').Value:=s4;
query.Parameters.ParamByName('s8').Value:=s5;
query.Parameters.ParamByName('s9').Value:=r2;
query.Parameters.ParamByName('s10').Value:=mainform.stddou2(edit11.Text);
query.Parameters.ParamByName('s11').Value:=mainform.stddou2(edit12.Text);
query.Parameters.ParamByName('s12').Value:=edit10.Text;
query.Parameters.ParamByName('s13').Value:=r3;
query.Parameters.ParamByName('s14').Value:=r4;
query.Parameters.ParamByName('s15').Value:=edit13.Text;
query.Parameters.ParamByName('s16').Value:=edit14.Text;
query.Parameters.ParamByName('s17').Value:=edit15.Text;
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
end;
end;
end;
end;
query.Close;
query.free;
query1.Close;
query1.free;
showmessage('批量新增成功!');
end;
//Tab******************************************
procedure Tf_RealtyA26.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
Begin
key:=0;
perform(WM_NEXTDLGCTL,0,0);
end
else if key=VK_ESCAPE then close;
end;
//FreeForm*************************************
procedure Tf_RealtyA26.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
//Close****************************************
procedure Tf_RealtyA26.Button2Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyA26.Button3Click(Sender: TObject);
var
s:string;
begin
if length(Edit3.Text)=1 then
begin
//if Ord(Edit3.text) >
///if asc(Edit3.text)>65 and bb<90 or bb>97 and bb<122 then
showmessage( IntToStr(Ord('W')));
end;
end;
function ok(s:string):boolean;
var
i:integer;
begin
result:=true;//---合格
if length(s)>4 then
begin
result:=false;
exit;
end;
for i:=1 to length(s) do
begin
if not result then break;
case i of 1..2:
begin
if not (s[i] in ['a'..'z','A'..'Z']) then
begin
result:=false;
break;
end;
end;
3..6:
begin
if not (s[i] in ['0'..'9']) then
begin
result:=false;
break;
end;
end;
end;
end;
end;
procedure Tf_RealtyA26.Edit3Exit(Sender: TObject);
begin
Edit3.text:=getDS(Edit3.text);
end;
procedure Tf_RealtyA26.Edit4Exit(Sender: TObject);
begin
Edit4.text:=getDS(Edit4.text);
end;
procedure Tf_RealtyA26.Edit5Exit(Sender: TObject);
begin
Edit5.Text:=mainform.StdInt(Edit5.text);
end;
procedure Tf_RealtyA26.Edit6Exit(Sender: TObject);
begin
Edit6.Text:=mainform.StdInt(Edit6.text);
end;
procedure Tf_RealtyA26.Edit7Exit(Sender: TObject);
begin
Edit7.text:=getDS(Edit7.text);
end;
procedure Tf_RealtyA26.Edit8Exit(Sender: TObject);
begin
Edit8.text:=getDS(Edit8.text);
end;
procedure Tf_RealtyA26.ComboBox1Select(Sender: TObject);
begin
if ComboBox1.Text='新增房型' then
begin
mainform.t1:='房型';
f_Car4s931:=Tf_Car4s931.Create(self);
f_Car4s931.showmodal;
if f_Car4s931.bOK=true then
begin
ComboBox1.Items.Add(mainform.t1);
ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(mainform.t1);
end
else ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf('');
end;
end;
procedure Tf_RealtyA26.ComboBox4Select(Sender: TObject);
begin
if ComboBox4.Text='新增用途' then
begin
mainform.t1:='用途';
f_Car4s931:=Tf_Car4s931.Create(self);
f_Car4s931.showmodal;
if f_Car4s931.bOK=true then
begin
ComboBox4.Items.Add(mainform.t1);
ComboBox4.ItemIndex:=ComboBox4.Items.IndexOf(mainform.t1);
end
else ComboBox4.ItemIndex:=ComboBox4.Items.IndexOf('');
end;
end;
procedure Tf_RealtyA26.ComboBox2Select(Sender: TObject);
begin
if ComboBox2.Text='新增朝向' then
begin
mainform.t1:='朝向';
f_Car4s931:=Tf_Car4s931.Create(self);
f_Car4s931.showmodal;
if f_Car4s931.bOK=true then
begin
ComboBox2.Items.Add(mainform.t1);
ComboBox2.ItemIndex:=ComboBox2.Items.IndexOf(mainform.t1);
end
else ComboBox2.ItemIndex:=ComboBox2.Items.IndexOf('');
end;
end;
procedure Tf_RealtyA26.ComboBox3Select(Sender: TObject);
begin
if ComboBox3.Text='新增权属类型' then
begin
mainform.t1:='权属类型';
f_Car4s931:=Tf_Car4s931.Create(self);
f_Car4s931.showmodal;
if f_Car4s931.bOK=true then
begin
ComboBox3.Items.Add(mainform.t1);
ComboBox3.ItemIndex:=ComboBox3.Items.IndexOf(mainform.t1);
end
else ComboBox3.ItemIndex:=ComboBox3.Items.IndexOf('');
end;
end;
end.
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?