storefind.~pas

这是用delphi开发的一个物资管理信息系统

unit storefind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB, DBClient,product_unit,store_unit,
  ComCtrls, Buttons, RpDefine, RpCon, RpConDS, ExtCtrls;

type
  Tstorefindfrm = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Button2: TButton;
    DBGrid2: TDBGrid;
    pro_namelb: TLabel;
    store_pro_numlb: TLabel;
    place_codelb: TLabel;
    pro_typelb: TLabel;
    pro_sizelb: TLabel;
    pro_pricelb: TLabel;
    fit_store_numlb: TLabel;
    unitlb: TLabel;
    pro_nameed: TEdit;
    store_pro_numed: TEdit;
    fit_store_numed: TEdit;
    pro_typeed: TEdit;
    place_codeed: TEdit;
    pro_sizeed: TEdit;
    pro_priceed: TEdit;
    storefind_ds1: TDataSource;
    storefind_cds1: TClientDataSet;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    united: TComboBox;
    UpDown3: TUpDown;
    Label1: TLabel;
    GroupBox3: TGroupBox;
    pro_codeed: TComboBox;
    pro_codelb: TLabel;
    Button1: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
   product:Tproduct;
   store:Tstore;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  storefindfrm: Tstorefindfrm;

implementation

uses plan;

{$R *.dfm}

procedure Tstorefindfrm.Button1Click(Sender: TObject);
begin
product:=Tproduct.create ;
store:=Tstore.create ;
if pro_codeed.Text=''  then
begin
showmessage('请输入物品编码查询！');
exit;
end;

if product.CheckProRec(pro_codeed.Text)=false  then
begin
showmessage('对不起，该物品编码不存在！');
exit;
end;

if  store.GetStoreNum(pro_codeed.Text)< product.GetFitStoreNum(pro_codeed.Text)  then
begin
showmessage('当前库存小于安全库存，请进行采购！');
store_pro_numed.Font.Color:=clred;
end;

pro_nameed.Text :=product.GetProName(pro_codeed.Text);
store_pro_numed.Text :=store.GetStoreNum(pro_codeed.Text) ;
fit_store_numed.Text :=product.GetFitStoreNum(pro_codeed.Text);
pro_typeed.Text :=product.GetProType(pro_codeed.Text);
place_codeed.Text :=store.GetPlaceCode(pro_codeed.Text);
pro_sizeed.Text :=product.GetProSize(pro_codeed.Text);
united.Text :=store.GetUnit(pro_codeed.Text);
pro_priceed.Text :=product.GetProPrice(pro_codeed.Text);

product.Free;
store.Free;

end;

procedure Tstorefindfrm.Button2Click(Sender: TObject);
var
  selstr:string;
begin

store:=Tstore.create ;
selstr:='SELECT PRO_INFO.PRO_NAME AS 物品名称, '
    +' STORE_INFO.STORE_PRO_NUM AS 库存数量, '
    +' PLACE_INFO.AREA_NAME AS 库位号, PRO_INFO.UNIT AS 物品单位,  '
    +'  PLACE_INFO.SHELF_NUM AS 货架号码, PLACE_INFO.FLOOR_NUM AS 层号,'
    +'  PLACE_INFO.LINE_NUM AS 列号 '
+'FROM STORE_INFO INNER JOIN  '
     +' PRO_INFO ON '
    +'  STORE_INFO.PRO_CODE = PRO_INFO.PRO_CODE INNER JOIN '
    +'  PLACE_INFO ON '
     +' STORE_INFO.PLACE_CODE = PLACE_INFO.PLACE_CODE';

if store.FindRecs(selstr)=false then
begin
showmessage('抱歉，没有库存信息可以显示！');
exit;
end;


storefind_cds1.Data:=store.StoreRecs(selstr);
store.Free;
end;

procedure Tstorefindfrm.BitBtn1Click(Sender: TObject);
begin
  storefindfrm.Close ;
end;

procedure Tstorefindfrm.FormActivate(Sender: TObject);
begin
 product:=Tproduct.create;
 pro_codeed.Items:=product.GetProIdList();  
end;

procedure Tstorefindfrm.BitBtn2Click(Sender: TObject);
begin
  planfrm:=tplanfrm.create(application);
  planfrm.show;
end;

procedure Tstorefindfrm.Button1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clblue; 
end;

procedure Tstorefindfrm.Button1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

end.