【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供placefind.pas参考，解决您在placefind.pas学习中工作中的难题，参考学习。

    unit placefind;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, DBClient,place_unit;
    
    type
      Tplacefindfrm = class(TForm)
        GroupBox1: TGroupBox;
        DBGrid1: TDBGrid;
        place_codeed: TEdit;
        place_codelb: TLabel;
        one_btn: TButton;
        area_namelb: TLabel;
        shelf_numlb: TLabel;
        line_numlb: TLabel;
        floor_numlb: TLabel;
        heightlb: TLabel;
        widthlb: TLabel;
        lengthlb: TLabel;
        cancel_btn: TButton;
        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;
        procedure cancel_btnClick(Sender: TObject);
        procedure all_btnClick(Sender: TObject);
        procedure one_btnClick(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 ;
    //判断输入的库位号是否是7位（数据库设定位7位）
    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;
    
    end.
    

上一篇：MAINFRM.CPP
下一篇：法律专业开题报告范文