demand_enter.pas

delphi的一个开发实例

            with frm_data.ClientDataSet_Submit_adopt do
            begin
                Close;
                Commandtext:='';
                Commandtext:='Update [Submit_adopt] set Give_Name='''+Trim(Edit_Give_Name.Text)+''',Storage_NO='''+Trim(Edit_Storage_NO.Text)+''',Shop_NO='''+Trim(Edit_Shop_NO.Text)+''',Transactor='''+Trim(Edit_Transactor.Text)+''',Condense='''+Trim(Edit_Condense.Text)+''',Submit_Remark='''+Trim(Edit_Submit_Remark.Text)+''' where Submit_adopt_NO='''+Trim(List_NO)+'''';
                try
                    Execute; //修改采购入库表
                    try
                        for i:=1 to StringGrid1.RowCount-1 do
                        begin
                            with frm_data.ClientDataSet_Submit_adopt_detail do
                            begin
                                Close;
                                CommandText:='';
                                CommandText:='update [Submit_adopt_detail] set Submit_amount='''+Trim(StringGrid1.Cells[3,i])+''',Submit_price='''+Trim(StringGrid1.Cells[4,i])+''',Submit_money='''+Trim(StringGrid1.Cells[5,i])+''',Submit_Detail_Remark='''+Trim(StringGrid1.Cells[6,i])+''' where Submit_adopt_NO='''+Trim(List_NO)+''' and Goods_NO='''+Trim(StringGrid1.Cells[1,i])+'''';
                                try
                                    Execute;//修改采购入库明细表
                                except
                                    Application.MessageBox('保存【受托代销入库明细】时连接服务器失败,请确认！',pchar(application.Title),mb_iconwarning);
                                    Exit;
                                end;
                            end;
                        end;
                    except
                        Application.MessageBox('保存【受托代销入库明细】时循环失败,请确认！',pchar(application.Title),mb_iconwarning);
                        Exit;
                    end;
                except
                    Application.MessageBox('保存【受托代销入库单】时失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                    Exit;
                end;
            end;
        end;
        if func.Public_Do_Result='03' then  //废弃退出
        begin
            Close;
        end;
    end;
    frm_Public_Don.Free;
end;


procedure Tfrm_Demand_Enter.Cmd_DeleteClick(Sender: TObject);
var
    i:shortint;
begin
    if StringGrid1.col<>0 then
    begin
        StringGrid1.Rows[StringGrid1.Row].Clear; //删除选中行的所有列 ,用右键弹出菜单
        DeleteRow(StringGrid1.Row);
        //stredit.Text := '';
        //stredit.Visible:=false;
        //opengood.Visible:=false;
    end;
    for i:=1 to StringGrid1.RowCount do
    StringGrid1.cells[0,i]:=inttostr(i);
end;

procedure Tfrm_Demand_Enter.Cmd_AddClick(Sender: TObject);
var
    i:integer;
begin
    StringGrid1.RowCount:=StringGrid1.RowCount+1;
    Total_Count:=StringGrid1.RowCount;
    for i:=1 to StringGrid1.RowCount-1 do
    begin
        StringGrid1.Cells[0,i]:=IntTostr(i); //表示第0列第i行
    end;
end;

procedure Tfrm_Demand_Enter.Edit_Copy_DateDblClick(Sender: TObject);
begin
    Edit_Copy_Date.Text:=Formatdatetime('yyyy''-''mm''-''dd',now);
end;

procedure Tfrm_Demand_Enter.Edit_Copy_DateKeyPress(Sender: TObject;
  var Key: Char);
begin
    if Key=#13 then
        Edit_Copy_Date.Text:=Formatdatetime('yyyy''-''mm''-''dd',now);
end;

procedure Tfrm_Demand_Enter.Cmd_ZDRClick(Sender: TObject);
begin
    Edit_Proposer.Text:=Handle_Man;
end;

procedure Tfrm_Demand_Enter.Edit_ProposerDblClick(Sender: TObject);
begin
    Edit_Proposer.Text:=Handle_Man;
end;

procedure Tfrm_Demand_Enter.Edit_ProposerKeyPress(Sender: TObject;
  var Key: Char);
begin
    if Key=#13 then
        Edit_Proposer.Text:=Handle_Man;
end;

procedure Tfrm_Demand_Enter.Cmd_DWClick(Sender: TObject);
begin
    Check_Mond:='';
    Check_Mond:='Demand_Enter_Str';
    frm_Supply_Monad:=Tfrm_Supply_Monad.Create(self);
    frm_Supply_Monad.Caption:='【委托单位】';
    frm_Supply_Monad.ShowModal;
    Edit_Give_Name.Text:=check_Mond_Result;
    frm_Supply_Monad.Free;
end;

procedure Tfrm_Demand_Enter.Cmd_CKClick(Sender: TObject);
begin
    Check_Storage:='';
    Check_Storage_Result:='';
    Check_Storage:='Demand_Enter_Str';
    frm_Storage_Select:=Tfrm_Storage_Select.Create(self);
    frm_Storage_Select.ShowModal;
    Edit_Storage_Name.Text:=Trim(Check_Storage_Result);
    Edit_Storage_NO.Text:=Trim(Check_Storage_Result_NO);
    frm_Storage_Select.Free;
end;

procedure Tfrm_Demand_Enter.Cmd_DMClick(Sender: TObject);
begin
    ChildShop_Str:='';
    ChildShop_Result_NO:='';
    ChildShop_Result_Name:='';
    ChildShop_Str:='Demand_Enter_Str';
    frm_ChildShop_Select:=Tfrm_ChildShop_Select.Create(self);
    frm_ChildShop_Select.ShowModal;
    Edit_Shop_NO.Text:=ChildShop_Result_NO;
    Edit_Shop_Name.Text:=ChildShop_Result_Name;
    frm_ChildShop_Select.Free;
end;

procedure Tfrm_Demand_Enter.Cmd_JSRClick(Sender: TObject);
begin
    Employe_Check:='';
    Employe_Check:='Demand_Enter_Str';
    Employe_Check_Result:='';
    frm_Login_Man:=Tfrm_Login_Man.Create(self);
    frm_Login_Man.Caption:='经手人选择';
    frm_Login_Man.ShowModal;
    Edit_Transactor.Text:=Employe_Check_Result;
    frm_Login_Man.Free;
end;

procedure Tfrm_Demand_Enter.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
    s:string;
    r:TRect;
begin
    with sender as TStringGrid do
    begin
        if (GDFocused in state) then
        begin
            Pcol:=Acol;
            Prow:=ARow;
            String_Col:=ARow;
        end;
    end;
    //文字垂直居中
    with StringGrid1 do
    begin
        Canvas.FillRect(Rect);
        s:=Cells[ACol,ARow];
        r:=Rect;
        DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER);
    end;
end;

procedure Tfrm_Demand_Enter.StringGrid1DblClick(Sender: TObject);
begin
    if Trim(Edit_Submit_adopt_NO.Text)='' then
    begin
        Application.MessageBox('操作失败，【单据编号】不能为空！',pchar(application.Title),mb_iconwarning);
        Edit_Submit_adopt_NO.SetFocus;
        Exit;
    end;
    if Trim(Edit_Give_Name.Text)='' then
    begin
        Application.MessageBox('操作失败，【委托单位】不能为空！',pchar(application.Title),mb_iconwarning);
        Edit_Give_Name.SetFocus;
        Exit;
    end;
    if Trim(Edit_Transactor.Text)='' then
    begin
        Application.MessageBox('操作失败，【经手人】不能为空！',pchar(application.Title),mb_iconwarning);
        Edit_Transactor.SetFocus;
        Exit;
    end;
    if ((PCol=1) or (PCol=2))then //表示选择的是商品编号 选择的是第一列
    begin
        Goods_Check_str:='';
        frm_Goods_Check:=Tfrm_Goods_Check.Create(self);
        frm_Goods_Check.ShowModal;
        if Goods_Check_str='Demand_Enter_str' then
        begin
            try
                with frm_data.ClientDataSet_Add do
                begin
                    Close;
                    CommandText:='';
                    CommandText:='select * from [Goods_Information]  where Goods_No='''+Goods_No_Str+'''';
                    Open;
                    StringGrid1.Cells[1,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_NO').AsString;//商品名称
                    StringGrid1.Cells[2,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Name').AsString;//商品名称
                    StringGrid1.Cells[7,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Base_Monad').AsString; //类别名称
                    StringGrid1.Cells[9,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Modal').AsString; //类别名称
                    StringGrid1.Cells[10,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Cards').AsString; //品牌名称
                    StringGrid1.Cells[11,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Brand').AsString; //品种名称
                    StringGrid1.Cells[12,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Norms_Type').AsString;//规格型号名称
                    StringGrid1.Cells[13,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Sphere').AsString;//球面度数
                    StringGrid1.Cells[14,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Column').AsString;//柱面度数
                    StringGrid1.Cells[15,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Color').AsString;//颜色名称
                    StringGrid1.Cells[16,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Coding').AsString;//商品条玛
                    StringGrid1.Cells[17,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Enroll_Brand').AsString;//注册商标
                    StringGrid1.Cells[18,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Factory').AsString;//生产厂家
                    StringGrid1.Cells[19,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Valid_Day').AsString; //有效日期
                    StringGrid1.Cells[20,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Remark').AsString;  //备注说明
                end;
            except
                application.MessageBox('操作失败，请检查连接网络是否正常？请确认！',pchar(application.Title),mb_iconwarning);
            end;
        end;
        frm_Goods_Check.Free;
    end;
end;


procedure Tfrm_Demand_Enter.Cmd1Click(Sender: TObject);
begin
    if Flag1=1 then
    begin
        if Application.MessageBox('确定需要【审核】该单据吗？请确认！',pchar(application.Title),mb_okcancel)=idok then
        begin
            try
                with frm_data.ClientDataSet_Receipt do
                begin
                    Close;
                    Commandtext:='';
                    Commandtext:='Update [Receipt] set Examine_Man1='''+Trim(Handle_Man)+''' where Receipt_No='''+Trim(Edit_Submit_adopt_NO.Text)+''' and Receipt_Name=''受托代销入库单''';
                    Execute;
                    L1.Caption:='';
                    L1.Caption:=LevelName1+'【已审】';
                    Flag1:=2;
                    Application.MessageBox('【审核】操作成功！请确认',Pchar(application.Title),MB_ICONwarning);
                    Cmd_Check_Filsh;
                end;
            except