ubusinsear.pas

来自「飞恒进销存(超市批发)管理系统（含源程序） 语言：Delphi 6/7 相」· PAS 代码 · 共 43 行

unit Ubusinsear;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, Grids, DBGridEh;

type
  TbusinsearForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BBok: TBitBtn;
    BBcancel: TBitBtn;
    BBclose: TBitBtn;
    BBdiscover: TBitBtn;
    BBprint: TBitBtn;
    GrBobusin: TGroupBox;
    condition: TLabel;
    ListBox1: TListBox;
    businDBG: TDBGridEh;
    conditions: TLabel;
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  businsearForm: TbusinsearForm;

implementation

{$R *.DFM}

procedure TbusinsearForm.FormResize(Sender: TObject);
begin
businDBG.Height:=panel1.Height-176;
end;

end.