realtyf63a.pas

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

    begin
        bNew:=true;
        f_RealtyF63AB:=Tf_RealtyF63AB.Create(self);
        f_RealtyF63AB.ShowModal;
    end;

    if pagecontrol1.ActivePageIndex=2 then
    begin
        bNew:=true;
        f_RealtyF63AC:=Tf_RealtyF63AC.Create(self);
        f_RealtyF63AC.ShowModal;
    end;
end;

procedure Tf_RealtyF63A.N10Click(Sender: TObject);
begin
    if pagecontrol1.ActivePageIndex=0 then
    begin
        if listview1.selcount=0 then exit;
        bNew:=false;
        f_RealtyF63AA:=Tf_RealtyF63AA.Create(self);
        f_RealtyF63AA.ShowModal;
    end;

    if pagecontrol1.ActivePageIndex=1 then
    begin
        if listview2.selcount=0 then exit;
        bNew:=false;
        f_RealtyF63AB:=Tf_RealtyF63AB.Create(self);
        f_RealtyF63AB.ShowModal;
    end;

    if pagecontrol1.ActivePageIndex=2 then
    begin
        if listview3.selcount=0 then exit;
        bNew:=false;
        f_RealtyF63AC:=Tf_RealtyF63AC.Create(self);
        f_RealtyF63AC.ShowModal;
    end;
end;

procedure Tf_RealtyF63A.N8Click(Sender: TObject);
begin
    if pagecontrol1.ActivePageIndex=0 then
     begin
          if listview1.SelCount=0 then exit;

          if(Application.MessageBox(PChar('确认要删除所选记录吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=0) then exit;
          listview1.Selected.Delete;
          if listview1.Items.Count>0 then listview1.Items.Item[0].Selected:=true;
     end;

     if pagecontrol1.ActivePageIndex=1 then
     begin
          if listview2.SelCount=0 then exit;

          if(Application.MessageBox(PChar('确认要删除所选记录吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=0) then exit;
          listview2.Selected.Delete;
          if listview2.Items.Count>0 then listview2.Items.Item[0].Selected:=true;
     end;


     if pagecontrol1.ActivePageIndex=2 then
     begin
          if listview3.SelCount=0 then exit;

          if(Application.MessageBox(PChar('确认要删除所选记录吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=0) then exit;
         listview3.Selected.Delete;
         if listview3.Items.Count>0 then listview3.Items.Item[0].Selected:=true;
     end;
end;

procedure Tf_RealtyF63A.Button1Click(Sender: TObject);
begin
    f_RealtyL23:=Tf_RealtyL23.Create(self);
    f_RealtyL23.Button2.Visible:=true;
    f_RealtyL23.ShowModal;

    if  f_RealtyL23.bOk=true then
    begin
       edit5.Text:=f_RealtyL23.sName;
    end;
end;

procedure Tf_RealtyF63A.Button3Click(Sender: TObject);
begin
    f_RealtyB22:=Tf_RealtyB22.Create(self);
    f_RealtyB22.ToolButton6.Visible:=true;
    f_RealtyB22.ShowModal;

    if  f_RealtyB22.bOk=true then
    begin
        edit3.Text:=f_RealtyB22.sName;
    end;
end;

procedure Tf_RealtyF63A.Button2Click(Sender: TObject);
begin
     f_RealtyF62:=Tf_RealtyF62.Create(self);
   f_RealtyF62.Button7.Visible:=true;
   f_RealtyF62.ShowModal;

   if  f_RealtyF62.bOk=true then
   begin
       edit4.Text:=f_RealtyF62.sName;
   end;
end;

procedure Tf_RealtyF63A.Button7Click(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:='-';
    if edit15.text='' then edit15.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)';

        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';

        DataModuleADO.ADOConnection1.BeginTrans;
        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;


        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);