unit sfkp;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, RpBase, RpSystem, RpDefine, RpRave, ExtCtrls, ComCtrls,
DB, ADODB, Grids, DBGrids;type
Tformsfkp = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
ComboBox1: TComboBox;
Label4: TLabel;
ComboBox2: TComboBox;
Edit3: TEdit;
Label5: TLabel;
Label6: TLabel;
Edit4: TEdit;
Button1: TButton;
Edit5: TEdit;
Label7: TLabel;
Edit6: TEdit;
Button2: TButton;
Edit7: TEdit;
Button3: TButton;
RvProject1: TRvProject;
RvSystem1: TRvSystem;
Label8: TLabel;
Timer1: TTimer;
Label9: TLabel;
Label10: TLabel;
DateTimePicker1: TDateTimePicker;
Edit8: TEdit;
Label11: TLabel;
ComboBox3: TComboBox;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button4Click(Sender: TObject);
private tablekp: TADOTable;
{ Private declarations }
public
ADOConnection1: TADOConnection;
{ Public declarations }
end;var
formsfkp: Tformsfkp;implementation{$R *.dfm}
procedure Tformsfkp.Button4Click(Sender: TObject);
begin
with tablekp do
begin
if length(edit1.text)=0 then
showmessage('必须输入学号')
else
begin
tablekp.active:=false;
tablekp.readonly:=false;
tablekp.active:=true;
tablekp.insertrecord([edit2.text,combobox1.text,
datetimepicker1.Date,edit8.Text,combobox2.text,edit3.text,
edit4.Text,edit5.Text,edit7.Text,combobox3.Text]);
edit2.Text:='';
edit8.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit7.Text:='';
tablekp.active:=false;
tablekp.readonly:=true;
tablekp.active:=true;end;end.
中间有些无关代码删掉了系统不能运行
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, RpBase, RpSystem, RpDefine, RpRave, ExtCtrls, ComCtrls,
DB, ADODB, Grids, DBGrids;type
Tformsfkp = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
ComboBox1: TComboBox;
Label4: TLabel;
ComboBox2: TComboBox;
Edit3: TEdit;
Label5: TLabel;
Label6: TLabel;
Edit4: TEdit;
Button1: TButton;
Edit5: TEdit;
Label7: TLabel;
Edit6: TEdit;
Button2: TButton;
Edit7: TEdit;
Button3: TButton;
RvProject1: TRvProject;
RvSystem1: TRvSystem;
Label8: TLabel;
Timer1: TTimer;
Label9: TLabel;
Label10: TLabel;
DateTimePicker1: TDateTimePicker;
Edit8: TEdit;
Label11: TLabel;
ComboBox3: TComboBox;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button4Click(Sender: TObject);
private tablekp: TADOTable;
{ Private declarations }
public
ADOConnection1: TADOConnection;
{ Public declarations }
end;var
formsfkp: Tformsfkp;implementation{$R *.dfm}
procedure Tformsfkp.Button4Click(Sender: TObject);
begin
with tablekp do
begin
if length(edit1.text)=0 then
showmessage('必须输入学号')
else
begin
tablekp.active:=false;
tablekp.readonly:=false;
tablekp.active:=true;
tablekp.insertrecord([edit2.text,combobox1.text,
datetimepicker1.Date,edit8.Text,combobox2.text,edit3.text,
edit4.Text,edit5.Text,edit7.Text,combobox3.Text]);
edit2.Text:='';
edit8.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit7.Text:='';
tablekp.active:=false;
tablekp.readonly:=true;
tablekp.active:=true;end;end.
中间有些无关代码删掉了系统不能运行
adoquery1.Post;
adoquery.execute或者
adoquery.sql.text := 'select 语句';
adoquery.open;
adoquery.append;
adoquery.fieldbyName(字段).value := 'adf'
adoquery.post;