business_draft.pas

delphi的一个开发实例

            Public_Do_Result:='';
            frm_Demand_Enter:=Tfrm_Demand_Enter.Create(self);
            frm_Demand_Enter.ShowModal;
            frm_Demand_Enter.Free;
        end;
        if LevelType='受托代销退货单' then //单据名称
        begin
            Public_Do:='Demand_Fad_Business';// 受托代销入库单
            Public_Do_Result:='';
            frm_Demand_Fad:=Tfrm_Demand_Fad.Create(self);
            frm_Demand_Fad.ShowModal;
            frm_Demand_Fad.Free;
        end;
    end;
    if Trim(Edit_Receipt_Name.Text)='' then   //如果草稿单据的条数为空
    begin
        Exit;
    end;
end;

procedure Tfrm_Business_Draft.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_data.ClientDataSet2.Active:=false;
    frm_data.ClientDataSet2.Close;
    Action:=cafree;
end;

procedure Tfrm_Business_Draft.ComboBox1Change(Sender: TObject);
var
    tempstr:string;
begin
    tempstr:='';
    if Combobox1.ItemIndex=0 then
    begin
        tempstr:='Select Receipt_No,Receipt_Name,Level_Count,Condense,Proposer,Examine_Man1,Examine_Man2,Examine_Man3,Examine_Man4,Examine_Man5,Check_Result from [V_Stock_Level] where Flag_sign=''草稿''';
    end;
    if Combobox1.ItemIndex=1 then
    begin
        tempstr:='Select Receipt_No,Receipt_Name,Level_Count,Condense,Proposer,Examine_Man1,Examine_Man2,Examine_Man3,Examine_Man4,Examine_Man5,Check_Result from [V_Stock_Level] where Check_Result=''1'' and Flag_sign=''草稿''';
    end;
    if Combobox1.ItemIndex=2 then
    begin
        tempstr:='Select Receipt_No,Receipt_Name,Level_Count,Condense,Proposer,Examine_Man1,Examine_Man2,Examine_Man3,Examine_Man4,Examine_Man5,Check_Result from [V_Stock_Level] where Check_Result=''0'' and Flag_sign=''草稿''';
    end;
    with frm_data.ClientDataSet2 do
    begin
        Close;
        CommandText:='';
        CommandText:=tempstr;
        Open;
        frm_data.DataSource1.DataSet:=frm_data.ClientDataSet2;
        frm_data.DataSource1.Enabled:=false;
        if frm_data.ClientDataSet2.RecordCount>0 then
        begin
            frm_data.DataSource1.Enabled:=True;
            DBGrid1.DataSource:=frm_data.DataSource1;
            DBGrid1.Columns[0].Title.caption:='单据编号';
            DBGrid1.Columns[1].Title.caption:='单据类别';
            DBGrid1.Columns[2].Title.caption:='审核级数';
            DBGrid1.Columns[3].Title.caption:='摘要';
            DBGrid1.Columns[4].Title.caption:='制单人';
            DBGrid1.Columns[5].Title.caption:='一级别审核人';
            DBGrid1.Columns[6].Title.caption:='二级别审核人';
            DBGrid1.Columns[7].Title.caption:='三级别审核人';
            DBGrid1.Columns[8].Title.caption:='四级别审核人';
            DBGrid1.Columns[9].Title.caption:='五级别审核人';
            DBGrid1.Columns[0].Width:=80;
            DBGrid1.Columns[1].Width:=80;
            DBGrid1.Columns[2].Width:=60;
            DBGrid1.Columns[3].Width:=80;
            DBGrid1.Columns[4].Width:=60;
            DBGrid1.Columns[5].Width:=100;
            DBGrid1.Columns[6].Width:=100;
            DBGrid1.Columns[7].Width:=100;
            DBGrid1.Columns[8].Width:=100;
            DBGrid1.Columns[9].Width:=100;
        end;
    end;
end;

