data.pas

进销存以及BOM管理,SQl Server数据库程序

unit Data;

interface

uses
  SysUtils, Classes, DB, ADODB, Dialogs, Forms;

type
  TDataM = class(TDataModule)
    AdoConnection: TADOConnection;
    adoqlogin: TADOQuery;
    adoqmaster: TADOQuery;
    adoqmasteraccountname: TWideStringField;
    adoqmasterdatabasename: TWideStringField;
    adoqmasterremark: TWideStringField;
    adoqmasters: TADOQuery;
    adoqmasterfid: TIntegerField;
    adoqcomponey: TADOQuery;
    adoqcomponeyfcompanybname: TWideStringField;
    adoqcomponeyfcompanyname: TWideStringField;
    adoqcomponeyftel: TWideStringField;
    adoqcomponeyfaddress: TWideStringField;
    adoqcomponeyftaxno: TWideStringField;
    adoqcomponeyfbank: TWideStringField;
    adoqcomponeyfbankno: TWideStringField;
    adoqcomponeyfpresident: TWideStringField;
    adoqcomponeyffax: TWideStringField;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure adoqmasterAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataM: TDataM;

implementation

uses Global, DatabaseLink;

{$R *.dfm}

procedure TDataM.DataModuleCreate(Sender: TObject);
begin
  try
    Adoconnection.Connected:=False;
    Adoconnection.KeepConnection:=False;
    Adoconnection.LoginPrompt:=False;
    Adoconnection.ConnectionString:=Trim(createadoconn('Master'));
    Adoconnection.Connected:=True;
  except
     frmdatabaseLink:=TfrmdatabaseLink.Create(application);
     frmdatabaseLink.ShowModal;
  end;
end;

procedure TDataM.DataModuleDestroy(Sender: TObject);
begin
    Adoconnection.Connected:=False;
    Adoconnection.KeepConnection:=False;
    Adoconnection.LoginPrompt:=False;
    Adoconnection.ConnectionString:='';
end;

procedure TDataM.adoqmasterAfterScroll(DataSet: TDataSet);
begin
  if (Dataset.Active) and (Dataset.RecordCount > 0) then
    AccountName:=Dataset.FieldValues['DataBasename']
    else
    AccountName:='';
end;

end.