我建立了一个简单的DB,名字叫123.DB
我放了几个数据控件到窗体上,现在可以在DBGRID中显示数据库中的内容了我查了帮助,看得头大,手头没什么书,烦死,所以请各位高手给我个例子让我学学功能不需要很多,也就是查询,添加,删除等等简单的操作,希望这种简单的功能齐全点。我不熟悉DELPHI的编程风格,请给出简单的注释(我一般用VB,工作需要才学DELPHI)谢谢了
我放了几个数据控件到窗体上,现在可以在DBGRID中显示数据库中的内容了我查了帮助,看得头大,手头没什么书,烦死,所以请各位高手给我个例子让我学学功能不需要很多,也就是查询,添加,删除等等简单的操作,希望这种简单的功能齐全点。我不熟悉DELPHI的编程风格,请给出简单的注释(我一般用VB,工作需要才学DELPHI)谢谢了
在delphi\demos目录下
2、《Delphi 5 开发人员指南》 Steve Teixeira & Xavier Pacheco著 1263页 138元 机械工业出版社
3、《Delphi COM 深入编程》 Eric Harmon著 473页 48元 机械工业出版社
4、《Delphi DirectX图形与游戏程序设计》 John Ayres著 445页 45元 电子科技大学出版社
5、《Delphi 4 编程技术内幕》 Charlie Calvert著 985页 110元 机械工业出版社
6、《Delphi/Klyix 数据库开发》 Eric Harmon著 277页 29元 机械工业出版社
7、《Delphi 5.x 分布式多层应用》(三个系列) 李维著 机械工业出版社 (三本全买的话至少要260元)8、《Delphi 6/Klyix 2 Soap/Web Service 程序设计篇》 李维著 404页 65元 机械工业出版社
9、《Delphi 深度探索》 陈省著 481页 49.8元 华中科技大学出版社
10、《Delphi 深度历险》 陈宽达著 422页 47元 科学出版社
11、《Delphi 5.X ADO/MTS/COM+高级程序设计篇》 李维著 600页 机械工业出版社(90RMB)DELPHI 5 企业级解决方案及应用剖析1.《知识发现》 史忠植著 清华大学出版社 2002年1月第一版
ISBN:7-302-05061-9/TP.2961 定价:38元。
这本书在www.hauchu.com.cn上有的卖
2.《数据挖掘——构筑企业竞争优势》 (美)R.Groth
西安交通大学出版社 定价: 20元 (带一光盘,内有数据挖掘软件)
这本书在www.china-pub.com上有的卖3.《Rough集理论与知识获取》 王国胤 西安交通大学出版社
ISBN 7-5605-1409-X/TP.268 2001年5月第一版
定价:15
这本书在www.huachu.com.cn上有的卖的。
unit log;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Mask, StdCtrls, DB, DBTables;type
Tw_log = class(TForm)
Edit1: TEdit;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
MaskEdit1: TMaskEdit;
Database1: TDatabase;
Table1: TTable;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;var
w_log: Tw_log;implementationuses main;{$R *.dfm}procedure Tw_log.Button3Click(Sender: TObject);
beginw_log.hide;
w_main.Enabled:=true;
end;procedure Tw_log.Button2Click(Sender: TObject);
begin
edit1.Text:='';
maskedit1.Text:='';
edit1.SetFocus;
end;procedure Tw_log.Button1Click(Sender: TObject);
begin
try
Database1.Connected:=true;
table1.Filter:='user_name='''+edit1.Text+'''';
table1.Filtered:=true;
table1.Open;
except
application.MessageBox('请与系统管理员联系。','数据库连接错误!',mb_ok);
application.terminate;
end;
if table1.RecordCount=1 then
begin
if table1['user_password']=maskedit1.Text then
begin ////填写权限代码 w_log.Hide;
w_main.enabled:=true;
w_main.Caption:='中基资源管理系统 -用户:'+w_log.Edit1.Text;
w_main.SetFocus;
w_main.N33.Enabled:=true; //显示修改密码窗口
w_main.N2.enabled:=false; //不可重新登录
w_main.statusbar1.Panels[1].Text:='已连接数据库';
w_main.statusbar1.Panels[0].Text:='准备'; end
else
application.MessageBox('请确认您输入的密码','密码不匹配',mb_ok);
end
else
application.MessageBox('请确认用户名是否正确!','无此用户',mb_ok); end;
// if edit1.Text='' then
// begin
//edit1.SetFocus;
//showmessage('请输入您的用户名');
//end
//else
//begin
//query1.Close;
//query1.SQL.Add('select user_id,user_name,user_password,role_id from base_user');
//query1.SQL.Add('where user_name='+edit1.Text);
//query1.SQL.Add('and user_password='''+maskedit1.Text+'''');
//query1.open; //if (query1.RecordCount<>1) or (maskedit1.text<>query1.FieldValues['user_password']) then
//begin
// showmessage('口令不对,请检查。');
// edit1.SetFocus;
// end
// else
// begin
// w_main.enabled:=true; //w_main open
// close; // close w_log
//end;
//end;procedure Tw_log.FormShow(Sender: TObject);
begin
edit1.Text:='guester';
maskedit1.Text:='guest';
end;procedure Tw_log.FormClose(Sender: TObject; var Action: TCloseAction);
begin
w_log.Hide;
w_main.Enabled:=true;
end;end.