editputonrecordfm.pas

来自「一款房产中介软件」· PAS 代码 · 共 105 行

Unit EditPutOnRecordFM;

Interface

Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls, StdCtrls, DBCtrls, DBCtrlsEh, Mask;

Type
   TfrmEditPutOnRecord = Class(TForm)
      LbButton1: TButton;
      LbButton2: TButton;
      AALabel1: TLabel;
      DBText1: TDBText;
      AALabel2: TLabel;
      DBText2: TDBText;
      Bevel1: TBevel;
      AALabel3: TLabel;
      AALabel4: TLabel;
      DBEdit1: TDBEdit;
      AALabel9: TLabel;
      AALabel5: TLabel;
      DBEdit2: TDBEdit;
      AALabel6: TLabel;
      AALabel7: TLabel;
      DBNumberEditEh1: TDBNumberEditEh;
      AALabel8: TLabel;
      AALabel10: TLabel;
      DBNumberEditEh2: TDBNumberEditEh;
      AALabel11: TLabel;
      AALabel12: TLabel;
      AALabel13: TLabel;
      AALabel14: TLabel;
      DBEdit3: TDBEdit;
      AALabel15: TLabel;
      AALabel16: TLabel;
      DBEdit4: TDBEdit;
      AALabel17: TLabel;
      AALabel18: TLabel;
      DBEdit5: TDBEdit;
      AALabel19: TLabel;
      AALabel20: TLabel;
      DBEdit6: TDBEdit;
      AALabel29: TLabel;
      AALabel30: TLabel;
      DBMemo1: TDBMemo;
      AALabel21: TLabel;
      AALabel22: TLabel;
      DBMemo2: TDBMemo;
      Bevel2: TBevel;
      AALabel23: TLabel;
      AALabel24: TLabel;
      DBMemo3: TDBMemo;
      AALabel25: TLabel;
      AALabel26: TLabel;
      DBMemo4: TDBMemo;
      AALabel27: TLabel;
      AALabel28: TLabel;
      DBMemo5: TDBMemo;
      AALabel31: TLabel;
      DBText3: TDBText;
      AALabel32: TLabel;
      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
   frmEditPutOnRecord: TfrmEditPutOnRecord;

Implementation
Uses MainDM, ViewRutOnRecordFM;
{$R *.dfm}

Procedure TfrmEditPutOnRecord.FormClose(Sender: TObject;
   Var Action: TCloseAction);
Begin
   Action := cafree;
   frmEditPutOnRecord := Nil;
End;

Procedure TfrmEditPutOnRecord.LbButton1Click(Sender: TObject);
Begin
   frmViewRutOnRecord.ADOQuery3.Cancel;
   Close;
End;

Procedure TfrmEditPutOnRecord.LbButton2Click(Sender: TObject);
Begin
   frmViewRutOnRecord.ADOQuery3.fieldbyname('公司编号').AsString :=
      DBText1.Caption;
   frmViewRutOnRecord.ADOQuery3.fieldbyname('项目编号').AsString :=
      DBText3.Caption;
   frmViewRutOnRecord.ADOQuery3.post;
   Close;
End;

End.