?? pfm_selecttable.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -