Ⅰ 大家好,求助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地址就好。