business_draft.pas

delphi的一个开发实例

unit Business_Draft;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids;

type
  Tfrm_Business_Draft = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    Edit_level_Count: TEdit;
    Edit_Receipt_Name: TEdit;
    Edit_Examine_Man1: TEdit;
    Edit_Examine_Man2: TEdit;
    Edit_Examine_Man3: TEdit;
    Edit_Examine_Man4: TEdit;
    Edit_Examine_Man5: TEdit;
    Edit_NO: TEdit;
    Edit_table: TEdit;
    ComboBox2: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBox1Change(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Business_Draft: Tfrm_Business_Draft;

implementation

uses Stock_Contract, Data, func, Stock_Enter, Stock_Fad, Stock_Pay,
  Goods_Write, Quality_Check, Storage_damage, Umanage_Fad, price_attemper,
  Demand_Enter, Demand_Fad;

{$R *.dfm}

procedure Tfrm_Business_Draft.FormShow(Sender: TObject);
begin

    ComboBox1.ItemIndex:=0;
    ComboBox2.ItemIndex:=0;
    with frm_data.ClientDataSet2 do
    begin
        Close;
        CommandText:='';
        CommandText:='Select Copy_Date,Receipt_Name,Receipt_No,Condense,Proposer,Level_Count,Examine_Man1,Examine_Man2,Examine_Man3,Examine_Man4,Examine_Man5,Level_Name1,Level_Name2,Level_Name3,Level_Name4,Level_Name5,E1,E2,E3,E4,E5 from [V_Stock_Level] where Flag_sign=''草稿''';
        Open;
        frm_data.DataSource1.DataSet:=frm_data.ClientDataSet2;
        frm_data.DataSource1.Enabled:=false;
        if frm_data.ClientDataSet2.RecordCount>0 then
        begin
            DBGrid1.DataSource:=frm_data.DataSource1;
            frm_data.DataSource1.Enabled:=True;
            DBGrid1.Enabled:=True;
            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[10].Title.caption:='五级审核人';
            DBGrid1.Columns[11].Title.caption:='一级名称';  DBGrid1.Columns[12].Title.caption:='二级名称';
            DBGrid1.Columns[13].Title.caption:='三级名称';  DBGrid1.Columns[14].Title.caption:='四级名称';
            DBGrid1.Columns[15].Title.caption:='五级名称';
            DBGrid1.Columns[16].Title.caption:='一级是否审核';  DBGrid1.Columns[17].Title.caption:='二级是否审核';
            DBGrid1.Columns[18].Title.caption:='三级是否审核';  DBGrid1.Columns[19].Title.caption:='四级是否审核';
            DBGrid1.Columns[20].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;  DBGrid1.Columns[10].Width:=100;  DBGrid1.Columns[11].Width:=100;
            DBGrid1.Columns[12].Width:=80;   DBGrid1.Columns[13].Width:=80;    DBGrid1.Columns[14].Width:=60;
            DBGrid1.Columns[15].Width:=80;   DBGrid1.Columns[16].Width:=60;    DBGrid1.Columns[17].Width:=100;
            DBGrid1.Columns[18].Width:=100;  DBGrid1.Columns[19].Width:=100;   DBGrid1.Columns[20].Width:=100;
            //TStringGrid(DbGrid1).FixedCols := 5; //锁住几列
        end
        else
        begin
            DBGrid1.Enabled:=False;
        end;
    end;
end;

procedure Tfrm_Business_Draft.DBGrid1DblClick(Sender: TObject);
begin
    //如果草稿单据的条数不为空则
    if Trim(Edit_Receipt_Name.Text)<>'' then
    begin
        Public_Do:='';
        if LevelType='采购合同' then //单据名称
        begin
            Public_Do:='Business_Draft_0002';//采购合同
            frm_Stock_Contract:=Tfrm_Stock_Contract.Create(self);
            frm_Stock_Contract.ShowModal;
            frm_Stock_Contract.Free;
        end;
        if LevelType='采购入库单' then //单据名称
        begin
            Public_Do:='Business_Draft_0001';// 采购入库单
            frm_Stock_Enter:=Tfrm_Stock_Enter.Create(self);
            frm_Stock_Enter.ShowModal;
            frm_Stock_Enter.Free;
        end;
        if LevelType='采购退货单' then //单据名称
        begin
            Public_Do:='Business_Draft_0003';// 采购退货单
            frm_Stock_Fad:=Tfrm_Stock_Fad.Create(self);
            frm_Stock_Fad.ShowModal;
            frm_Stock_Fad.Free;
        end;
        if LevelType='采购付款单' then //单据名称
        begin
            Public_Do:='Business_Draft_0004';// 采购付款单
            frm_Stock_Pay:=Tfrm_Stock_Pay.Create(self);
            frm_Stock_Pay.ShowModal;
            frm_Stock_Pay.Free;
        end;
        if LevelType='来货登记单' then //单据名称
        begin
            Public_Do:='Business_Draft_0005';// 来货登记单
            frm_Goods_Write:=Tfrm_Goods_Write.Create(self);
            frm_Goods_Write.ShowModal;
            frm_Goods_Write.Free;
        end;
        if LevelType='质量验收单' then //单据名称
        begin
            Public_Do:='Business_Draft_0006';// 质量验收单
            Public_Do_Result:='';
            frm_Quality_Check:=Tfrm_Quality_Check.Create(self);
            frm_Quality_Check.ShowModal;
            frm_Quality_Check.Free;
        end;
        if LevelType='库存报损单' then //单据名称
        begin
            Public_Do:='Business_Storage_damage';// 库存报损单
            Public_Do_Result:='';
            frm_Storage_damage:=Tfrm_Storage_damage.Create(self);
            frm_Storage_damage.ShowModal;
            frm_Storage_damage.Free;
        end;
        if LevelType='出库单' then //单据名称
        begin
            Public_Do:='Business_Storage_Out';// 出库单
            Public_Do_Result:='';
            frm_Umanage_Fad:=Tfrm_Umanage_Fad.Create(self);
            frm_Umanage_Fad.ShowModal;
            frm_Umanage_Fad.Free;
        end;
        if LevelType='同价调拨单' then //单据名称
        begin
            Public_Do:='Business_Price_attemper';// 同价调拨单
            Public_Do_Result:='';
            frm_Price_attemper:=Tfrm_Price_attemper.Create(self);
            frm_Price_attemper.ShowModal;
            frm_Price_attemper.Free;
        end;
        if LevelType='受托代销入库单' then //单据名称
        begin
            Public_Do:='Demand_Enter_Business';// 受托代销入库单