mddata.pas.bak

实用的毛织生产管理系统

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.