goods_check.pas

delphi的一个开发实例

unit Goods_Check;

interface

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

type
  Tfrm_Goods_Check = class(TForm)
    Panel1: TPanel;
    XPMenu1: TXPMenu;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    XPMenu2: TXPMenu;
    Cmd_Select: TSpeedButton;
    Cmd_Add: TSpeedButton;
    Cmd_Cancel: TSpeedButton;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    Edit1: TLabeledEdit;
    SpeedButton9: TSpeedButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    procedure FormShow(Sender: TObject);
    procedure Cmd_SelectClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Cmd_AddClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Goods_Check: Tfrm_Goods_Check;

implementation

uses Data, func, Stock_Contract, Thing_Base;

{$R *.dfm}

procedure Tfrm_Goods_Check.FormShow(Sender: TObject);
var
    openstr:string;
begin
    openstr:='Select Goods_NO,Goods_Modal_No,Goods_Modal,Goods_Cards_NO,Goods_Cards,Goods_Brand_NO,';
    openstr:=openstr+'Goods_Brand,Norms_Type_NO,Norms_Type,Goods_Sphere,Goods_Column,Goods_Color_NO,Goods_Color,Goods_Coding,Enroll_Brand,Factory,Goods_Name,Goods_abbrev,Base_Monad,Whole_Monad,Valid_Month,Valid_Day,Remark from [Goods_Information]';
    with frm_data.ClientDataSet_Add do
    begin
        Close;
        CommandText:='';
        CommandText:=openstr;
        Open;
        frm_data.DataSource1.Enabled:=False;
        frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
        DBGrid1.DataSource:=frm_data.DataSource1;
        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[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[21].Title.caption:='有效日期（日）';
        Dbgrid1.Columns[22].Title.caption:='备注说明';
    end;
    if Public_Do='Umanage_0001' then
    begin
        openstr:='';
        openstr:='Select Goods_NO,Goods_Name,Pass_NO,amount,price,Total_Money,agio,agio_price,agio_money,tax_rate,tax_rate_price,tax_money,quality  from [Stock_Jion_Detail]';
        with frm_data.ClientDataSet_Add do
        begin
            Close;
            CommandText:='';
            CommandText:=openstr;
            Open;
            frm_data.DataSource1.Enabled:=False;
        frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
        DBGrid1.DataSource:=frm_data.DataSource1;
        frm_data.DataSource1.Enabled:=True;
        end;
    end;
    if Public_Do='damage_0001' then
    begin
        with frm_data.ClientDataSet_Add do
        begin
            Close;
            CommandText:='';
            CommandText:='Select Goods_NO,Goods_Name,Pass_NO,price,Base_Monad,agio,agio_price,tax_rate,tax_rate_price,quality  from [V_Storage_Enter_View]';
            Open;
            frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
            DbGrid1.DataSource:=frm_data.DataSource1;
            frm_data.DataSource1.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:='质量状况';
        end;
    end;
    if Public_Do='Storage_Umanage_Fad' then
    begin
        with frm_data.ClientDataSet_Add do
        begin
            Close;
            CommandText:='';
            CommandText:='';
            CommandText:='Select Goods_NO,Goods_Name,Stock_amount,Base_Monad from [V_Stock_States_View] where Stock_amount>0 ';
            Open;
            frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
            DbGrid1.DataSource:=frm_data.DataSource1;
            frm_data.DataSource1.Enabled:=True;
            DbGrid1.Columns[0].Title.caption:='商品编号';
            DbGrid1.Columns[1].Title.caption:='商品名称';
            DbGrid1.Columns[2].Title.caption:='库存数量';
            DbGrid1.Columns[3].Title.caption:='基本单位';
        end;
    end;
    if Public_Do='Storage_price_attemper' then
    begin
        with frm_data.ClientDataSet_Add do
        begin
            Close;
            CommandText:='';
            CommandText:='';
            CommandText:='Select Goods_NO,Goods_Name,Stock_amount,Base_Monad from [V_Stock_States_View] where Stock_amount>0 and Storage_NO='''+Check_Storage_Result_NO+'''';
            Open;
            frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
            DbGrid1.DataSource:=frm_data.DataSource1;
            frm_data.DataSource1.Enabled:=True;
            DbGrid1.Columns[0].Title.caption:='商品编号';
            DbGrid1.Columns[1].Title.caption:='商品名称';
            DbGrid1.Columns[2].Title.caption:='库存数量';
            DbGrid1.Columns[3].Title.caption:='基本单位';
        end;
    end;
end;

procedure Tfrm_Goods_Check.Cmd_SelectClick(Sender: TObject);
begin
    if Trim(Edit2.Text)='' then
    begin
        Application.MessageBox('操作失败，请选则需要选中的数据？请确认！',pchar(application.Title),mb_iconwarning);
        Exit;
    end
    else
    begin
        if Goods_Check_str='begin_build_goods' then
        begin
            Goods_No_Str:=Trim(Edit2.Text);
            Goods_Name_Str:=Trim(Edit3.Text);
            Close;
        end;
        if Public_Do='Stock_0002'then //采购合同管理
        begin
            Goods_Check_str:='Stock_0002';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Stock_0003'then //采购入库管理
        begin
            Goods_Check_str:='Stock_0003';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Stock_0004'then //采购入库管理
        begin
            Goods_Check_str:='Stock_0004';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Stock_0008'then //来货登记管理
        begin
            Goods_Check_str:='Stock_0008';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Business_Draft_0005' then
        begin
            Goods_Check_str:='Stock_0008';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Stock_0007'then //质量验收管理
        begin
            Goods_Check_str:='Stock_0007';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Business_Draft_0006' then
        begin
            Goods_Check_str:='Stock_0007';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='damage_0001' then //库存报损
        begin
            Goods_Check_str:='damage_0001';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Storage_Umanage_Fad' then //出库
        begin
            Goods_Check_str:='Storage_Umanage_Fad';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;  //
        if Public_Do='Storage_price_attemper' then //同价调拨
        begin
            Goods_Check_str:='Storage_price_attemper';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Goods_Requirement_str' then //商品需求
        begin
            Goods_Check_str:='Goods_Requirement_str_01';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Demand_Enter_Str' then //受托代销入库
        begin
            Goods_Check_str:='Demand_Enter_str';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Demand_Fad_Str' then //受托代销入库
        begin
            Goods_Check_str:='Demand_Fad_str';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Storage_Guide_Str='Guide_Str' then //表示库存预警管理
        begin
            if Storage_Guide_Type='02' then  //某类商品
            begin
                Storage_Guide_Name:=Trim(Edit5.Text);
                Storage_Guide_NO:=Trim(Edit4.Text);
                Close;
            end;
            if Storage_Guide_Type='03' then  //某一商品
            begin
                Storage_Guide_Name:=Trim(Edit3.Text);
                Storage_Guide_NO:=Trim(Edit2.Text);
                Close;
            end;
        end;
    end;
end;

procedure Tfrm_Goods_Check.DBGrid1CellClick(Column: TColumn);
begin
    Edit2.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_NO'];
    Edit3.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Name'];
    Edit4.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Modal_NO'];
    Edit5.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Modal'];
end;

procedure Tfrm_Goods_Check.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.Close;
    //frm_data.ClientDataSet2.Active:=False;
    //frm_data.ClientDataSet2.Close;
    Action:=cafree;
end;

procedure Tfrm_Goods_Check.DBGrid1DblClick(Sender: TObject);
begin
    if Trim(Edit2.Text)='' then
    begin
        Application.MessageBox('操作失败，请选则需要选中的数据？请确认！',pchar(application.Title),mb_iconwarning);
        Exit;
    end
    else
    begin
        if Public_Do='Stock_0002'then //采购合同管理
        begin
            Goods_Check_str:='Stock_0002';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Stock_0003'then //采购入库管理
        begin
            Goods_Check_str:='Stock_0003';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Stock_0004'then //采购入库管理
        begin
            Goods_Check_str:='Stock_0004';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
        if Public_Do='Stock_0008'then //来货登记管理
        begin
            Goods_Check_str:='Stock_0008';
            Goods_No_Str:=Trim(Edit2.Text);
            Close;
        end;
    end;
end;

procedure Tfrm_Goods_Check.Cmd_AddClick(Sender: TObject);
begin
    Do_Result:='';
    Do_Result:='0009';//表示选择了‘商品信息’对象
    frm_Thing_Base:=Tfrm_Thing_Base.Create(self);
    frm_Thing_Base.TabSh1.TabVisible:=False;
    frm_Thing_Base.TabSh2.TabVisible:=False;
    frm_Thing_Base.TabSh3.TabVisible:=False;
    frm_Thing_Base.TabSh4.TabVisible:=False;
    frm_Thing_Base.TabSh5.TabVisible:=False;
    frm_Thing_Base.TabSh6.TabVisible:=False;
    frm_Thing_Base.TabSh7.TabVisible:=False;
    frm_Thing_Base.TabSh8.TabVisible:=False;
    frm_Thing_Base.TabSh9.TabVisible:=False;
    frm_Thing_Base.TabSh10.TabVisible:=True;
            
    frm_Thing_Base.ShowModal;
    frm_Thing_Base.Free;
end;

end.