?? w_sjzd.pas
字號:
unit w_sjzd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DB, DBTables;
type
Tsjzd = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
DBGrid1: TDBGrid;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Query1: TQuery;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
sjzd: Tsjzd;
implementation
uses mydata;
{$R *.dfm}
procedure Tsjzd.Button1Click(Sender: TObject);
begin
data.tls.open;
data.tls.insert;
end;
procedure Tsjzd.Button2Click(Sender: TObject);
begin
data.tls.open;
data.tls.edit;
end;
procedure Tsjzd.Button3Click(Sender: TObject);
begin
sjzd.Close;
end;
procedure Tsjzd.Button4Click(Sender: TObject);
var
a:string;
begin
a:=data.tls.fieldbyname('課程').Value ;
if data.tls.Modified then
begin
data.tls.Post;
query1.SQL.Add('ALTER TABLE 學生成績');
query1.SQL.add('add');
query1.SQL.Add(a);
query1.SQL.add('VARCHAR(10)');
query1.Active :=true;
end;
end;
procedure Tsjzd.Button5Click(Sender: TObject);
begin
if data.tls.Modified then
data.tls.Cancel ;
end;
procedure Tsjzd.Button6Click(Sender: TObject);
begin
data.tls.Edit;
if messagedlg('是否真的要刪除?',mtinformation,[mbyes,mbno],0)=mryes then
begin
data.tls.Delete;
if data.tls.Modified then
data.tls.Post;
end
else
data.tls.Cancel ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -