初学者寻求delphi+sql数据库例子,大家帮忙!! 各位可否提供delphi+sql数据库操作的例子,简单的也行。小弟刚学。不知如何下手? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 很难找到delphi+sql的例子,我有的都是其它数据库的例子。谁有?可否提供? ADOCONNECTION ADOTABLE DATASOURCEDBGIRDDBNavigator1ADOCONNCETION连接到你的数据库中然后ADOTABLE的CONNECTION属性连到ADOCONNECITON上 连上TABLENAME属性名的表名DATASOURCE的DATASET属性连到ADOTABLE上DGGRID的DATASOURCE属性连在DATASOURCE上DBNAVIGATOR1连到DATASOURCE上就可以了 使用 ADOConnection,ADODataSet,DataSource设置 ADOConnection 的 ConnectionString,使它连上SQL 數計庫設置 ADODataSet 的 Connection 為 ADOConnection 的 name, CommandText 為 SQL 语言。設置 DataSource 的 DataSet 為 ADODataSet 的 name. 这是一个学生信息管理的实例,希望对你有所帮助!!!unit u_main;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables, ComCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, ExtCtrls;type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; TabSheet4: TTabSheet; TabSheet5: TTabSheet; Database1: TDatabase; T_student: TTable; DS_student: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Label1: TLabel; i_stud_id_1: TMaskEdit; GroupBox1: TGroupBox; Label2: TLabel; Label3: TLabel; Label4: TLabel; i_change: TRadioGroup; i_descrip_1: TMemo; Label5: TLabel; Button1: TButton; Button2: TButton; T_stud_info_1: TTable; DS_stud_info_1: TDataSource; DBText1: TDBText; DBText2: TDBText; DBText3: TDBText; T_class_info_1: TTable; DS_class_info_1: TDataSource; DS_depart_info_1: TDataSource; T_depart_info_1: TTable; T_counter_c: TTable; T_change: TTable; Label6: TLabel; i_stud_id_2: TMaskEdit; GroupBox2: TGroupBox; Label7: TLabel; Label8: TLabel; Label9: TLabel; DBText4: TDBText; DBText5: TDBText; DBText6: TDBText; i_reward_level: TRadioGroup; Label10: TLabel; i_descrip_2: TMemo; Button3: TButton; Button4: TButton; Label11: TLabel; i_stud_id_3: TMaskEdit; GroupBox3: TGroupBox; Label12: TLabel; Label13: TLabel; Label14: TLabel; DBText7: TDBText; DBText8: TDBText; DBText9: TDBText; i_punish_level: TRadioGroup; Label15: TLabel; i_descrip_3: TMemo; Button5: TButton; Button6: TButton; T_counter_r: TTable; T_reward: TTable; T_counter_p: TTable; T_punish: TTable; Label16: TLabel; i_stud_id_4: TMaskEdit; GroupBox4: TGroupBox; Label17: TLabel; Label18: TLabel; Label19: TLabel; Label20: TLabel; Label21: TLabel; Label22: TLabel; Label23: TLabel; Label24: TLabel; Label25: TLabel; DBGrid2: TDBGrid; DBGrid3: TDBGrid; DBGrid4: TDBGrid; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; GroupBox5: TGroupBox; DBLookupComboBox1: TDBLookupComboBox; DBLookupComboBox2: TDBLookupComboBox; T_stud_info_4: TTable; DS_stud_info_4: TDataSource; Button7: TButton; Button8: TButton; T_class_info_4: TTable; DS_class_info_4: TDataSource; T_depart_info_4: TTable; DS_depart_info_4: TDataSource; T_change_4: TTable; DS_change_4: TDataSource; T_reward_4: TTable; DS_reward_4: TDataSource; T_punish_4: TTable; DS_punish_4: TDataSource; GroupBox6: TGroupBox; GroupBox7: TGroupBox; Label26: TLabel; Label27: TLabel; DBLookupComboBox3: TDBLookupComboBox; DBMemo1: TDBMemo; Button9: TButton; Button10: TButton; T_change_code_4: TTable; DS_change_code_4: TDataSource; Label28: TLabel; DBLookupComboBox4: TDBLookupComboBox; Label29: TLabel; DBMemo2: TDBMemo; Button11: TButton; Button12: TButton; T_reward_level_4: TTable; DS_reward_level_4: TDataSource; Label30: TLabel; Label31: TLabel; DBRadioGroup1: TDBRadioGroup; DBMemo3: TDBMemo; DBLookupComboBox5: TDBLookupComboBox; Button13: TButton; Button14: TButton; T_punish_level_4: TTable; DS_punish_level_4: TDataSource; DBRadioGroup2: TDBRadioGroup; procedure FormCreate(Sender: TObject); procedure i_stud_id_1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure i_stud_id_2Change(Sender: TObject); procedure i_stud_id_3Change(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure i_stud_id_4Change(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button14Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM} 续!!procedure TForm1.FormCreate(Sender: TObject);begin// try Database1.Open;// except// Application.MessageBox('请确认用户名密码!','数据库连接错误',MB_OK);// Application.Terminate;// end; if not Database1.Connected then Application.Terminate; T_student.Open; DBGrid1.Columns[0].Width:=64; DBGrid1.Columns[1].Width:=64; DBGrid1.Columns[2].Width:=64; DBGrid1.Columns[3].Width:=64; DBGrid1.Columns[4].Width:=30; DBGrid1.Columns[5].Width:=64; DBGrid1.Columns[6].Width:=100;end;procedure TForm1.i_stud_id_1Change(Sender: TObject);begin T_stud_info_1.Filter:='ID='''+i_stud_id_1.Text+''''; T_stud_info_1.Filtered:=True; T_stud_info_1.Open; T_class_info_1.Open; T_depart_info_1.Open;end;procedure TForm1.Button1Click(Sender: TObject);begin i_stud_id_1.Text:=''; i_change.ItemIndex:=0; i_descrip_1.Clear;end;procedure TForm1.Button2Click(Sender: TObject);var counter:integer;begin T_stud_info_1.Open; if T_stud_info_1.RecordCount>0 then //确认学号是否存在 begin T_counter_c.Open; counter:=T_counter_c['COUNTER_VALUE']; Inc(counter); //累加学籍变更计数器 T_counter_c.Edit; T_counter_c['COUNTER_VALUE']:=counter; T_counter_c.Post; T_change.Open; //T_change.Edit; T_change.AppendRecord([counter, i_stud_id_1.text, i_change.ItemIndex, Now, i_descrip_1.text]); Button1Click(nil); end else Application.MessageBox('请确认输入的学号是否正确!', '错误', MB_OK);end;procedure TForm1.Button4Click(Sender: TObject);begin i_stud_id_2.Text:=''; i_reward_level.ItemIndex:=0; i_descrip_2.Clear;end;procedure TForm1.Button6Click(Sender: TObject);begin i_stud_id_3.Text:=''; i_punish_level.ItemIndex:=0; i_descrip_3.Clear;end;procedure TForm1.i_stud_id_2Change(Sender: TObject);begin T_stud_info_1.Filter:='ID='''+i_stud_id_2.Text+''''; T_stud_info_1.Filtered:=True; T_stud_info_1.Open; T_class_info_1.Open; T_depart_info_1.Open;end;procedure TForm1.i_stud_id_3Change(Sender: TObject);begin T_stud_info_1.Filter:='ID='''+i_stud_id_3.Text+''''; T_stud_info_1.Filtered:=True; T_stud_info_1.Open; T_class_info_1.Open; T_depart_info_1.Open;end;procedure TForm1.Button3Click(Sender: TObject);var counter:integer;begin T_stud_info_1.Open; if T_stud_info_1.RecordCount>0 then //确认学号是否存在 begin T_counter_r.Open; counter:=T_counter_r['COUNTER_VALUE']; Inc(counter); //累加奖励记录计数器 T_counter_r.Edit; T_counter_r['COUNTER_VALUE']:=counter; T_counter_r.Post; T_reward.Open; //T_change.Edit; T_reward.AppendRecord([counter, i_stud_id_2.text, i_reward_level.ItemIndex, Now, i_descrip_2.text]); Button4Click(nil); end else Application.MessageBox('请确认输入的学号是否正确!', '错误', MB_OK);end;procedure TForm1.Button5Click(Sender: TObject);var counter:integer;begin T_stud_info_1.Open; if T_stud_info_1.RecordCount>0 then //确认学号是否存在 begin T_counter_p.Open; counter:=T_counter_p['COUNTER_VALUE']; Inc(counter); //累加处罚记录计数器 T_counter_p.Edit; T_counter_p['COUNTER_VALUE']:=counter; T_counter_p.Post; T_punish.Open; //T_change.Edit; T_punish.AppendRecord([counter, i_stud_id_3.text, i_punish_level.ItemIndex, Now, True, i_descrip_3.text]); Button6Click(nil); end else Application.MessageBox('请确认输入的学号是否正确!', '错误', MB_OK);end;procedure TForm1.i_stud_id_4Change(Sender: TObject);begin T_stud_info_4.Filter:='ID='''+i_stud_id_4.Text+''''; T_stud_info_4.Filtered:=True; T_stud_info_4.Open; T_class_info_4.Open; T_depart_info_4.Open; T_change_4.Open; T_change_code_4.Open; T_reward_4.Open; T_reward_level_4.Open; T_punish_4.Open; T_punish_level_4.Open;end;procedure TForm1.Button7Click(Sender: TObject);begin T_stud_info_4.Post;end;procedure TForm1.Button8Click(Sender: TObject);begin T_stud_info_4.Cancel;end;procedure TForm1.Button9Click(Sender: TObject);begin T_change_4.Post;end;procedure TForm1.Button10Click(Sender: TObject);begin T_change_4.Cancel;end;procedure TForm1.Button11Click(Sender: TObject);begin T_reward_4.Post;end;procedure TForm1.Button12Click(Sender: TObject);begin T_reward_4.Cancel;end;procedure TForm1.Button13Click(Sender: TObject);begin T_punish_4.Post;end;procedure TForm1.Button14Click(Sender: TObject);begin T_punish.Cancel;end;end.我还有,如果你想要的话,给我邮箱,有时间的话我会发给你!! 我也要[email protected]谢谢了. 你可以到书店去找一本书:《Delphi 5.x ADO_MTS_COM+高级程序设计篇》李维 著相当好的,里面大部分都是你要的东东。用“天网搜索”也可以搜索到。 Indy的Demo的一个问题 一个文件内容处理的问题 问一下DBGridEh中如何将列宽度保存在ini文件或注册表中?? 高手请指教 ehlib安装 delphi+access 用ADO连接,为什么在SQL语句中用SUM()时,执行出错?送分 你是菜鸟吗,试试这道题就知道啦,呵呵.. 简单的数据库问题 combobox中的内容如何显示到Edit中 使用delphi如何实现在窗体按钮上拖动窗体 排序的問題 谁有ACCESS的中英文对照资料,马上给分,在线等待
DBGIRD
DBNavigator1
ADOCONNCETION连接到你的数据库中
然后ADOTABLE的CONNECTION属性连到ADOCONNECITON上 连上TABLENAME属性名的表名
DATASOURCE的DATASET属性连到ADOTABLE上
DGGRID的DATASOURCE属性连在DATASOURCE上
DBNAVIGATOR1连到DATASOURCE上就可以了
设置 ADOConnection 的 ConnectionString,使它连上SQL 數計庫
設置 ADODataSet 的 Connection 為 ADOConnection 的 name,
CommandText 為 SQL 语言。
設置 DataSource 的 DataSet 為 ADODataSet 的 name.
unit u_main;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, ComCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, ExtCtrls;type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
Database1: TDatabase;
T_student: TTable;
DS_student: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Label1: TLabel;
i_stud_id_1: TMaskEdit;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
i_change: TRadioGroup;
i_descrip_1: TMemo;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
T_stud_info_1: TTable;
DS_stud_info_1: TDataSource;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
T_class_info_1: TTable;
DS_class_info_1: TDataSource;
DS_depart_info_1: TDataSource;
T_depart_info_1: TTable;
T_counter_c: TTable;
T_change: TTable;
Label6: TLabel;
i_stud_id_2: TMaskEdit;
GroupBox2: TGroupBox;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
DBText4: TDBText;
DBText5: TDBText;
DBText6: TDBText;
i_reward_level: TRadioGroup;
Label10: TLabel;
i_descrip_2: TMemo;
Button3: TButton;
Button4: TButton;
Label11: TLabel;
i_stud_id_3: TMaskEdit;
GroupBox3: TGroupBox;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
DBText7: TDBText;
DBText8: TDBText;
DBText9: TDBText;
i_punish_level: TRadioGroup;
Label15: TLabel;
i_descrip_3: TMemo;
Button5: TButton;
Button6: TButton;
T_counter_r: TTable;
T_reward: TTable;
T_counter_p: TTable;
T_punish: TTable;
Label16: TLabel;
i_stud_id_4: TMaskEdit;
GroupBox4: TGroupBox;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
DBGrid4: TDBGrid;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
GroupBox5: TGroupBox;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
T_stud_info_4: TTable;
DS_stud_info_4: TDataSource;
Button7: TButton;
Button8: TButton;
T_class_info_4: TTable;
DS_class_info_4: TDataSource;
T_depart_info_4: TTable;
DS_depart_info_4: TDataSource;
T_change_4: TTable;
DS_change_4: TDataSource;
T_reward_4: TTable;
DS_reward_4: TDataSource;
T_punish_4: TTable;
DS_punish_4: TDataSource;
GroupBox6: TGroupBox;
GroupBox7: TGroupBox;
Label26: TLabel;
Label27: TLabel;
DBLookupComboBox3: TDBLookupComboBox;
DBMemo1: TDBMemo;
Button9: TButton;
Button10: TButton;
T_change_code_4: TTable;
DS_change_code_4: TDataSource;
Label28: TLabel;
DBLookupComboBox4: TDBLookupComboBox;
Label29: TLabel;
DBMemo2: TDBMemo;
Button11: TButton;
Button12: TButton;
T_reward_level_4: TTable;
DS_reward_level_4: TDataSource;
Label30: TLabel;
Label31: TLabel;
DBRadioGroup1: TDBRadioGroup;
DBMemo3: TDBMemo;
DBLookupComboBox5: TDBLookupComboBox;
Button13: TButton;
Button14: TButton;
T_punish_level_4: TTable;
DS_punish_level_4: TDataSource;
DBRadioGroup2: TDBRadioGroup;
procedure FormCreate(Sender: TObject);
procedure i_stud_id_1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure i_stud_id_2Change(Sender: TObject);
procedure i_stud_id_3Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure i_stud_id_4Change(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}
begin
// try
Database1.Open;
// except
// Application.MessageBox('请确认用户名密码!','数据库连接错误',MB_OK);
// Application.Terminate;
// end;
if not Database1.Connected then Application.Terminate;
T_student.Open;
DBGrid1.Columns[0].Width:=64;
DBGrid1.Columns[1].Width:=64;
DBGrid1.Columns[2].Width:=64;
DBGrid1.Columns[3].Width:=64;
DBGrid1.Columns[4].Width:=30;
DBGrid1.Columns[5].Width:=64;
DBGrid1.Columns[6].Width:=100;
end;procedure TForm1.i_stud_id_1Change(Sender: TObject);
begin
T_stud_info_1.Filter:='ID='''+i_stud_id_1.Text+'''';
T_stud_info_1.Filtered:=True;
T_stud_info_1.Open;
T_class_info_1.Open;
T_depart_info_1.Open;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
i_stud_id_1.Text:='';
i_change.ItemIndex:=0;
i_descrip_1.Clear;
end;procedure TForm1.Button2Click(Sender: TObject);
var
counter:integer;
begin
T_stud_info_1.Open;
if T_stud_info_1.RecordCount>0 then //确认学号是否存在
begin
T_counter_c.Open;
counter:=T_counter_c['COUNTER_VALUE'];
Inc(counter); //累加学籍变更计数器
T_counter_c.Edit;
T_counter_c['COUNTER_VALUE']:=counter;
T_counter_c.Post;
T_change.Open;
//T_change.Edit;
T_change.AppendRecord([counter, i_stud_id_1.text, i_change.ItemIndex, Now, i_descrip_1.text]);
Button1Click(nil);
end
else
Application.MessageBox('请确认输入的学号是否正确!', '错误', MB_OK);
end;procedure TForm1.Button4Click(Sender: TObject);
begin
i_stud_id_2.Text:='';
i_reward_level.ItemIndex:=0;
i_descrip_2.Clear;
end;procedure TForm1.Button6Click(Sender: TObject);
begin
i_stud_id_3.Text:='';
i_punish_level.ItemIndex:=0;
i_descrip_3.Clear;
end;procedure TForm1.i_stud_id_2Change(Sender: TObject);
begin
T_stud_info_1.Filter:='ID='''+i_stud_id_2.Text+'''';
T_stud_info_1.Filtered:=True;
T_stud_info_1.Open;
T_class_info_1.Open;
T_depart_info_1.Open;
end;procedure TForm1.i_stud_id_3Change(Sender: TObject);
begin
T_stud_info_1.Filter:='ID='''+i_stud_id_3.Text+'''';
T_stud_info_1.Filtered:=True;
T_stud_info_1.Open;
T_class_info_1.Open;
T_depart_info_1.Open;
end;procedure TForm1.Button3Click(Sender: TObject);
var
counter:integer;
begin
T_stud_info_1.Open;
if T_stud_info_1.RecordCount>0 then //确认学号是否存在
begin
T_counter_r.Open;
counter:=T_counter_r['COUNTER_VALUE'];
Inc(counter); //累加奖励记录计数器
T_counter_r.Edit;
T_counter_r['COUNTER_VALUE']:=counter;
T_counter_r.Post;
T_reward.Open;
//T_change.Edit;
T_reward.AppendRecord([counter, i_stud_id_2.text, i_reward_level.ItemIndex, Now, i_descrip_2.text]);
Button4Click(nil);
end
else
Application.MessageBox('请确认输入的学号是否正确!', '错误', MB_OK);
end;procedure TForm1.Button5Click(Sender: TObject);
var
counter:integer;
begin
T_stud_info_1.Open;
if T_stud_info_1.RecordCount>0 then //确认学号是否存在
begin
T_counter_p.Open;
counter:=T_counter_p['COUNTER_VALUE'];
Inc(counter); //累加处罚记录计数器
T_counter_p.Edit;
T_counter_p['COUNTER_VALUE']:=counter;
T_counter_p.Post;
T_punish.Open;
//T_change.Edit;
T_punish.AppendRecord([counter, i_stud_id_3.text, i_punish_level.ItemIndex, Now, True, i_descrip_3.text]);
Button6Click(nil);
end
else
Application.MessageBox('请确认输入的学号是否正确!', '错误', MB_OK);
end;procedure TForm1.i_stud_id_4Change(Sender: TObject);
begin
T_stud_info_4.Filter:='ID='''+i_stud_id_4.Text+'''';
T_stud_info_4.Filtered:=True;
T_stud_info_4.Open;
T_class_info_4.Open;
T_depart_info_4.Open;
T_change_4.Open;
T_change_code_4.Open;
T_reward_4.Open;
T_reward_level_4.Open;
T_punish_4.Open;
T_punish_level_4.Open;
end;procedure TForm1.Button7Click(Sender: TObject);
begin
T_stud_info_4.Post;
end;procedure TForm1.Button8Click(Sender: TObject);
begin
T_stud_info_4.Cancel;
end;procedure TForm1.Button9Click(Sender: TObject);
begin
T_change_4.Post;
end;procedure TForm1.Button10Click(Sender: TObject);
begin
T_change_4.Cancel;
end;procedure TForm1.Button11Click(Sender: TObject);
begin
T_reward_4.Post;
end;procedure TForm1.Button12Click(Sender: TObject);
begin
T_reward_4.Cancel;
end;procedure TForm1.Button13Click(Sender: TObject);
begin
T_punish_4.Post;
end;procedure TForm1.Button14Click(Sender: TObject);
begin
T_punish.Cancel;
end;end.
我还有,如果你想要的话,给我邮箱,有时间的话我会发给你!!
[email protected]
谢谢了.
相当好的,里面大部分都是你要的东东。
用“天网搜索”也可以搜索到。