realtyf63a.pas

来自「物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、」· PAS 代码 · 共 1,277 行 · 第 1/4 页

                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;
    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.Button5Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyF63A.ListView1MouseDown(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.Button4Click(Sender: TObject);
var
  i,j:integer;
  s,s1,rr:string;
  Query,query1,query2,query3:TADOQuery;
  d,d1,d2:double;
begin
    s1:='N';
    if checkbox1.checkED=true then s1:='Y';
    // 1 关键字段不能为空
    if Edit1.Text='' then
    begin
        showmessage('请输入单号。');
        Edit1.SetFocus;
        exit;
    end;

    if Edit2.Text='' then
    begin
        showmessage('请输入派工单号。');
        Edit2.SetFocus;
        exit;
    end;

    if Edit3.Text='' then
    begin
        showmessage('请选择客户名称。');
        Edit3.SetFocus;
        exit;
    end;

    if Edit3.Text='' then
    begin
        showmessage('请选择服务类别。');
        Edit3.SetFocus;
        exit;
    end;

    if Edit7.Text='' then
    begin
        showmessage('请选择联系人。');
        Edit7.SetFocus;
        exit;
    end;

    //  2 检查所有字段的数据完整性
    if edit5.text='' then edit5.text:='-';
    if edit8.text='' then edit8.text:='-';
    if edit11.text='' then edit11.text:='-';
    if edit12.text='' then edit12.text:='-';


    //  3 定义数据集
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;
    Query2:=TADOQuery.Create(nil);
    Query2.Connection:=DataModuleADO.ADOConnection1;


    // 4 新增
    if f_RealtyF63.bnew=true then
    begin
        //  一关键字段是否重复
        query.SQL.Clear;
        query.SQL.Add('select * from 服务派工单 where 单号='''+edit1.Text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
            showmessage('单号重复');
            edit1.SetFocus;
            query.Close; //******************************必须
            query.Free;  //******************************必须
            exit;
        end;

        //   二新增记录

        //保存主表
        s := 'insert into 服务派工单(单号,派工单号,客户,服务类别,受理人,受理时间,联系人,联系电话,';
        s:=s+'开工时间,完工时间,要求处理事项,备注,操作员,修订,需要生成临时费用单,审核,审核时间,审核人,审核意见) values(:s1,:s2,:s3,:s4,:s5,:s6,';
        s:=s+':s7,:s8,:s9,:s10,:s11,:s12,:s13,:s14,:s15,:s16,:s17,:s18,:s19)';

        query.sql.Clear ;
        query.sql.add(s);
        query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
        query.Parameters.ParamByName('s2').Value:=trim(Edit2.Text);
        query.Parameters.ParamByName('s3').Value:=trim(Edit3.Text);
        query.Parameters.ParamByName('s4').Value:=trim(Edit4.text);
        query.Parameters.ParamByName('s5').Value:=trim(Edit5.Text);
        query.Parameters.ParamByName('s6').Value:=datetostr(Edit6.DATE);

        query.Parameters.ParamByName('s7').Value:=trim(Edit7.Text);
        query.Parameters.ParamByName('s8').Value:=trim(Edit8.Text);
        query.Parameters.ParamByName('s9').Value:=datetostr(Edit9.date);
        query.Parameters.ParamByName('s10').Value:=datetostr(Edit10.date);
        query.Parameters.ParamByName('s11').Value:=trim(Edit11.Text);
        query.Parameters.ParamByName('s12').Value:=trim(Edit12.text);

        query.Parameters.ParamByName('s13').Value:=trim(Edit13.Text);
        query.Parameters.ParamByName('s14').Value:=trim(Edit14.Text);

        if checkbox1.checked=true then query.Parameters.ParamByName('s15').Value:='Y'
        else query.Parameters.ParamByName('s15').Value:='N';
        query.Parameters.ParamByName('s16').Value:='N';
        query.Parameters.ParamByName('s17').Value:='-';
        query.Parameters.ParamByName('s18').Value:='-';
        query.Parameters.ParamByName('s19').Value:='-';

        DataModuleADO.ADOConnection1.BeginTrans;
        query.execsql;