stock_state_detail.pas

delphi的一个开发实例

unit Stock_State_Detail;

interface

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

type
  Tfrm_Stock_State_Detail = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Stock_State_Detail: Tfrm_Stock_State_Detail;

implementation

uses Data, func;

{$R *.dfm}

procedure Tfrm_Stock_State_Detail.FormShow(Sender: TObject);
var
    SqlText:String;
begin
    if Stock_States_Detail_str='Select_One' then
    begin
        SqlText:='';
        //SqlText:='Select Goods_NO,Goods_Name,Storage_Name,shop_name,Stock_amount,Costing_price,Stock_money,Goods_Modal,Goods_Cards,Goods_Brand,Norms_Type,Goods_Sphere,Goods_Column,Goods_Color,Goods_Coding,Factory,Enroll_Brand,Goods_Name,Goods_abbrev,Base_Monad,Whole_Monad,Valid_Month,Valid_Day,Remark';
        SqlText:='Select Goods_NO,Goods_Name,Storage_Name,shop_name,Stock_amount,Costing_price,Stock_money from [V_Stock_States_View]';//,Goods_Modal,Goods_Cards,Goods_Brand,Norms_Type,Goods_Sphere,Goods_Column,Goods_Color,Goods_Coding,Factory,Enroll_Brand,Goods_Name,Goods_abbrev,Base_Monad,Whole_Monad,Valid_Month,Valid_Day,Remark';
        with frm_data.ClientDataSet_Stock_States_detail do
        begin
            Close;
            CommandText:='';
            CommandText:=SqlText+' where Goods_NO='''+Trim(Goods_No_Str)+''' and Storage_NO='''+Trim(Check_Storage_Result_NO)+'''';
            try
                Open;
                if frm_data.ClientDataSet_Stock_States_detail.RecordCount>0 then
                begin
                    frm_data.DataSource_Stock_States_detail.DataSet:=frm_data.ClientDataSet_Stock_States_detail;
                    frm_data.DataSource_Stock_States_detail.Enabled:=False;
                    frm_data.DataSource_Stock_States_detail.Enabled:=True;
                    DBGRid1.DataSource:=frm_data.DataSource_Stock_States_detail;
                    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:='库存金额';
                end;
            except;
                Application.MessageBox('系统错误，在打开数据表【库存状况表】时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
    if Stock_States_Detail_str='Select_all' then
    begin
        SqlText:='';
        //SqlText:='Select Goods_NO,Goods_Name,Storage_Name,shop_name,Stock_amount,Costing_price,Stock_money,Goods_Modal,Goods_Cards,Goods_Brand,Norms_Type,Goods_Sphere,Goods_Column,Goods_Color,Goods_Coding,Factory,Enroll_Brand,Goods_Name,Goods_abbrev,Base_Monad,Whole_Monad,Valid_Month,Valid_Day,Remark';
        SqlText:='Select Goods_NO,Goods_Name,Storage_Name,shop_name,Stock_amount,Costing_price,Stock_money from [V_Stock_States_View]';//,Goods_Modal,Goods_Cards,Goods_Brand,Norms_Type,Goods_Sphere,Goods_Column,Goods_Color,Goods_Coding,Factory,Enroll_Brand,Goods_Name,Goods_abbrev,Base_Monad,Whole_Monad,Valid_Month,Valid_Day,Remark';
        with frm_data.ClientDataSet_Stock_States_detail do
        begin
            Close;
            CommandText:='';
            CommandText:=SqlText+' where Goods_NO='''+Trim(Goods_No_Str)+'''';
            try
                Open;
                if frm_data.ClientDataSet_Stock_States_detail.RecordCount>0 then
                begin
                    frm_data.DataSource_Stock_States_detail.DataSet:=frm_data.ClientDataSet_Stock_States_detail;
                    frm_data.DataSource_Stock_States_detail.Enabled:=False;
                    frm_data.DataSource_Stock_States_detail.Enabled:=True;
                    DBGRid1.DataSource:=frm_data.DataSource_Stock_States_detail;
                    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:='库存金额';
                end;
            except;
                Application.MessageBox('系统错误，在打开数据表【库存状况表】时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',Pchar(Application.Title),MB_ICONwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_Stock_State_Detail.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_data.ClientDataSet_Stock_States_detail.Active:=false;
    frm_data.ClientDataSet_Stock_States_detail.Close;
    Action:=Cafree;
end;

end.