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
相关文档：
delphi TStringList的用法
TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。
常规的用法大家都知道，现在来讨论它的一些高级的用法。
先把要讨论的几个属性列出来：
1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValuefromIndex
先看第一个：CommaText。怎么 ......
DirectoryExists('C:\WINDOWS'):Boolean;检测文件夹是否存在！
FileExists('c:\Dir.txt'):Boolean;检测文件是否存在！
EDIT组件
OnChange 当编辑框中的内容发生变化时触发该事件
OnKeyPress 当按下一个按键时，触发该事件
OnEnter 编辑框获得输入焦点时，触发该事件
MEMO组合
WordWrap 用于设定Momo组件是否具有自� ......
重载 CreateParams 方法即可
声明：
procedure CreateParams(var Params: TCreateParams);override;
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WndParent := 0;
end; ......
1，规范简介
本规范主要规定Delphi源程序在书写过程中所应遵循的规则及注意事项。编写该规范的目的是使公司软件开发人员的源代码书写习惯保持一致。这样做可以使每一个组员都可以理解其它组员的代码，以便于源代码的二次开发记忆系统的维护。
2，一般格式规范
2.1 缩进
缩进就是在当源程序的级改变时为增� ......
Delphi7 调用 C#的Webservice 不能传入参数
解决办法：
在Delphi导入WSDL后生成的单元的最后一行，即initialization里的初始化端口的代码中加入代码
InvRegistry.RegisterInvokeOptions(TypeInfo(接口名), ioDocument);
即可
......
