求代码示例(200分)

  • 主题发起人 mycreatedream
  • 开始时间
M

mycreatedream

Unregistered / Unconfirmed
GUEST, unregistred user!
本人初学Delphi,想做一个数据库应用程序,准备使用access+ado+dbgrid,需要对记录进行:
1、插入(在已有的记录指定位置插入)
2、移动(将指定记录在原来的位置上前移、后移)
3、删除(删除指定的记录)
4、数据存盘后,重新读出来再显示时要恢复成存盘前的顺序

如果各位有相同的经验,能否给出示例代码?数据库字段可以随意设置。
 
看看 dlephi 的帮助文档中的例子和Demo
 
http://www.fa.fj.cn/fjwdweb/download/default.asp?page=3
 

http://www.playicq.com/
http://service.lonetear.com/delphi/
去下吧,里面列子多的很;
 
下载地址: http://wolfsoft.nugoo.com/example/file/dbtest.exe
简介: 数据库示例程序,保存到文档,选择指定的列,程序比较简单。
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, StdCtrls, Grids, DBGrids;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
DataSource1: TDataSource;
ADOTable1: TADOTable;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Insert;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Next;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOTable1.Delete;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ADOTable1.Post;
end;

end.
 
各位,基本的sql语句我还是会的,我只是不知道怎样才能让用户改变数据的显示顺序
 
to jsxjd:
什么意思
 
大家注意,我现在最主要的问题是1和2,请帮帮我
 
//1、插入(在已有的记录指定位置插入)
//2、移动(将指定记录在原来的位置上前移、后移)
如果表中有自动增加的字段,就难楼!
一般都是新加记录或修改记录;
 
难道没有人愿意帮帮我?
 
没有人做过这样的程序吗,请帮帮我!!!
 
简单方法:
建索引,移动时动态改变索引字段的值,插入时根据插入点计算出索引字段的值
 
哈哈
老兄是不是想一个类似EXC之类我东西呀。
 
to langzi_zhang:
什么是EXC ?
 
顶部