procedure Tfrm_Business_Draft.DBGrid1CellClick(Column: TColumn);
begin
    ComboBox2.Text:=frm_data.ClientDataSet2.FieldValues['Receipt_Name'];
    Edit_Receipt_Name.Text:=frm_data.ClientDataSet2.FieldValues['Receipt_Name'];
    Edit_level_Count.Text:=frm_data.ClientDataSet2.FieldValues['level_Count'];
    SH_Level:=StrToInt(Edit_level_Count.Text);
    Edit_NO.Text:=frm_data.ClientDataSet2.FieldValues['Receipt_No'];//单据编号
    List_No:=frm_data.ClientDataSet2.FieldValues['Receipt_No'];//单据编号
    LevelType:=frm_data.ClientDataSet2.FieldValues['Receipt_Name'];//单据名称
    Edit_Examine_Man1.Text:=frm_data.ClientDataSet2.FieldValues['Examine_Man1'];
    Edit_Examine_Man2.Text:=frm_data.ClientDataSet2.FieldValues['Examine_Man2'];
    Edit_Examine_Man3.Text:=frm_data.ClientDataSet2.FieldValues['Examine_Man3'];
    Edit_Examine_Man4.Text:=frm_data.ClientDataSet2.FieldValues['Examine_Man4'];
    Edit_Examine_Man5.Text:=frm_data.ClientDataSet2.FieldValues['Examine_Man5'];
    LevelName1:=frm_data.ClientDataSet2.FieldValues['Level_Name1'];
    LevelName2:=frm_data.ClientDataSet2.FieldValues['Level_Name2'];
    LevelName3:=frm_data.ClientDataSet2.FieldValues['Level_Name3'];
    LevelName4:=frm_data.ClientDataSet2.FieldValues['Level_Name4'];
    LevelName5:=frm_data.ClientDataSet2.FieldValues['Level_Name5'];
    ExamineMan1:=frm_data.ClientDataSet2.FieldValues['Examine_Man1'];  //审核人员名称
    ExamineMan2:=frm_data.ClientDataSet2.FieldValues['Examine_Man2'];  //审核人员名称
    ExamineMan3:=frm_data.ClientDataSet2.FieldValues['Examine_Man3'];  //审核人员名称
    ExamineMan4:=frm_data.ClientDataSet2.FieldValues['Examine_Man4'];  //审核人员名称
    ExamineMan5:=frm_data.ClientDataSet2.FieldValues['Examine_Man5'];  //审核人员名称
    ee1:=frm_data.ClientDataSet2.FieldValues['E1'];  //审核人员名称
    ee2:=frm_data.ClientDataSet2.FieldValues['E2'];  //审核人员名称
    ee3:=frm_data.ClientDataSet2.FieldValues['E3'];  //审核人员名称
    ee4:=frm_data.ClientDataSet2.FieldValues['E4'];  //审核人员名称
    ee5:=frm_data.ClientDataSet2.FieldValues['E5'];  //审核人员名称
end;

procedure Tfrm_Business_Draft.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if Key = #13 then 
        if ActiveControl = DBGrid1 then
        begin
            TDBGrid(ActiveControl).SelectedIndex := TDBGrid(ActiveControl).SelectedIndex + 1;
            Key := #0;
        end;
end;

procedure Tfrm_Business_Draft.ComboBox2Change(Sender: TObject);
var
    tempstr:string;
begin
    tempstr:='';
    if Combobox2.ItemIndex=0 then
    begin
        tempstr:='Select Receipt_No,Receipt_Name,Level_Count,Condense,Proposer,Examine_Man1,Examine_Man2,Examine_Man3,Examine_Man4,Examine_Man5,Check_Result from [V_Stock_Level] where  Flag_sign=''草稿''';
    end
    else
    begin
        tempstr:='Select Receipt_No,Receipt_Name,Level_Count,Condense,Proposer,Examine_Man1,Examine_Man2,Examine_Man3,Examine_Man4,Examine_Man5,Check_Result from [V_Stock_Level] where Receipt_Name='''+Trim(ComboBox2.Text)+''' and Flag_sign=''草稿''';
    end;
    with frm_data.ClientDataSet2 do
    begin
        Close;
        CommandText:='';
        CommandText:=tempstr;
        Open;
        frm_data.DataSource1.DataSet:=frm_data.ClientDataSet2;
        frm_data.DataSource1.Enabled:=false;
        if frm_data.ClientDataSet2.RecordCount>0 then
        begin
            frm_data.DataSource1.Enabled:=True;
            DBGrid1.DataSource:=frm_data.DataSource1;
            DBGrid1.Columns[0].Title.caption:='单据编号';
            DBGrid1.Columns[1].Title.caption:='单据类别';
            DBGrid1.Columns[2].Title.caption:='审核级数';
            DBGrid1.Columns[3].Title.caption:='摘要';
            DBGrid1.Columns[4].Title.caption:='制单人';
            DBGrid1.Columns[5].Title.caption:='一级别审核人';
            DBGrid1.Columns[6].Title.caption:='二级别审核人';
            DBGrid1.Columns[7].Title.caption:='三级别审核人';
            DBGrid1.Columns[8].Title.caption:='四级别审核人';
            DBGrid1.Columns[9].Title.caption:='五级别审核人';
            DBGrid1.Columns[0].Width:=80;
            DBGrid1.Columns[1].Width:=80;
            DBGrid1.Columns[2].Width:=60;
            DBGrid1.Columns[3].Width:=80;
            DBGrid1.Columns[4].Width:=60;
            DBGrid1.Columns[5].Width:=100;
            DBGrid1.Columns[6].Width:=100;
            DBGrid1.Columns[7].Width:=100;
            DBGrid1.Columns[8].Width:=100;
            DBGrid1.Columns[9].Width:=100;
        end;
    end;
end;


end.