unitf3.pas

有学习Delphi的套打的朋友

unit UnitF3;

interface

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

type
    TFormTF3 = class(TForm)
        OleContainer1: TOleContainer;
        DBEditEh1: TDBEditEh;
        DBEditEh2: TDBEditEh;
        DBEditEh3: TDBEditEh;
        DBEditEh4: TDBEditEh;
        DBEditEh5: TDBEditEh;
        DBEditEh6: TDBEditEh;
        DBEditEh7: TDBEditEh;
        DBEditEh8: TDBEditEh;
        DBEditEh9: TDBEditEh;
        DBEditEh10: TDBEditEh;
        DataSource1: TDataSource;
        ADOQuery1: TADOQuery;
        LbSpeedButton1: TLbSpeedButton;
        LbSpeedButton2: TLbSpeedButton;
        LbSpeedButton3: TLbSpeedButton;
        procedure LbSpeedButton1Click(Sender: TObject);
        procedure LbSpeedButton3Click(Sender: TObject);
        procedure LbSpeedButton2Click(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure FormShow(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
    end;

var
    FormTF3: TFormTF3;

implementation
uses DM;
{$R *.dfm}

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

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

    end;

end;

procedure TFormTF3.LbSpeedButton2Click(Sender: TObject);

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

end;

procedure TFormTF3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    action := caFree;
    FormTF3 := nil;
end;

procedure TFormTF3.FormShow(Sender: TObject);
begin
    caption := SID + '===>附件3、装饰、设备标准';
    adoquery1.SQL.Text := sSQL;
    ADOQuery1.Open;

end;

end.