editputonrecordunit.pas

来自「安邦售楼系统单机版 (DELPHI格式源码),比较实用」· PAS 代码 · 共 106 行

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.