unit100s.pas

商品房合同套打程序

unit Unit100s;

interface

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

type
    TForm100s = class(TForm)
        ADOQuery1: TADOQuery;
        DataSource1: TDataSource;
        ScrollBox1: TScrollBox;
        DBEdit1: TDBEdit;
        DBEdit2: TDBEdit;
        DBEdit3: TDBEdit;
        DBEdit4: TDBEdit;
        DBEdit5: TDBEdit;
        DBEdit6: TDBEdit;
        DBEdit7: TDBEdit;
        DBEdit8: TDBEdit;
        DBEdit9: TDBEdit;
        DBEdit10: TDBEdit;
        DBEdit11: TDBEdit;
        DBEdit12: TDBEdit;
        DBEdit13: TDBEdit;
        DBEdit14: TDBEdit;
        DBEdit15: TDBEdit;
        DBEdit16: TDBEdit;
        DBEdit17: TDBEdit;
        DBEdit18: TDBEdit;
        DBEdit19: TDBEdit;
        DBEdit20: TDBEdit;
        DBEdit21: TDBEdit;
        DBEdit22: TDBEdit;
        DBEdit23: TDBEdit;
        DBEdit24: TDBEdit;
        DBEdit25: TDBEdit;
        DBEdit26: TDBEdit;
        DBEdit27: TDBEdit;
        DBEdit28: TDBEdit;
        DBEdit29: TDBEdit;
        OleContainer1: TOleContainer;
        DBEdit30: TDBEdit;
        DBEdit31: TDBEdit;
        DBEdit32: TDBEdit;
        LbSpeedButton1: TLbSpeedButton;
        LbSpeedButton2: TLbSpeedButton;
        OleContainer2: TOleContainer;
        DBEdit33: TDBEdit;
        DBEdit34: TDBEdit;
        DBEdit35: TDBEdit;
        DBEdit36: TDBEdit;
        DBEdit37: TDBEdit;
        DBEdit38: TDBEdit;
        DBEdit39: TDBEdit;
        DBEdit40: TDBEdit;
        LbSpeedButton3: TLbSpeedButton;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure LbSpeedButton1Click(Sender: TObject);
        procedure LbSpeedButton2Click(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure DBEdit2Enter(Sender: TObject);
        procedure LbSpeedButton3Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }

    end;

var
    Form100s: TForm100s;

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

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

procedure TForm100s.LbSpeedButton1Click(Sender: TObject);
begin
    ADOQuery1.Cancel;
    Close;
end;

procedure TForm100s.LbSpeedButton2Click(Sender: TObject);
 
begin
 
    DBEdit1.Text := sid;
    Application.ProcessMessages;
    dm.DataModule2.ADOConnection1.BeginTrans;
    try
        ADOQuery1.Post;
        DM.DataModule2.ADOConnection1.CommitTrans;
    except
        DM.DataModule2.ADOConnection1.RollbackTrans;
    end;
    Close;
end;

procedure TForm100s.FormShow(Sender: TObject);
begin
    caption := SID + '===>合同双方当事人';
    adoquery1.SQL.Text := sSQL;
  //ShowMessage(Ssql);
    ADOQuery1.Open;
    ADOQuery1.Edit;
end;

procedure TForm100s.DBEdit2Enter(Sender: TObject);
begin
    tdbedit(Sender).SelectAll;
end;

procedure TForm100s.LbSpeedButton3Click(Sender: TObject);
var
    I: Integer;
begin
    for i := 0 to FORM100S.ControlCount - 1 do begin
        if FORM100S.Controls[i] is TDBEDIT then
            TDBEDIT(FORM100S.Controls[I]).Text := '';
    end;
    for i := 0 to ScrollBox1.ControlCount - 1 do begin
        if ScrollBox1.Controls[i] is TDBEDIT then
            TDBEDIT(ScrollBox1.Controls[I]).Text := '';
    end;
 
end;

end.