realtyj4.pas

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

    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_RealtyJ4.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_RealtyJ4.Button4Click(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;

procedure Tf_RealtyJ4.Button6Click(Sender: TObject);
var
  i,j:integer;
  s,s1,s2,s3: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 Edit11.Text='' then
    begin
        showmessage('请选择调入仓库。');
        Edit11.SetFocus;
        exit;
    end;

    if Edit5.Text=Edit11.Text then
    begin
        showmessage('调入仓库与调出仓库不能是同一仓库。');
        Edit11.SetFocus;
        exit;
    end;



    s1:='-';
    s2:='-';
    s3:='-';

    if edit7.text<>'' then s1:=edit7.text;
    if edit6.text<>'' then s2:=edit6.text;


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


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

    if f_RealtyJA4.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,:s12)';

        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:=s1;
        query.Parameters.ParamByName('s5').Value:=trim(Edit5.Text);
        query.Parameters.ParamByName('s6').Value:=s2;
        query.Parameters.ParamByName('s7').Value:='-';
        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:=trim(Edit11.Text);
        query.Parameters.ParamByName('s12').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]:='-';
            if listview1.Items.Item[i].SubItems[3]='' then listview1.Items.Item[i].SubItems[3]:='-';

            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:=strtofloat(mainform.StdInt(listview1.Items.Item[i].subitems[3]));
            query.Parameters.ParamByName('s6').Value:=strtofloat(mainform.StdDou2(listview1.Items.Item[i].subitems[4]));
            query.Parameters.ParamByName('s7').Value:=strtofloat(mainform.StdDou2(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_RealtyJA4.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;

        if f_RealtyJA4.ListView1.Items.Count>0 then f_RealtyJA4.ListView1.Items.Item[0].Selected:=true;

        getId;
        edit2.date:=date;
        edit3.Text:='';
        edit7.Text:='';
        edit5.Text:='';
        edit6.ItemIndex:=edit6.Items.IndexOf('');

        edit9.Text:='';
        listview1.Items.Clear;
    end;

    if f_RealtyJA4.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+''', 备注='''+edit9.Text;
        s:=s+''', 调入仓库='''+edit11.Text;
        s:=s+''' where 单号='''+f_RealtyJA4.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_RealtyJA4.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]:='-';
            if listview1.Items.Item[i].SubItems[3]='' then listview1.Items.Item[i].SubItems[3]:='-';

            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:=strtofloat(mainform.StdInt(listview1.Items.Item[i].subitems[3]));
            query.Parameters.ParamByName('s6').Value:=strtofloat(mainform.StdDou2(listview1.Items.Item[i].subitems[4]));
            query.Parameters.ParamByName('s7').Value:=strtofloat(mainform.StdDou2(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_RealtyJA4.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;

    bOk:=true;

end;

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



procedure Tf_RealtyJ4.Button10Click(Sender: TObject);
begin
    //Edit1.Text:='L2007-08-160001';
    sFilep:='RealtyJ4.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_RealtyJ4.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_RealtyJ4.Button2Click(Sender: TObject);
begin
    f_RealtyJ31:=Tf_RealtyJ31.Create(self);
    f_RealtyJ31.Button1.Visible:=true;
    f_RealtyJ31.ShowModal;

    if  f_RealtyJ31.bOk=true then
    begin
        edit11.Text:=f_RealtyJ31.ListView1.Selected.SubItems[0];
    end;
end;

end.