?? item.pas
字號:
unit item;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BaseInfo, Menus, ActnList, DB, DBClient, Grids, DBGridEh,
StdCtrls, wwdblook, Buttons, ToolWin, ComCtrls, ExtCtrls, FR_DSet,
FR_DBSet, FR_Class, FR_Desgn;
type
Tfrmitem = class(TfrmBaseinfo)
CDSbaseinfofid: TAutoIncField;
CDSbaseinfofcode: TWideStringField;
CDSbaseinfofname: TWideStringField;
CDSbaseinfofunit: TWideStringField;
CDSbaseinfoftype: TWideStringField;
CDSbaseinfofsaleprice: TBCDField;
CDSbaseinfofsalehortation: TBCDField;
CDSbaseinfofiffew: TBooleanField;
CDSbaseinfofminstore: TBCDField;
CDSbaseinfofnote: TWideStringField;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmitem: Tfrmitem;
implementation
uses Global, uitem_m;
{$R *.dfm}
procedure Tfrmitem.FormCreate(Sender: TObject);
begin
inherited;
Maintable:='titem';
Mainview:='vitem';
Keyfield:='fid';
ReportName:=gs_appPath+'\prints\fritem.frf';
Modifyform:=Tfrmitem_m;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -