?? stucheck.~pas
字號(hào):
unit stuCheck;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, jpeg, ExtCtrls;
type
TForm10 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Table2: TTable;
DBGrid2: TDBGrid;
DataSource2: TDataSource;
Label5: TLabel;
Table3: TTable;
DataSource3: TDataSource;
DBGrid3: TDBGrid;
ComboBox1: TComboBox;
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
Label4: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TForm10.Button1Click(Sender: TObject);
begin
Table1.Active:=False;
Table1.Filtered:=True;
Table1.Filter:='學(xué)號(hào)='+inttostr(Unit1.username);
Table1.Active:=True;
if ComboBox1.Text='數(shù)學(xué)'then
begin
if Table1.FieldByName('數(shù)學(xué)成績(jī)').AsString='' then
showMessage('對(duì)不起!你還沒(méi)有參加這門考試,無(wú)法查詢成績(jī)。' )
else
begin
DBGrid1.Columns[2].Visible:=False;
DBGrid1.Columns[3].Visible:=False;
DBGrid1.Columns[4].Visible:=true;
Table2.Active:=False;
Table2.TableName:='數(shù)學(xué)試卷.db';
Table2.Active:=True;
Table3.Active:=False;
Table3.TableName:='數(shù)學(xué)答案.db';
Table3.Filtered:=True;
Table3.Filter:='學(xué)號(hào)='+inttostr(Unit1.username);
Table3.Active:=True;
DBGrid1.Visible:=True;
DBGrid2.Visible:=True;
DBGrid3.Visible:=True;
end;
end;
if ComboBox1.Text='英語(yǔ)'then
begin
if Table1.FieldByName('英語(yǔ)成績(jī)').AsString='' then
showMessage('對(duì)不起!你還沒(méi)有參加這門考試,無(wú)法查詢成績(jī)。' )
else
begin
DBGrid1.Columns[2].Visible:=true;
DBGrid1.Columns[3].Visible:=False;
DBGrid1.Columns[4].Visible:=False;
Table2.Active:=False;
Table2.TableName:='英語(yǔ)試卷.db';
Table2.Active:=True;
Table3.Active:=False;
Table3.TableName:='英語(yǔ)答案.db';
Table3.Filtered:=True;
Table3.Filter:='學(xué)號(hào)='+inttostr(Unit1.username);
Table3.Active:=True;
DBGrid1.Visible:=True;
DBGrid2.Visible:=True;
DBGrid3.Visible:=True;
end;
end;
if ComboBox1.Text='語(yǔ)文'then
begin
if Table1.FieldByName('語(yǔ)文成績(jī)').AsString='' then
showMessage('對(duì)不起!你還沒(méi)有參加這門考試,無(wú)法查詢成績(jī)。' )
else
begin
DBGrid1.Columns[2].Visible:=False;
DBGrid1.Columns[3].Visible:=true;
DBGrid1.Columns[4].Visible:=False;
Table2.Active:=False;
Table2.TableName:='語(yǔ)文試卷.db';
Table2.Active:=True;
Table3.Active:=False;
Table3.TableName:='語(yǔ)文答案.db';
Table3.Filtered:=True;
Table3.Filter:='學(xué)號(hào)='+inttostr(Unit1.username);
Table3.Active:=True;
DBGrid1.Visible:=True;
DBGrid2.Visible:=True;
DBGrid3.Visible:=True;
end;
end;
end;
procedure TForm10.Button2Click(Sender: TObject);
begin
Form10.hide;
Form2.show;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -