account.~pas

来自「MU仓库编辑器 （转发）」· ~PAS 代码 · 共 39 行

unit account;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, Grids, DBGrids, DBCtrls, ExtCtrls;

type
  TfrmAccount = class(TForm)
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAccount: TfrmAccount;

implementation

{$R *.dfm}

procedure TfrmAccount.FormCreate(Sender: TObject);
begin
 adotable1.ConnectionString:='Provider=MSDASQL.1;Password=thdzlqhem;Persist Security Info=True;User ID=admin;Data Source=MuOnline;Initial Catalog=MuOnline';
 adotable1.TableName:='warehouse';
 adotable1.Active:=true;
end;

end.