unitf3.pas

来自「这是为工商所开发的工商收费簿套打软件,借初学者学习」· PAS 代码 · 共 94 行

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.