realtyj3.pas

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

    end;
end;

procedure Tf_RealtyJ3.N10Click(Sender: TObject);
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;

procedure Tf_RealtyJ3.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_RealtyJ3.Button6Click(Sender: TObject);
var
  i,j:integer;
  s,ss,rr:string;
  Query,query1:TADOQuery;
  d,d1,d2:double;
begin

    if Edit1.Text='' then
    begin
        showmessage('请输入编号。');
        Edit1.SetFocus;
        exit;
    end;



    if Edit3.Text='' then
    begin
        showmessage('请选择经手人。');
        Edit3.SetFocus;
        exit;
    end;

    if Edit5.Text='' then
    begin
        showmessage('请选择仓库。');
        Edit5.SetFocus;
        exit;
    end;



    If Edit9.Text = '' Then Edit9.Text := '-';

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;

    if f_RealtyJA3.bNew=true then
    begin
        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:=datetostr(Edit2.date);
        query.Parameters.ParamByName('s3').Value:=trim(Edit3.Text);
        query.Parameters.ParamByName('s4').Value:=trim(Edit7.Text);
        query.Parameters.ParamByName('s5').Value:=trim(Edit5.Text);
        query.Parameters.ParamByName('s6').Value:=trim(Edit6.Text);
        query.Parameters.ParamByName('s7').Value:=trim(Edit8.Text);
        query.Parameters.ParamByName('s8').Value:=trim(Edit9.Text);
        query.Parameters.ParamByName('s9').Value:='出库单';
        query.Parameters.ParamByName('s10').Value:=trim(Edit4.Text);
        query.Parameters.ParamByName('s11').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]:='-';
            if listview1.Items.Item[i].SubItems[2]='' then listview1.Items.Item[i].SubItems[2]:='-';


            listview1.Items.Item[i].SubItems[3]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[3]);
            listview1.Items.Item[i].SubItems[4]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[4]);
            listview1.Items.Item[i].SubItems[5]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[5]);

            s := 'insert into 出库单明细(物料编号,物料名称,规格型号,计量单位,数量,单价,金额,单号)values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8)';

            query.sql.Clear ;
            query.sql.add(s);
            query.Parameters.ParamByName('s1').Value:=listview1.Items.Item[i].Caption;
            query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].subitems[0];
            query.Parameters.ParamByName('s3').Value:=listview1.Items.Item[i].subitems[1];
            query.Parameters.ParamByName('s4').Value:=listview1.Items.Item[i].subitems[2];
            query.Parameters.ParamByName('s5').Value:=listview1.Items.Item[i].subitems[3];
            query.Parameters.ParamByName('s6').Value:=listview1.Items.Item[i].subitems[4];
            query.Parameters.ParamByName('s7').Value:=listview1.Items.Item[i].subitems[5];
            query.Parameters.ParamByName('s8').Value:=edit1.text;

             DataModuleADO.ADOConnection1.BeginTrans;
            query.execsql;
            DataModuleADO.ADOConnection1.CommitTrans;
        end;

        showmessage('保存成功。');

        query.SQL.Clear;
        query.SQL.Add('select * from 出库单 where 单号='''+edit1.Text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
            with f_RealtyJA3.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);
                subitems.Add(query.fieldbyname('备注').value);
            end;
        end;
        query.Close;
        query.Free;

        edit1.Text:='';
        edit2.date:=date;
        edit3.Text:='';
        edit5.Text:='';
        edit6.Text:='';
        edit7.Text:='';
        edit8.Text:='';
        edit9.Text:='';
        edit4.Text:=czy;

        listview1.Items.Clear;
    end;

    if f_RealtyJA3.bNew=false then
    begin
        s:='update 出库单 set 单号='''+edit1.Text;
        s:=s+''', 日期='''+datetostr(edit2.Date);
        s:=s+''', 经手人='''+edit3.Text;
        s:=s+''', 部门='''+edit7.Text;
        s:=s+''', 仓库='''+edit5.Text;
        s:=s+''', 业务类型='''+edit6.Text;
        s:=s+''', 领料用途='''+edit8.Text;
        s:=s+''', 备注='''+edit9.Text;
        s:=s+''' where 单号='''+f_RealtyJA3.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_RealtyJA3.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]:='-';
            if listview1.Items.Item[i].SubItems[1]='' then listview1.Items.Item[i].SubItems[1]:='-';
            if listview1.Items.Item[i].SubItems[2]='' then listview1.Items.Item[i].SubItems[2]:='-';


            listview1.Items.Item[i].SubItems[3]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[3]);
            listview1.Items.Item[i].SubItems[4]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[4]);
            listview1.Items.Item[i].SubItems[5]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[5]);

            s := 'insert into 出库单明细(物料编号,物料名称,规格型号,计量单位,数量,单价,金额,单号)values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8)';

            query.sql.Clear ;
            query.sql.add(s);
            query.Parameters.ParamByName('s1').Value:=listview1.Items.Item[i].Caption;
            query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].subitems[0];
            query.Parameters.ParamByName('s3').Value:=listview1.Items.Item[i].subitems[1];
            query.Parameters.ParamByName('s4').Value:=listview1.Items.Item[i].subitems[2];
            query.Parameters.ParamByName('s5').Value:=listview1.Items.Item[i].subitems[3];
            query.Parameters.ParamByName('s6').Value:=listview1.Items.Item[i].subitems[4];
            query.Parameters.ParamByName('s7').Value:=listview1.Items.Item[i].subitems[5];
            query.Parameters.ParamByName('s8').Value:=edit1.text;

            DataModuleADO.ADOConnection1.BeginTrans;
            query.execsql;
            DataModuleADO.ADOConnection1.CommitTrans;
        end;

        query.SQL.Clear;
        query.SQL.Add('select * from 出库单 where 单号='''+edit1.Text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
            with f_RealtyJA3.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;
                subitems[7]:=query.fieldbyname('备注').value;
            end;
        end;
        query.Close;
        query.Free;
        close;
    end;   
end;

procedure Tf_RealtyJ3.Button8Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyJ3.Button5Click(Sender: TObject);
begin
    //Edit1.Text:='L2007-08-160001';
    sFilep:='RealtyJ3.fr3';
    sTitlep:=Caption;
    sPrintc:='select * from 出库单 where 单号='''+Edit1.Text+'''';
    sPrintc1:='select * from 出库单明细 where 单号='''+Edit1.Text+'''';
    //rep7 := mainform.NumToChar(strtofloat(mainform.StdDou2('10')));
    f_RealtyPrint1:=Tf_RealtyPrint1.Create(self);
    f_RealtyPrint1.showmodal;
end;

procedure Tf_RealtyJ3.edit6Select(Sender: TObject);
begin
    if edit6.Text='新增业务类型' then
   begin
        mainform.t1:='业务类型';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

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

procedure Tf_RealtyJ3.Button2Click(Sender: TObject);
begin
    f_RealtyA11:=Tf_RealtyA11.Create(self);
    f_RealtyA11.ToolButton6.Visible:=true;
    f_RealtyA11.ShowModal;

    if  f_RealtyA11.bOk=true then
    begin
        edit7.Text:=f_RealtyA11.sName;
    end;
end;

end.