?? stbrwarehouse.pas
字號:
unit STBrWarehouse;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WSTreeView, Menus, DB, ActnList, ToolWin, WSEdit,ComCtrls, ADODB;
type
TSTBrWarehouseForm = class(TWSTreeViewForm)
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
tblSTBrWarehouse: TADOTable;
tblSTBrWarehouseID: TAutoIncField;
tblSTBrWarehouseCreateDate: TDateTimeField;
tblSTBrWarehouseCreateUserID: TIntegerField;
tblSTBrWarehouseRecordState: TStringField;
tblSTBrWarehouseName: TStringField;
tblSTBrWarehouseCode: TStringField;
tblSTBrWarehouseUpid: TIntegerField;
tblSTBrWarehouseMemo: TStringField;
tblSTBrWarehouseLevelCode: TStringField;
tblSTBrWarehouseLeaderID: TIntegerField;
tblSTBrWarehouseAddress: TStringField;
tblSTBrWarehousePhoneFax: TStringField;
tblSTBrWarehouseEmail: TStringField;
tblSTBrWarehouseWeb: TStringField;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function CreateEditForm: TWSEditForm; override;
end;
var
STBrWarehouseForm: TSTBrWarehouseForm;
implementation
uses STEdWarehouse, CommonDM;
{$R *.dfm}
function TSTBrWarehouseForm.CreateEditForm: TWSEditForm;
begin
Result := TSTEdWarehouseForm.Create(Application);
end;
procedure TSTBrWarehouseForm.FormCreate(Sender: TObject);
var
aqrTemp: TADOQuery;
begin
aqrTemp := TADOQuery.Create(nil);
with aqrTemp do
begin
Connection := CommonData.acnConnection;
Close;
sql.Text := ' select top 1 * from STWarehouse where '
+' RecordState<>' +QuotedStr('刪除');
open;
if aqrTemp.IsEmpty then
begin
aqrTemp.Close;
aqrTemp.sql.Text := ' Insert Into STWarehouse (CreateUserID,'
+' Upid,LeaderID,code,Name) '
+' Values ( 1,-1,1,1,'+QuotedStr('所有倉庫')+' )';
aqrTemp.ExecSQL;
end;
end;
inherited;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -