mddata.pas

来自「DELPHI 编写的生产企业管理软件 毛织管理器」· PAS 代码 · 共 42 行

unit mddata;

interface

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

type
  TDataModule2 = class(TDataModule)
    scdata: TDatabase;
    gsschqy: TQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin

  gsschqy.SQL.Add('select gsnm from company');
  gsschqy.Open;
  company := gsschqy.fieldbyname('gsnm').asstring;
  gsschqy.Close;
end;

procedure TDataModule2.DataModuleDestroy(Sender: TObject);
begin
 scdata.Connected := false;
end;

end.