?? kcgl.pas
字號(hào):
unit kcgl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;
type
TForm1 = class(TForm)
qry: TADOQuery;
DataSource1: TDataSource;
view: TDBGrid;
lab1: TLabel;
num: TEdit;
Label1: TLabel;
nam: TEdit;
Label2: TLabel;
dep: TEdit;
cla: TEdit;
lab2: TLabel;
cre: TEdit;
Label3: TLabel;
buto: TButton;
butc: TButton;
procedure butoClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure butcClick(Sender: TObject);
procedure numChange(Sender: TObject);
private
{ Private declarations }
procedure FreshDBGrid;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses UnitData;
{$R *.dfm}
procedure TForm1.FreshDBGrid;
begin
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('select * from COURSE');
qry.Open;
end;
procedure TForm1.butoClick(Sender: TObject);
begin
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('insert into COURSE(id,name,dept,class,credit) values('''+ num.Text +''','''+nam.Text+''','''+dep.Text+''','''+cla.Text+''','+cre.Text+')');
qry.ExecSQL;
FreshDBGrid;
num.Text := '';
nam.Text := '';
dep.Text := '';
cla.Text := '';
cre.Text := '';
end;
procedure TForm1.FormShow(Sender: TObject);
begin
freshdbgrid;
end;
procedure TForm1.butcClick(Sender: TObject);
begin
close
end;
procedure TForm1.numChange(Sender: TObject);
begin
buto.Enabled := num.Text <> '';
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -