目前分類:Delphi (71)

瀏覽方式: 標題列表 簡短摘要
//聲明連接字串
Const
SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

第一節 BDE、ADO、InterBase和dbExpress

Delphi中處理資料庫主要有兩種方法,也就是BDE、ADO,從Delphi6.0開始還加入了一種dbExpress方法。 另外,Delphi還提供了專門處理Borland 公司自己的資料庫產品InterBase 資料庫的專門的方法。BDE(Borland Databas Engine), 是Delphi中最古老的技術,從delphi 2.0加入BDE 技術以後,一直是Delphi處理資料庫的事實上的標

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

首先:添加ADOQuery1控制項(用於執行sql語句)

其次:執行sql語句

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

ado.SQL.Clear; //清除sql語句

ado.SQL.Text:='insert into userinfo(資料庫欄位值) values(A)';
ado.Parameters.ParamByName('A').Value:=trim(edit1.Text);

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

repeat
combobox1.Items.Add(ado.FieldValues['ID']);
ado.Next;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

ado.Close;
ado.SQL.Clear;
ado.SQL.Add('select * from userinfo where ID=:A');

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

ado.Close;
ado.SQL.Clear;
ado.SQL.Add('update userinfo set 姓名=:A,性別=:B,年齡=:C,學歷=:D where ID=:E');

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

unit Login;

interface

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

MyConn.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;Initial Catalog=;Data Source=127.0.0.1;Password=123;



shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

unit frmLogin;
interface
uses

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

var
i:integer;
s:string;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

procedure savelog(str:string);//記錄日誌檔
var
directorypath,logfilename:string;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

 
TStrings是一個抽象類別,在實際開發中,是除了基本類型外,應用得最多的。
常規的用法大家都知道,現在來討論它的一些高級的用法。

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

在User里加
ActiveX;
uses

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

ShellExecute(Handle,'open',PChar('command.com'),
PChar('/c '+ExtractFilePath(ParamStr(0))+'unrar x '+
fabsdir+fupdatecab+' '+fab
 

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

function GetShellFolders(strDir: string): string;
const
regPath = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

procedure TForm1.btn1Click(Sender: TObject);
var
itest:Int64;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

AdvSpreadGrid_DIM.Options:=AdvSpreadGrid_DIM.Options-[goEditing];

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

function IsNumberic(Vaule:String):Boolean; //判斷Vaule是不是數位
var
i:integer;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

在Edit的OnKeyPress事件中
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

1 234