placefind.~pas

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

unit placefind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, DBClient,place_unit,
  Buttons, ExtCtrls;

type
  Tplacefindfrm = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    place_codelb: TLabel;
    one_btn: TButton;
    area_namelb: TLabel;
    shelf_numlb: TLabel;
    line_numlb: TLabel;
    floor_numlb: TLabel;
    heightlb: TLabel;
    widthlb: TLabel;
    lengthlb: TLabel;
    all_btn: TButton;
    placefind_ds1: TDataSource;
    area_nameed: TEdit;
    floor_numed: TEdit;
    heighted: TEdit;
    lengthed: TEdit;
    line_numed: TEdit;
    widthed: TEdit;
    placefind_cds1: TClientDataSet;
    shelf_numed: TEdit;
    cancel_btn: TBitBtn;
    place_codeed: TComboBox;
    procedure cancel_btnClick(Sender: TObject);
    procedure all_btnClick(Sender: TObject);
    procedure one_btnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    place:Tplace;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  placefindfrm: Tplacefindfrm;

implementation

{$R *.dfm}

procedure Tplacefindfrm.cancel_btnClick(Sender: TObject);
begin
placefindfrm.Close;
end;

procedure Tplacefindfrm.all_btnClick(Sender: TObject);
 var
   selstr:string;
begin
place:=Tplace.create ;

selstr:='select place_code 库位号,area_name 区域名称,width  货格宽度,'
+'shelf_num 货架号,floor_num 层号,line_num 列号,height 货格高度,length 货格长度,'
+'pro_code 所放物品编码 from  place_info where pro_code is null or pro_code=''''';
placefind_cds1.data:=place.FindAllPlace(selstr);
place.Free;
end;

procedure Tplacefindfrm.one_btnClick(Sender: TObject);
var
 selstr:string;
begin
place:=Tplace.create ;

if length(place_codeed.Text)<>7 then
begin
showmessage('请确认库位号位数输入无误！');
exit;
end;


if place.CheckRec(place_codeed.Text)=false then
begin
showmessage('对不起，该库位号不存在！');
exit;
end;

if place.GetProCode(place_codeed.Text)=null then
 showmessage('该库位号为空，没有存放物品！');

if place.GetProCode(place_codeed.Text)<>null then
 showmessage('已查到了该库位号！');

area_nameed.Text :=place.GetAreaName(place_codeed.Text) ;
shelf_numed.Text :=place.GetShelfNum(place_codeed.Text) ;
floor_numed.Text:=place.GetFloorNum(place_codeed.Text) ;
line_numed.Text :=place.GetLineNum(place_codeed.Text) ;
heighted.Text :=place.GetHeight(place_codeed.Text) ;
widthed.Text :=place.GetWidth(place_codeed.Text) ;
lengthed.Text :=place.GetLength(place_codeed.Text) ;

selstr:='select place_code 库位号,area_name 区域名称,width  货格宽度,'
+'shelf_num 货架号,floor_num 层号,line_num 列号,height 货格高度,length 货格长度,'
+'pro_code 所放物品编码 from  place_info where place_code='''+place_codeed.Text+'''';
placefind_cds1.Data :=place.FindAllPlace(selstr);

place.Free;
end;

procedure Tplacefindfrm.FormActivate(Sender: TObject);
begin
  place:=tplace.create ;
  place_codeed.Items:=place.GetPlaceIdList();
end;

end.