DELPHI 查找，增加，修改，删除
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
Button4: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
s:string;
begin
s:='select id,sj from fsjl';
form1.ADOQuery1.Close;
form1.ADOQuery1.Sql.Clear;
form1.ADOQuery1.SQL.Add(s);
form1.ADOQuery1.open;
end;
procedure TForm1.Button1Click(Sender: TObject); //add
var
s:string;
begin
s:='insert into fsjl (sj) values ('''+Edit1.Text+''')';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:=s;
ADOQuery1.ExecSQL;
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from fsjl');
Form1.ADOQuery1.Open;
end;
procedure TForm1.Button2Click(Sender: TObject); //edit
var
s:string;
begin
s:='update fsjl set sj ='''+Edit1.Text+''' where id ='''+Form1.ADOQuery1.fieldbyname('id').asstring+'''';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:=s;
ADOQuery1.ExecSQL;
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('selec
相关文档：
开发者都希望自己的程序有一个友好的界面，此时，一个生动活泼、有表现力的光标就必不可少了。Windows 缺省提供22种标准光标供在程序中调用，但对一个求新求变的程序员来说，标准光标就不能满足要求了，需要使用自己的光标，那么，在程序中怎样使用自己的光标呢？ ●光标资源的获得 要使用自定义光标，必须先得到这 ......
VC声明
HANDLE CreateMutex(
LPSECURITY_ATTRIBUTES lpMutexAttributes, // SD
BOOL bInitialOwner, // initial owner
LPCTSTR lpName // object name
);
delphi声明：
function CreateMutex(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PChar): THandle; stdcall;
创� ......
这个本来我我在DELPHI盒子看到的，后来我对其作了一点修改，这里上全部代码，可以直接用
首先有两个自定的转换函数：
function myStrToHex(s:string):string; //字串转16进制
var
TmpStr:string;
i:integer;
begin
TmpStr:='';
for i:=1 to Length(s)do
TmpStr:=TmpStr+IntToHex(ord(s[i]),2);
Res ......
目前开发棋牌类游戏的公司和个人很多。但是对于很多开发者来说，开发一款具有可扩展、稳定的棋牌类游戏还是具有一定的难度。这次我就以我开发棋牌类游戏为例，讲述如何使用DELPHI来开发棋牌类游戏。希望我的经验可以对游戏开发爱好者起到抛砖引玉的作用。如果您对我基础篇中涉及到的内容非常熟悉，可以直接跳过进入设计篇。 ......
