unit109s.pas

商品房合同套打程序

unit Unit109s;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, DB, ADODB, OleCtnrs, LbSpeedButton, DBCtrlsEh, StdCtrls, Mask,
    DBCtrls;

type
    TForm109s = class(TForm)
        LbSpeedButton1: TLbSpeedButton;
        LbSpeedButton2: TLbSpeedButton;
        OleContainer1: TOleContainer;
        ADOQuery1: TADOQuery;
        DataSource1: TDataSource;
        DBEdit1: TDBEdit;
        DBEdit2: TDBEdit;
        DBEdit3: TDBEdit;
        DBEdit4: TDBEdit;
        DBEdit5: TDBEdit;
        DBEdit6: TDBEdit;
        DBEdit7: TDBEdit;
        DBEditEh1: TDBEditEh;
        LbSpeedButton3: TLbSpeedButton;
        procedure LbSpeedButton1Click(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure FormShow(Sender: TObject);
        procedure LbSpeedButton2Click(Sender: TObject);
        procedure LbSpeedButton3Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

var
    Form109s: TForm109s;

implementation
uses dm, mainUnit;
{$R *.dfm}

procedure TForm109s.LbSpeedButton1Click(Sender: TObject);
begin
    adoquery1.Cancel;
    Close;
end;

procedure TForm109s.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
    form109s := nil;
end;

procedure TForm109s.FormShow(Sender: TObject);
begin
    caption := SID + '===>第九条 出卖人逾期交房的违约责任';
    adoquery1.SQL.Text := sSQL;
   //ShowMessage(Ssql);
    ADOQuery1.Open;
    ADOQuery1.Edit;
end;

procedure TForm109s.LbSpeedButton2Click(Sender: TObject);

begin
 
    Application.ProcessMessages;
    dm.DataModule2.ADOConnection1.BeginTrans;
    try
        ADOQuery1.Post;
        DM.DataModule2.ADOConnection1.CommitTrans;
    except
        DM.DataModule2.ADOConnection1.RollbackTrans;
    end;
    Close;

end;

procedure TForm109s.LbSpeedButton3Click(Sender: TObject);
var
    I: Integer;
begin
    for i := 0 to FORM109S.ControlCount - 1 do begin
        if Form109s.Controls[i] is TDBEditEH then
            TDBEDITEH(FORM109S.Controls[I]).Text := '';

        if FORM109S.Controls[i] is TDBEDIT then
            TDBEDIT(FORM109S.Controls[I]).Text := '';
    end;
 { DBEdit1.Text :='1';
  DBEdit2.Text :='九十';
  DBEdit3.Text :='壹点伍';
  DBEdit4.Text :='九十';
  DBEdit6.Text :='1.5';
  DBEdit7.Text :='贰';}
end;

end.