usturep.pas
来自「针对商品与仓库存储商品等信息的管理及维护的管理软件。它能够辅助仓库管理人员对供应」· PAS 代码 · 共 38 行
PAS
38 行
unit usturep;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, StdCtrls, ExtCtrls, QRCtrls, Buttons;
type
TFrmsturep = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frmsturep: TFrmsturep;
implementation
uses uStatus;
{$R *.dfm}
procedure TFrmsturep.SpeedButton4Click(Sender: TObject);
begin
close;
end;
end.
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?