goods_cent.pas

delphi的一个开发实例

unit Goods_Cent;

interface

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

type
  Tfrm_Goods_Cent = class(TForm)
    Panel1: TPanel;
    P_Goods_Title: TPanel;
    XPMenu1: TXPMenu;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Goods_Cent: Tfrm_Goods_Cent;

implementation

uses func, Data;

{$R *.dfm}

procedure Tfrm_Goods_Cent.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_data.ClientDataSet4.Active:=False;
    frm_data.ClientDataSet4.Close;
    Action:=Cafree;
end;

procedure Tfrm_Goods_Cent.FormShow(Sender: TObject);
var
    sqltext:string;
    iRcount:Integer;
begin
    if Public_Do='Storage_SPFB' then
    begin
        sqltext:='';
        sqltext:='Select Goods_NO,Goods_Name,Base_Monad,Norms_Type,Stock_amount,Storage_Name,shop_name from [V_Stock_States_View] where Goods_No='''+Trim(Goods_No_Str)+'''';
        with frm_data.ClientDataSet4 do
        begin
            Close;
            Commandtext:='';
            Commandtext:=sqltext;
            try
                Open;
                frm_data.DataSource_Search.DataSet:=frm_data.ClientDataSet4;
                frm_data.DataSource_Search.Enabled:=True;
                DBGRid1.DataSource:=frm_data.DataSource_Search;
                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:='店面名称';
                iRcount:=frm_data.ClientDataSet4.RecordCount;
                P_Goods_Title.Caption:='';
                P_Goods_Title.Caption:=frm_data.ClientDataSet4.FieldByName('Goods_Name').AsString;
                first;
                
            except
                Application.MessageBox('系统错误，在打开【商品库存信息表】数据时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',Pchar(Application.Title),Mb_ICONWarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_Goods_Cent.SpeedButton2Click(Sender: TObject);
begin
    Close;
end;

end.