edtpayeeunit.~pas

来自「工商收费系统,主要是管理非税收收入的费用的管理」· ~PAS 代码 · 共 54 行

unit EdtPayeeUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ConEdtUnit, Mask, DBCtrls, StdCtrls, DB, ADODB, ExtCtrls,
  dxCntner, dxExEdtr, dxEdLib, Buttons, ToolWin, ComCtrls;

type
  TPayeeEdtFrm = class(TConEdtFrm)
    lblPayee: TLabel;
    dbedtName: TDBEdit;
    lblDepartment: TLabel;
    lblNote: TLabel;
    dbedtMemo: TDBEdit;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    DBLookupComboBox1: TDBLookupComboBox;
    DataSource2: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PayeeEdtFrm: TPayeeEdtFrm;

implementation

{$R *.dfm}

procedure TPayeeEdtFrm.FormCreate(Sender: TObject);
begin
  inherited;
  if adoConnMain.Connected then
    ADODataSet1.Active:=true;
end;

procedure TPayeeEdtFrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  if adoConnMain.Connected then
  ADODataSet1.Active:=false;
end;

end.