realtyj21.pas

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

procedure Tf_RealtyJ21.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_RealtyJ21.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 Edit6.Text = '' Then Edit6.Text := '-';

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

    if f_RealtyJA21.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)';

        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:=copy(datetostr(Edit4.date),1,4);
        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:='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,:s9,:s10)';

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

            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_RealtyJA21.ListView1.Items.Add do
            begin
                s1:=copy(query.fieldbyname('计划年度').Value,1,4);
                caption:=query.fieldbyname('单号').Value;
                subitems.Add(query.fieldbyname('日期').Value);
                subitems.Add(query.fieldbyname('部门').Value);
                subitems.Add(s1);
                subitems.Add(query.fieldbyname('计划区间').Value);
                subitems.Add(query.fieldbyname('备注').Value);
                subitems.Add(query.fieldbyname('审核').Value);
            end;
        end;
        query.Close;
        query.Free;
        query1.Close;
        query1.Free;
        if f_RealtyJA21.ListView1.Items.Count>0 then f_RealtyJA21.ListView1.Items.Item[0].Selected:=true;

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

        listview1.Items.Clear;
    end;

    if f_RealtyJA21.bNew=false then
    begin
        s:='update 采购计划 set 单号='''+edit1.Text;
        s:=s+''', 日期='''+datetostr(edit2.Date);
        s:=s+''', 部门='''+edit3.Text;
        s:=s+''', 计划年度='''+datetostr(edit4.date);
        s:=s+''', 计划区间='''+edit5.Text;
        s:=s+''', 备注='''+edit6.Text;
        s:=s+''' where 单号='''+f_RealtyJA21.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_RealtyJA21.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_RealtyJA21.listview1.Selected do
            begin
                s1:=copy(query.fieldbyname('计划年度').Value,1,4);
                caption:=query.fieldbyname('单号').Value;
                subitems[0]:=query.fieldbyname('日期').Value;
                subitems[1]:=query.fieldbyname('部门').Value;
                subitems[2]:=s1;
                subitems[3]:=query.fieldbyname('计划区间').Value;
                subitems[4]:=query.fieldbyname('备注').Value;
                subitems[5]:=query.fieldbyname('审核').Value;
            end; 
        end;
        query.close;
        query.free;
        query1.close;
        query1.free;
        close;

    end;



    bOk:=true;

end;

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

procedure Tf_RealtyJ21.Button1Click(Sender: TObject);
begin
    sFilep:='RealtyJ21.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_RealtyJ21.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
        edit3.Text:=f_RealtyA11.sName;
    end;
end;

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

end.