?? editputonrecordunit.pas
字號:
Unit EditPutOnRecordUnit;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, DBCtrls, AAFont, AACtrls, LbButton,
DBCtrlsEh, Mask;
Type
TEditPutOnRecordForm = Class(TForm)
LbButton1: TLbButton;
LbButton2: TLbButton;
AALabel1: TAALabel;
DBText1: TDBText;
AALabel2: TAALabel;
DBText2: TDBText;
Bevel1: TBevel;
AALabel3: TAALabel;
AALabel4: TAALabel;
DBEdit1: TDBEdit;
AALabel9: TAALabel;
AALabel5: TAALabel;
DBEdit2: TDBEdit;
AALabel6: TAALabel;
AALabel7: TAALabel;
DBNumberEditEh1: TDBNumberEditEh;
AALabel8: TAALabel;
AALabel10: TAALabel;
DBNumberEditEh2: TDBNumberEditEh;
AALabel11: TAALabel;
AALabel12: TAALabel;
AALabel13: TAALabel;
AALabel14: TAALabel;
DBEdit3: TDBEdit;
AALabel15: TAALabel;
AALabel16: TAALabel;
DBEdit4: TDBEdit;
AALabel17: TAALabel;
AALabel18: TAALabel;
DBEdit5: TDBEdit;
AALabel19: TAALabel;
AALabel20: TAALabel;
DBEdit6: TDBEdit;
AALabel29: TAALabel;
AALabel30: TAALabel;
DBMemo1: TDBMemo;
AALabel21: TAALabel;
AALabel22: TAALabel;
DBMemo2: TDBMemo;
Bevel2: TBevel;
AALabel23: TAALabel;
AALabel24: TAALabel;
DBMemo3: TDBMemo;
AALabel25: TAALabel;
AALabel26: TAALabel;
DBMemo4: TDBMemo;
AALabel27: TAALabel;
AALabel28: TAALabel;
DBMemo5: TDBMemo;
AALabel31: TAALabel;
DBText3: TDBText;
AALabel32: TAALabel;
DBText4: TDBText;
DBNumberEditEh3: TDBNumberEditEh;
Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
Procedure LbButton1Click(Sender: TObject);
Procedure LbButton2Click(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations }
End;
Var
EditPutOnRecordForm: TEditPutOnRecordForm;
Implementation
Uses DM, ViewRutOnRecordUnit;
{$R *.dfm}
Procedure TEditPutOnRecordForm.FormClose(Sender: TObject;
Var Action: TCloseAction);
Begin
Action := cafree;
EditPutOnRecordForm := Nil;
End;
Procedure TEditPutOnRecordForm.LbButton1Click(Sender: TObject);
Begin
ViewRutOnRecordForm.ADOQuery3.Cancel;
Close;
End;
Procedure TEditPutOnRecordForm.LbButton2Click(Sender: TObject);
Begin
ViewRutOnRecordForm.ADOQuery3.fieldbyname('公司編號').AsString :=
DBText1.Caption;
ViewRutOnRecordForm.ADOQuery3.fieldbyname('項目編號').AsString :=
DBText3.Caption;
ViewRutOnRecordForm.ADOQuery3.post;
Close;
End;
End.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -