?? unit2.pas
字號(hào):
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBTables, DB, Grids, DBGrids,Unit4;
type
TFormstu = class(TForm)
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DataSource1: TDataSource;
DataSource2: TDataSource;
Table1: TTable;
Query1: TQuery;
Query2: TQuery;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
procedure Init;
procedure FormClose(Sender: TObject;
var Action:TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
User:string;
end;
var
Formstu: TFormstu;
implementation
//uses Unit4;
{$R *.dfm}
procedure TFormstu.FormClose(Sender: TObject;
var Action:TCloseAction);
begin
Table1.Close;
Query1.Close;
Application.Terminate;
end;
procedure TFormstu.Init;
begin
Table1.Open;
Query1.ParamByName('User').Value:=User;
Query1.Open;
end;
procedure TFormstu.Button1Click(Sender: TObject);
begin
Query2.sql.Text:='Insert into select values("'+User+'","'+Table1.FieldByName('課程編號(hào)').AsString+'"';
Query2.ExecSQL;
Query2.Close;
Query1.Close;
Query1.Open;
end;
procedure TFormstu.Button2Click(Sender: TObject);
begin
Query2.sql.Text:='Delete From select where 學(xué)號(hào)="'+User+'"and 課程編號(hào)="'+Query1.FieldByName('課程編號(hào)').AsString+'"';
Query2.ExecSQL;
Query2.Close;
Query1.Close;
Query1.Open;
end;
procedure TFormstu.Button3Click(Sender: TObject);
begin
Formchpwd.User:=User;
Formchpwd.ShowModal;
end;
procedure TFormstu.FormCreate(Sender: TObject);
begin
{object Query1:TQuery
DatabaseName='course'
SQL.Strings=('select select.課程編號(hào),subject.課程名稱,subject.任課教師,subject.周學(xué)時(shí),subject.學(xué)分,subject.起始周,subject.結(jié)束周,'+
'subject.上課地點(diǎn),'
'From "select" 已選課程'
'Inner Join "subject" 課程'
'On(course.課程編號(hào)=subject.課程編號(hào))'
'Where select.學(xué)號(hào)=:User;')
paramData=<
item
DataType=ftUnknown
Name='User'
paramType=ptUnknown
end>
end }
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -