?? ps_stkplus.pas
字號(hào):
unit PS_stkPlus;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons,db;
type
TF_stkPlus = class(TForm)
L_warehouseid: TLabel;
L_cash: TLabel;
E_cash: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
CB_warehouseid: TComboBox;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_stkPlus: TF_stkPlus;
implementation
uses PS_db;
{$R *.DFM}
procedure TF_stkPlus.FormCreate(Sender: TObject);
var
location:Tbookmark;//想用它來(lái)保存移動(dòng)前位置
begin
with comdatabase.comwarehouse do begin
disablecontrols;
location:=getbookmark;
first;
while not eof do begin
cb_warehouseid.Items.Add(fieldvalues['id']);
next;
end;
gotobookmark(location);
freebookmark(location);
enablecontrols;
end;
end;
procedure TF_stkPlus.BitBtn1Click(Sender: TObject);
begin
if E_cash.text='' then E_cash.text:='0';
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -