?? supplieredit.pas
字號:
unit SupplierEdit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BaseInfoEdit, StdCtrls, Buttons, ComCtrls, DBCtrls, Mask, ADODB,
DBCtrlsEh;
type
TSupplierEditForm = class(TBaseInfoEditForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label19: TLabel;
Label18: TLabel;
Label17: TLabel;
DBEditEh1: TDBEditEh;
DBEditEh2: TDBEditEh;
DBEditEh3: TDBEditEh;
DBEditEh4: TDBEditEh;
Label20: TLabel;
DBEditEh5: TDBEditEh;
DBEditEh6: TDBEditEh;
DBEditEh7: TDBEditEh;
DBEditEh8: TDBEditEh;
DBEditEh9: TDBEditEh;
DBEditEh10: TDBEditEh;
DBEditEh11: TDBEditEh;
DBEditEh12: TDBEditEh;
DBEditEh13: TDBEditEh;
DBEditEh14: TDBEditEh;
DBEditEh15: TDBEditEh;
DBEditEh16: TDBEditEh;
DBEditEh17: TDBEditEh;
DBEditEh18: TDBEditEh;
DBEditEh19: TDBEditEh;
DBEditEh20: TDBEditEh;
procedure btnInsClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure DBEditEh4EditButtons0Click(Sender: TObject;
var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure ShowSupplierEditForm(ADOQryTmp: TADOQuery; sState: string);
implementation
uses SysPublic, Area;
{$R *.dfm}
procedure ShowSupplierEditForm(ADOQryTmp: TADOQuery; sState: string);
var
SupplierEditForm: TSupplierEditForm;
begin
SupplierEditForm:= TSupplierEditForm.Create(Application);
SupplierEditForm.FADOQuery:= ADOQryTmp;
if sState= sEdit then
SupplierEditForm.FADOQuery.Edit;
if sState = sInsert then
SupplierEditForm.FADOQuery.Insert;
SupplierEditForm.ShowModal;
end;
procedure TSupplierEditForm.btnInsClick(Sender: TObject);
begin
if not CheckEditEmpty(1, self, [Label1.Name, Label2.Name], [DBEditEh1.Name, DBEditEh2.Name])
then Exit;
inherited;
end;
procedure TSupplierEditForm.btnOKClick(Sender: TObject);
begin
if not CheckEditEmpty(1, self, [Label1.Name, Label2.Name], [DBEditEh1.Name, DBEditEh2.Name])
then Exit;
inherited;
end;
procedure TSupplierEditForm.DBEditEh4EditButtons0Click(Sender: TObject;
var Handled: Boolean);
var
s: string;
begin
inherited;
S:= ShowAreaForm(1, DBEditEh4.Text);
if S <> '' then
begin
FADOQuery.Edit;
FADOQuery.FieldByName('地區編號').AsString := S;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -