Ⅰ 大家好,求助DELPHI +sql2005開發一個報表,如下:
給你一個設計思路吧
var
a1:datatime;
c1:datatime;
d1:datatime;
//這3個用來保存上一個讀到的a,c,d的時間
正常:datatime;
暫停:datatime;
異常:datatime;
//這三個是最後結果,我就用中文做變數名了
建立兩個label窗口,用它們的caption保存上一個代碼和當前代碼
l1.caption表示上一個
l2.caption表示當前的,以下用l1.l2簡寫
begin
a1,c1,d1,正常,暫停,異常 全:=00:00:00
l1,l2全:='';
with adoquary do
begin
sql.clear;
sql.close;
sql.add(select * from 你那張表)
sql open
while not eof do
begin
l1:=l2
id:=fieldbyname(ID).dastring;
代碼:=(省略);
時間:=(省略);
l2:=代碼
if 代碼=A then
begin
a1:=時間
if l1='' then begin end
//第一個一定是以A開始
else if l1='C' then
begin
異常:= 異常+a1-c1 //c->a
end;
else if l1='D' then
begin
暫停:= 暫停+a1-d1 //d->a
end;
if 代碼=C then
begin
C1:=時間
if l1='D' then
begin
暫停:= 暫停+c1-d1 //d->c
end;
else if l1='a' then
begin
正常:= 正常+a1-d1 //a->c
end;
if 代碼=d then
begin
d1:=時間
if l1='a' then
begin
正常:=正常+c1-d1 //a->d
end;
else if l1='c' then
begin
//不統計 //c->d
end;
end;
end;
end;
實現的前提是你的資料庫無錯,即不會連續出現兩個相同狀態
湊合用吧....雖然方法僵硬了一點.
最近做畢業設計我的delphi水平提高不少......
Ⅱ 建立Delphi與SQL Server 2005資料庫的連接時等了很長時間最終無法響應，為什麼
1.要是本地的話，可能是密碼有錯誤
2.網路的話，看看是不是ip地址沒寫對
3.看看sql服務啟動了沒
4.再不成了換個控制項，加個超時設置
Ⅲ delphi 怎麼調用SQL2005存儲過程
用ADOquery 可以調用
ADOquery1.Add(p_getData :StrName, :StrField, :StrDT1, :StrDT2);
Ⅳ delphi與sql serever2005資料庫的問題
因為你設置了[職工號]為主鍵,當然不能插入重復值了
建議職工號不能由用戶添加,由系統給定
Ⅳ 請問Delphi 如何連接到sql server2005
很久不用Delphi了，我當初用的是Delphi6和7，我記得裡面有一個控制項叫ADOQuery的，還有一個好像是叫ADOConnection的，就是用這個設置連接到SQL就可以了。 和你說一個直接連接的方法，然後在 DBGrid中顯示出來。 首先需要四個控制項，1.ADOConnection，2.ADOQuery，3. DataSource，4,。DBGrid 先設置ADOConnection，（好像是雙擊）設置連接到SQL資料庫， 然後設置ADOQuery，ADOQuery.connection屬性設置為ADOConnection，ADOQuery.SQL屬性設置為一個SQL語句，例如:select * from table。ADOQuery.Active設置為ture. 在然後設置 DataSource DataSet屬性為ADOQuery 最後 DBGrid DataSource屬性設置為DataSource 然後就可以了！如果沒有記錯的話，簡單的連接資料庫就完成了！
Ⅵ delphi 下sql sever2005的資料庫備份與恢復
用Sql。
備份： AdoQuery1.SQL.Text := 'backup database testDFW to disk = ' + '''' + 'e:\backup.dat' + '''';
恢復： AdoQuery1.SQL.Text := 'restore database testDFW from disk =' + '''' + 'e:\backup.dat' + '''';
Ⅶ delphi 如何搜索SQL 2005 的所有伺服器名
//這里貼一個delphi操作xml的例子
uses 這里加入引用: OleServer,ComObj,ExcelXP, Excel2000
procere TForm1.Button1Click(Sender: TObject);
var I,J:longint;
var f:TextFile;
l1,l2:longint;
s1,s2,sql:String;
begin
exc.Workbooks.Open('D:\Pdelphi\Test.XLS');
exc.WorkSheets[1].Activate; //打開xls文件第一頁
for I:=1 to 1024 do //讀1024行
begin
s1:=exc.cells[I,1]; //這是第一行,第1列數據.
s2:=exc.cells[I,2]; //第一樣,第2列
//可以讀入更多列.
l1:=strtoint(s1);
l2:=strtoint(s2);
//讀出數據用資料庫控制項保存到資料庫即可
sql :='insert into table(f1,f2..) values('''+l1+'''....);
adoquery.sql.text:=sql;
adoquery.execsql;
end;
end;
Ⅷ delphi以流的形式向sql2005存文件，執行的時候出現錯誤，要怎麼修改
procere TForm36.Button4Click(Sender: TObject);
var
tf:tfilestream;
begin
OpenDialog1.GetNamePath;
datamole4.adoquery1.Close;
datamole4.adoQuery1.SQL.Text := 'select * files where filename = '''' + edit2.Text + '''';
datamole4.ADOQuery1.Open;
if datamole4.ADOQuery1.IsEmpty then
datamole4.ADOQuery1.Append
else
datamole4.ADOQuery1.Edit;
datamole4.ADOQuery1.FieldByName('FileName').AsString := edit2.Text;
tblobfield(datamole4.adoquery1.FieldByName('context')).loadfromFile(edit2.Text);
datamole4.adoquery1.Post;
//緩存模式，加提交數據
// datamole4.ADOQuery1.UpdateBatch;
end;
Ⅸ 用Delphi+SQL Server2005做個管理軟體，不同的客戶的通過互聯網訪問資料庫
1、可以使用花生殼，只要在服器上運行花生殼，伺服器直接接入了互聯網，且伺服器上相關的防火牆要開放SQL的服務埠（一般是1433）即可。
2、Delphi+SQL Server2005一般只能做二層CS架構的應用，我不懂得你說的「三層結構」是什麼意思。
三層架構的理念是這樣的： 數據伺服器——應用伺服器——用戶端。
它的特點是用戶端不與數據伺服器直接接觸，這樣，在理論上，用戶端也就不可能非法進入數據伺服器進行破壞性操作，這在安全性上是非常重要的。
CS架構在安全性在存在先天的問題，一般只適合於對安全要求不是太高的單位內部的數據管理。
3、正確申請、設定好花生殼後，在你的客戶端的伺服器聯接字串中，把你的動態域名填入，代替原來的IP地址就好。