realtyg41a.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

    f_RealtyL23.Button2.Visible:=true;
    f_RealtyL23.ShowModal;

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

procedure Tf_RealtyG41A.Button7Click(Sender: TObject);
var
  i,j:integer;
  s,ss,rr:string;
  Query,query1,query2,query3:TADOQuery;
  d,d1,d2:double;
begin
    ss:=mainform.getNum(edit8.Text);
    // 1 关键字段不能为空
    if Edit1.Text='' then
    begin
        showmessage('请输入单号。');
        Edit1.SetFocus;
        exit;
    end;

    if Edit2.Text='' then
    begin
        showmessage('请选择责任人。');
        Edit2.SetFocus;
        exit;
    end;


    //  2 检查所有字段的数据完整性
    if edit3.text='' then edit3.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_RealtyG41.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 器材配备(单号,责任人,备注,操作员,修订,核销,组织机构,审核,审核时间,审核人,审核意见) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11)';

        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:=ss;
        query.Parameters.ParamByName('s8').Value:='N';
        query.Parameters.ParamByName('s9').Value:='-';
        query.Parameters.ParamByName('s10').Value:='-';
        query.Parameters.ParamByName('s11').Value:='-';

        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[2]='' then listview1.Items.Item[i].SubItems[2]:='-';
            if listview1.Items.Item[i].SubItems[4]='' then listview1.Items.Item[i].SubItems[4]:='-';
            listview1.Items.Item[i].SubItems[1]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[1]);
            listview1.Items.Item[i].SubItems[3]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[3]);

            s:='insert into 器材配备明细(器材,领取日期,领取数量,归还日期,归还数量,备注,单号) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7)';
            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:=strtofloat(listview1.Items.Item[i].SubItems[1]);
            query.Parameters.ParamByName('s4').Value:=trim(listview1.Items.Item[i].SubItems[2]);
            query.Parameters.ParamByName('s5').Value:=strtofloat(listview1.Items.Item[i].SubItems[3]);
            query.Parameters.ParamByName('s6').Value:=trim(listview1.Items.Item[i].SubItems[4]);
            query.Parameters.ParamByName('s7').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;
            with f_RealtyG41.listview1.Items.Add do
            begin
                caption:=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(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(mainform.getName('组织机构',query1.fieldbyname('组织机构').Value));
                subitems.Add(query.fieldbyname('单号').Value);
            end;
        end;
        query1.Close;
        query1.Free;
        query.Close;
        query.Free;

        //   四 清空字段、设置自动编号并移动光标到第一个录入字段的输入框中
        getId;
        edit2.Text:='';
        edit3.Text:='';
        edit4.Text:=czy;
        edit5.text:='';
        edit6.text:='';
        edit8.text:='';
        listview1.items.clear;
    end;



    //  5 修改
    if f_RealtyG41.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+''',组织机构='''+ss;
          s:=s+''' where 单号='''+f_RealtyG41.ListView1.Selected.subitems[11]+'''';
          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_RealtyG41.listview1.Selected.subitems[11]+'''';
        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[2]='' then listview1.Items.Item[i].SubItems[2]:='-';
            if listview1.Items.Item[i].SubItems[4]='' then listview1.Items.Item[i].SubItems[4]:='-';
            listview1.Items.Item[i].SubItems[1]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[1]);
            listview1.Items.Item[i].SubItems[3]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[3]);

            s:='insert into 器材配备明细(器材,领取日期,领取数量,归还日期,归还数量,备注,单号) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7)';
            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:=strtofloat(listview1.Items.Item[i].SubItems[1]);
            query.Parameters.ParamByName('s4').Value:=trim(listview1.Items.Item[i].SubItems[2]);
            query.Parameters.ParamByName('s5').Value:=strtofloat(listview1.Items.Item[i].SubItems[3]);
            query.Parameters.ParamByName('s6').Value:=trim(listview1.Items.Item[i].SubItems[4]);
            query.Parameters.ParamByName('s7').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;
            with f_RealtyG41.listview1.selected do
            begin
                caption:=query1.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]:=query1.fieldbyname('审核').Value;
                subitems[6]:=query1.fieldbyname('审核时间').Value;
                subitems[7]:=query1.fieldbyname('审核人').Value;
                subitems[8]:=query1.fieldbyname('审核意见').Value;
                subitems[9]:=query1.fieldbyname('备注').Value;
                subitems[10]:=mainform.getName('组织机构',query1.fieldbyname('组织机构').Value);
                subitems[11]:=query1.fieldbyname('单号').Value;
            end;
        end;
        query1.Close;
        query1.Free;
        query.Close;
        query.Free;

        //   四 关闭窗口
        close;
    end;

end;

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

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

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

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

end.