realtyf63a.pas
来自「物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、」· PAS 代码 · 共 1,277 行 · 第 1/4 页
PAS
1,277 行
DataModuleADO.ADOConnection1.CommitTrans;
//保存从表
for i:=0 to listview1.Items.Count-1 do
begin
if listview1.Items.Item[i].Caption='' then listview1.Items.Item[i].Caption:='-';
if listview1.Items.Item[i].SubItems[0]='' then listview1.Items.Item[i].SubItems[0]:='-';
listview1.Items.Item[i].SubItems[1]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[1]);
listview1.Items.Item[i].SubItems[2]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[2]);
listview1.Items.Item[i].SubItems[3]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[3]);
s:='insert into 服务派工单派工物料(编号,名称,单价,数量,金额,单号) values(:s1,:s2,:s3,:s4,:s5,:s6)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=trim(listview1.Items.Item[i].Caption);
query.Parameters.ParamByName('s2').Value:=trim(listview1.Items.Item[i].SubItems[0]);
query.Parameters.ParamByName('s3').Value:=trim(listview1.Items.Item[i].SubItems[1]);
query.Parameters.ParamByName('s4').Value:=trim(listview1.Items.Item[i].SubItems[2]);
query.Parameters.ParamByName('s5').Value:=trim(listview1.Items.Item[i].SubItems[3]);
query.Parameters.ParamByName('s6').Value:=trim(edit1.Text);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
//保存从表
for i:=0 to listview2.Items.Count-1 do
begin
if listview2.Items.Item[i].Caption='' then listview2.Items.Item[i].Caption:='-';
listview2.Items.Item[i].SubItems[0]:=mainform.StdDou2(listview2.Items.Item[i].SubItems[0]);
s:='insert into 服务派工单派工房间(房间,建筑面积,单号) values(:s1,:s2,:s3)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=trim(mainform.getNum(listview2.Items.Item[i].Caption));
query.Parameters.ParamByName('s2').Value:=trim(listview2.Items.Item[i].SubItems[0]);
query.Parameters.ParamByName('s3').Value:=trim(edit1.Text);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
for i:=0 to listview3.Items.Count-1 do
begin
s:='insert into 服务派工单服务人员(职员,备注,单号) values(:s1,:s2,:s3)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=trim(listview3.Items.Item[i].Caption);
query.Parameters.ParamByName('s2').Value:=trim(listview3.Items.Item[i].SubItems[0]);
query.Parameters.ParamByName('s3').Value:=trim(edit1.Text);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
showmessage('保存成功-');
// 三 追加数据到父窗口listview中
query.sql.clear;
query.SQL.Add('select * from 服务派工单 where 单号='''+edit1.Text+'''');
query.Open;
if query.recordcount>0 then
begin
with f_RealtyF63.listview1.items.add do
begin
caption:=query.fieldbyname('单号').Value;
subitems.Add(query.fieldbyname('派工单号').Value);
subitems.Add(query.fieldbyname('客户').Value);
subitems.Add(query.fieldbyname('服务类别').Value);
subitems.Add(query.fieldbyname('联系人').Value);
subitems.Add(query.fieldbyname('联系电话').Value);
subitems.Add(query.fieldbyname('受理时间').Value);
subitems.Add(query.fieldbyname('要求处理事项').Value);
query1.sql.clear;
query1.sql.add('select * from 服务派工验收 where 单号='''+query.fieldbyname('单号').Value+'''');
query1.open;
if query1.recordcount>0 then
begin
subitems.Add(query1.fieldbyname('实际处理事项').Value);
subitems.Add(query1.fieldbyname('处理结果').Value);
subitems.Add(query1.fieldbyname('到达时间').Value);
subitems.Add(query1.fieldbyname('完工时间').Value);
subitems.Add(query1.fieldbyname('客户验收通过').Value);
subitems.Add(query1.fieldbyname('服务评价').Value);
end
else
begin
subitems.add('');
subitems.Add('');
subitems.add('');
subitems.add('');
subitems.add('');
subitems.add('');
end;
subitems.Add(query.fieldbyname('需要生成临时费用单').Value);
subitems.Add(query.fieldbyname('审核人').Value);
subitems.Add(query.fieldbyname('审核').Value);
subitems.Add(query.fieldbyname('审核时间').Value);
subitems.Add(query.fieldbyname('审核意见').Value);
end;
end;
query1.Close;
query1.Free;
query.Close;
query.Free;
// 四 清空字段、设置自动编号并移动光标到第一个录入字段的输入框中
getId;
getid1;
edit3.Text:='';
edit4.text:='';
edit5.text:='';
edit6.date:=date;
edit7.text:='';
edit8.text:='';
edit9.date:=date;
edit10.date:=date;
edit11.text:='';
edit12.text:='';
edit13.text:=czy;
edit14.text:='';
edit15.text:='';
Edit1.SetFocus;
listview1.items.clear;
listview2.items.clear;
listview3.Items.Clear;
end;
// 5 修改
if f_RealtyF63.bnew=false then
begin
// 一更新主表
s:='update 服务派工单 set 单号='''+edit1.text;
s:=s+''',派工单号='''+edit2.Text;
s:=s+''',客户='''+edit3.Text;
s:=s+''',服务类别='''+edit4.text;
s:=s+''',受理人='''+edit5.Text;
s:=s+''',受理时间='''+datetostr(edit6.date);
s:=s+''',联系人='''+edit7.Text;
s:=s+''',联系电话='''+edit8.Text;
s:=s+''',开工时间='''+datetostr(edit9.date);
s:=s+''',完工时间='''+datetostr(edit10.date);
s:=s+''',要求处理事项='''+edit11.Text;
s:=s+''',备注='''+edit12.Text;
s:=s+''',操作员='''+edit13.Text;
s:=s+''',修订='''+edit14.Text;
s:=s+''',审核人='''+edit14.Text;
s:=s+''' where 单号='''+f_RealtyF63.ListView1.Selected.caption+'''';
query.SQL.Clear;
query.SQL.Add(s);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
// 二删除从表再重新保存从表
DataModuleADO.ADOConnection1.BeginTrans;
query.sql.clear;
Query.SQL.Text:='delete from 服务派工单派工物料 where 单号='''+f_RealtyF63.listview1.Selected.caption+'''';
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
DataModuleADO.ADOConnection1.BeginTrans;
query.sql.clear;
Query.SQL.Text:='delete from 服务派工单派工房间 where 单号='''+f_RealtyF63.listview1.Selected.caption+'''';
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
DataModuleADO.ADOConnection1.BeginTrans;
query.sql.clear;
Query.SQL.Text:='delete from 服务派工单服务人员 where 单号='''+f_RealtyF63.listview1.Selected.caption+'''';
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
//保存从表
for i:=0 to listview1.Items.Count-1 do
begin
if listview1.Items.Item[i].Caption='' then listview1.Items.Item[i].Caption:='-';
if listview1.Items.Item[i].SubItems[0]='' then listview1.Items.Item[i].SubItems[0]:='-';
listview1.Items.Item[i].SubItems[1]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[1]);
listview1.Items.Item[i].SubItems[2]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[2]);
listview1.Items.Item[i].SubItems[3]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[3]);
s:='insert into 服务派工单派工物料(编号,名称,单价,数量,金额,单号) values(:s1,:s2,:s3,:s4,:s5,:s6)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=trim(listview1.Items.Item[i].Caption);
query.Parameters.ParamByName('s2').Value:=trim(listview1.Items.Item[i].SubItems[0]);
query.Parameters.ParamByName('s3').Value:=trim(listview1.Items.Item[i].SubItems[1]);
query.Parameters.ParamByName('s4').Value:=trim(listview1.Items.Item[i].SubItems[2]);
query.Parameters.ParamByName('s5').Value:=trim(listview1.Items.Item[i].SubItems[3]);
query.Parameters.ParamByName('s6').Value:=trim(edit1.Text);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
//保存从表
for i:=0 to listview2.Items.Count-1 do
begin
if listview2.Items.Item[i].Caption='' then listview2.Items.Item[i].Caption:='-';
listview2.Items.Item[i].SubItems[0]:=mainform.StdDou2(listview2.Items.Item[i].SubItems[0]);
s:='insert into 服务派工单派工房间(房间,建筑面积,单号) values(:s1,:s2,:s3)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=trim(listview2.Items.Item[i].Caption);
query.Parameters.ParamByName('s2').Value:=trim(listview2.Items.Item[i].SubItems[0]);
query.Parameters.ParamByName('s3').Value:=trim(edit1.Text);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
for i:=0 to listview3.Items.Count-1 do
begin
s:='insert into 服务派工单服务人员(职员,备注,单号) values(:s1,:s2,:s3)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=trim(listview3.Items.Item[i].Caption);
query.Parameters.ParamByName('s2').Value:=trim(listview3.Items.Item[i].SubItems[0]);
query.Parameters.ParamByName('s3').Value:=trim(edit1.Text);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
// 三 更新父窗口listview中的当前行数据
query.SQL.Clear;
query.SQL.Add('select * from 服务派工单 where 单号='''+edit1.Text+'''');
query.Open;
if query.recordcount>0 then
begin
with f_RealtyF63.listview1.Selected do
begin
caption:=query.fieldbyname('单号').Value;
subitems[0]:=query.fieldbyname('派工单号').Value;
subitems[1]:=query.fieldbyname('客户').Value;
subitems[2]:=query.fieldbyname('服务类别').Value;
subitems[3]:=query.fieldbyname('联系人').Value;
subitems[4]:=query.fieldbyname('联系电话').Value;
subitems[5]:=query.fieldbyname('受理时间').Value;
subitems[6]:=query.fieldbyname('要求处理事项').Value;
query1.sql.clear;
query1.sql.add('select * from 服务派工验收 where 单号='''+query.fieldbyname('单号').Value+'''');
query1.open;
if query1.recordcount>0 then
begin
subitems[7]:=query1.fieldbyname('实际处理事项').Value;
subitems[8]:=query1.fieldbyname('处理结果').Value;
subitems[9]:=query1.fieldbyname('到达时间').Value;
subitems[10]:=query1.fieldbyname('完工时间').Value;
subitems[11]:=query1.fieldbyname('客户验收通过').Value;
subitems[12]:=query1.fieldbyname('服务评价').Value;
end
else
begin
subitems[7]:='';
subitems[8]:='';
subitems[9]:='';
subitems[10]:='';
subitems[11]:='';
subitems[12]:='';
end;
subitems[13]:=query.fieldbyname('需要生成临时费用单').Value;
subitems[14]:=query.fieldbyname('审核人').Value;
subitems[15]:=query.fieldbyname('审核').Value;
subitems[16]:=query.fieldbyname('审核时间').Value;
subitems[17]:=query.fieldbyname('审核意见').Value;
end;
end;
query1.Close;
query1.Free;
query.Close;
query.Free;
// 四 关闭窗口
close;
end;
end;
procedure Tf_RealtyF63A.ListView2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then
PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;
procedure Tf_RealtyF63A.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
end.
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?