businsear.pas

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

unit businsear;

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;
    Label1: TLabel;
    procedure FormResize(Sender: TObject);
    procedure ListBox1Click(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;
BBdiscover.Top:=businDBG.Height+51;
BBprint.Top:=businDBG.Height+91;
end;





procedure TbusinsearForm.ListBox1Click(Sender: TObject);
begin
case listbox1.ItemIndex of
 0:label1.Caption:='业务类型';
 1:label1.Caption:='单号';
 2:label1.Caption:='开单早期';
 3:label1.Caption:='单据金额';
 4:label1.Caption:='备注';
 5:label1.Caption:='客户';
end;
end;

end.