realtyg52a.pas

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

    ss:=mainform.getnum(edit13.text);
    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 Edit5.Text='' then
    begin
        showmessage('查验人不能为空。');
        Edit5.SetFocus;
        exit;
    end;

    if Edit8.Text='' then
    begin
        showmessage('保养人不能为空。');
        Edit8.SetFocus;
        exit;
    end;

    if Edit7.Text='' then
    begin
        showmessage('请选择消防等级。');
        Edit7.SetFocus;
        exit;
    end;

    if Edit13.Text='' then
    begin
        showmessage('请选择组织机构。');
        Edit13.SetFocus;
        exit;
    end;


    //  2 检查所有字段的数据完整性
    edit6.Text:=mainform.StdInt(edit6.Text);

    If Edit4.Text = '' Then Edit4.Text := '-';
    If Edit6.Text = '' Then Edit6.Text := '-';
    If Edit9.Text = '' Then Edit9.Text := '-';
    If Edit10.Text = '' Then Edit10.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_RealtyG52.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,:s7,:s8,:s9,:s10,:s11,:s12,:s13,:s14)';
        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:=trim(Edit6.text);
        query.Parameters.ParamByName('s7').Value:=trim(Edit7.Text);
        query.Parameters.ParamByName('s8').Value:=trim(Edit8.text);
        query.Parameters.ParamByName('s9').Value:=trim(Edit9.Text);
        query.Parameters.ParamByName('s10').Value:=trim(Edit10.Text);
        query.Parameters.ParamByName('s11').Value:=trim(Edit11.text);
        query.Parameters.ParamByName('s12').Value:=trim(Edit12.Text);
        query.Parameters.ParamByName('s13').Value:=ss;
        query.Parameters.ParamByName('s14').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]:='-';
            if listview1.Items.Item[i].SubItems[1]='' then listview1.Items.Item[i].SubItems[1]:='-';
            listview1.Items.Item[i].SubItems[0]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[0]);

            s:='insert into 消防片区消防器材配备 (消防器材,数量,备注,单号) values(:s1,:s2,:s3,:s4)';
            query.SQL.Clear;
            query.SQL.Add(s);
            query.Parameters.ParamByName('s1').Value:=trim(listview1.Items.Item[i].Caption);
            query.Parameters.ParamByName('s2').Value:=strtofloat(listview1.Items.Item[i].SubItems[0]);
            query.Parameters.ParamByName('s3').Value:=trim(listview1.Items.Item[i].SubItems[1]);
            query.Parameters.ParamByName('s4').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
            query1.SQL.Clear;
            query1.SQL.Add('select * from 职员 where 名称 ='''+query.fieldbyname('责任人').Value+'''') ;
            query1.Open;
            if query1.RecordCount>0 then
            begin
                with f_RealtyG52.listview1.Items.Add do
                begin
                    caption:=query.fieldbyname('名称').Value;
                    subitems.Add(query.fieldbyname('责任人').Value);
                    subitems.Add(query1.fieldbyname('岗位').Value);
                    subitems.Add(query1.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(mainform.getName('组织机构',query.fieldbyname('组织机构').Value));
                    subitems.Add(query.fieldbyname('单号').Value);
                    subitems.Add(query.fieldbyname('审核').Value);
                end;
            end;
            query.Next;
        end;
        query1.Close;
        query1.Free;
        query.Close;
        query.Free;

        //   四 清空字段、设置自动编号并移动光标到第一个录入字段的输入框中
        getId;
        edit2.Text:='';
        edit3.text:='';
        edit4.Text:='';
        edit5.Text:='';
        edit6.text:='';
        edit7.ItemIndex:=edit7.Items.IndexOf('');
        edit8.Text:='';
        edit9.Text:='';
        edit10.Text:='';
        edit12.Text:='';
        edit13.text:='';

        listview1.Items.Clear;

        Edit1.SetFocus;
    end;



    //  5 修改
    if f_RealtyG52.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+''',查验周期='''+edit6.Text;
          s:=s+''',消防等级='''+edit7.Text;
          s:=s+''',器材保养人='''+edit8.Text;
          s:=s+''',地点='''+edit9.Text;
          s:=s+''',备注='''+edit10.Text;
          s:=s+''',修订='''+edit12.Text;
          s:=s+''',组织机构='''+ss;
          s:=s+''' where 单号='''+f_RealtyG52.ListView1.Selected.subitems[10]+'''';
          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_RealtyG52.listview1.Selected.subitems[10]+'''';
        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[1]='' then listview1.Items.Item[i].SubItems[1]:='-';
            listview1.Items.Item[i].SubItems[0]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[0]);

            s:='insert into 消防片区消防器材配备 (消防器材,数量,备注,单号) values(:s1,:s2,:s3,:s4)';
            query.SQL.Clear;
            query.SQL.Add(s);
            query.Parameters.ParamByName('s1').Value:=trim(listview1.Items.Item[i].Caption);
            query.Parameters.ParamByName('s2').Value:=strtofloat(listview1.Items.Item[i].SubItems[0]);
            query.Parameters.ParamByName('s3').Value:=trim(listview1.Items.Item[i].SubItems[1]);
            query.Parameters.ParamByName('s4').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
            query1.SQL.Clear;
            query1.SQL.Add('select * from 职员 where 名称 ='''+query.fieldbyname('责任人').Value+'''') ;
            query1.Open;
            if query1.RecordCount>0 then
            begin
                with f_RealtyG52.listview1.selected do
                begin
                    caption:=query.fieldbyname('名称').Value;
                    subitems[0]:=query.fieldbyname('责任人').Value;
                    subitems[1]:=query1.fieldbyname('岗位').Value;
                    subitems[2]:=query1.fieldbyname('职务').Value;
                    subitems[3]:=query.fieldbyname('消防等级').Value;
                    subitems[4]:=query.fieldbyname('查验周期').Value;
                    subitems[5]:=query.fieldbyname('查验人').Value;
                    subitems[6]:=query.fieldbyname('器材保养人').Value;
                    subitems[7]:=query.fieldbyname('面积').Value;
                    subitems[8]:=query.fieldbyname('地点').Value;
                    subitems[9]:=mainform.getName('组织机构',query.fieldbyname('组织机构').Value);
                    subitems[10]:=query.fieldbyname('单号').Value;
                    subitems[11]:=query.fieldbyname('审核').Value;
                end;
            end;
            query.Next;
        end;
        query1.Close;
        query1.Free;
        query.Close;
        query.Free;


        //   四 关闭窗口
        close;
    end;

end;

procedure Tf_RealtyG52A.Button5Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyG52A.edit7Select(Sender: TObject);
begin
    if edit7.Text='新增消防等级' then
    begin
        mainform.t1:='消防等级';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
           edit7.Items.Add(mainform.t1);
           edit7.ItemIndex:=edit7.Items.IndexOf(mainform.t1);
        end
        else edit7.ItemIndex:=edit7.Items.IndexOf('');
     end;
end;

procedure Tf_RealtyG52A.Button3Click(Sender: TObject);
begin
    f_realtyI11C:=Tf_realtyI11C.Create(self);
    f_RealtyI11C.button1.Visible:=true;
    f_realtyI11C.ShowModal;

    if  f_realtyI11C.bOk=true then
    begin
        edit13.Text:=f_realtyI11C.ListView1.Selected.Caption+'--'+f_realtyI11C.ListView1.Selected.SubItems[0];
    end;
end;

procedure Tf_RealtyG52A.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action := caFree;
end;

end.