用BDE连接MSSQL怎么用NT认证方式?另外,如果用sa,我的MSSQL的sa密码非空,用BDE怎么连接MSSQL呢?急,高分答谢!
解决方案 »
- 简单问题!非常简单!
- 如何把控件的Font属性存到数据库中,以后又从数据库中将其读取,并赋值给控件的Font属性?
- delphi中如何获取sqlserver数据库的表结构,包括列名,字段类型,长度等。。
- TabSheet作为parent的Frame组件,为什么会有这样的问题呢?
- 如何区分子窗体,并给子窗体赋值,高手请进。
- 两个问题。1是关于sql server中的表导出为txt文件的方法,2是查询一段日期内的sql语句(无未结帖记录
- Delphi中如何实现托盘图标
- (sender:Tobject)是什么意思?
- 希望一个DBGrid的某列显示为一个下拉菜单并显示另一个表里面的数据让用户输入的时候选择。怎么做那?
- 怎样隐藏任务切换区的应用程序按钮?
- 我做了个程序,但想让这个程序最大化!(就是要全屏显示,连开始菜单也覆盖掉,也就是真正的全屏),该怎么做??
- 请教一个很简单的问题:关于查询数据,adoconnection和adoquery.
新建一个 MSSQL 连接,USER NAME中填写连接数据库的用户名称,SERVER NAME中填写本机名称,DATABASE NAME中填写数据库名称。
如果是本地数据库,HOST NAME不要填写,如果不是本地数据库要在HOST NAME中填写连接的服务器名称,然后在SQLQRYMODE中选择SERVER。
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, Buttons, Provider, inifiles,
DBClient, DBLocal, DBLocalB;type
TForm1 = class(TForm)
Table1: TTable;
Query1: TQuery;
Database1: TDatabase;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
Session1: TSession;
procedure BitBtn1Click(Sender: TObject);
procedure Database1Login(Database: TDatabase; LoginParams: TStrings);
procedure FormCreate(Sender: TObject);
procedure Session1Password(Sender: TObject; var Continue: Boolean);
private
{ Private declarations }
public
{ Public declarations }
Login_username , Login_password ,stationid : string ;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
var
str : string ;
begin
database1.LoginPrompt := false ;
str := 'select shift from image'+formatdatetime('yyyymm',now)+stationid ;
query1.Close ;
query1.sql.Clear ;
query1.SQl.Add(str) ;
query1.Open ;
end;procedure TForm1.Database1Login(Database: TDatabase;
LoginParams: TStrings);
begin
database1.Params.Values['USER NAME'] := Login_username ;
database1.Params.Values['Password'] := Login_password ;
end;procedure TForm1.FormCreate(Sender: TObject);
var
myini : Tinifile ;
begin
myini := Tinifile.Create('.\setup.ini');
stationid := myini.ReadString('application','stationid','0800001') ; Login_username := myini.ReadString('database','username','sa') ;
Login_password := myini.ReadString('database','password','sa') ; database1.Params.Values['USER NAME'] := Login_username ;
database1.Params.Values['Password'] := Login_password ; myini.Free ;
// Session1.Active:=false;
// Session1.AddPassword('sa');
// Session1.Active:=true;
end;procedure TForm1.Session1Password(Sender: TObject; var Continue: Boolean);
begin
// Session1.AddPassword('sa');
end;end.