pfm_selecttable.pas

来自「超市的销售」· PAS 代码 · 共 62 行

unit pfm_selecttable;

interface

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

type
  Tfm_selecttable = class(TForm)
    LBox1: TListBox;
    BBtnOK: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BBtnOKClick(Sender: TObject);
    procedure LBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    mselindex:integer;
  end;

var
  fm_selecttable: Tfm_selecttable;

implementation

{$R *.DFM}

procedure Tfm_selecttable.FormCreate(Sender: TObject);
begin
    with lbox1.Items do
    begin
    add('进货入库单');
    add('提货出库单');
    add('批发单');
    add('赠品单');
    //add('客户退货单');
    add('商品退货单');
    add('门店退仓单');
    add('损溢单');
    add('调价单');
    end;
end;

procedure Tfm_selecttable.BBtnOKClick(Sender: TObject);
begin
    if lbox1.itemindex<0 then
    begin
        showmessage('请选择查看的表单');
        exit;
    end;
    mselindex:=lbox1.itemindex;
    modalresult:=mrOK;
end;
procedure Tfm_selecttable.LBox1DblClick(Sender: TObject);
begin
    BBtnOKClick(BBtnOK);
end;

end.