unit2~1.~pa

自动催费.能够应用在很多领域,如果需要请和我联系,

unit Unit2;

interface

uses
  SysUtils, Windows, Classes, Graphics, Controls,
  Forms, Dialogs, DB, DBTables;

type
  TDataModule2 = class(TDataModule)
    Table1USER_PH: TStringField;
    Table1USER_MO: TFloatField;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure DataModuleCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  DataModule2: TDataModule2;

implementation

{$R *.DFM}

procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
  Table1.Open;
end;

end.