?? unit2.~pas
字號:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg;
type
Txuqiu = class(TForm)
Panel1: TPanel;
Panel3: TPanel;
xuqiu1: TRadioGroup;
Panel2: TPanel;
Image1: TImage;
Panel4: TPanel;
procedure xuqiu1Click(Sender: TObject);
// procedure Image1Click(Sender: TObject);
procedure Panel4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
xuqiu: Txuqiu;
implementation
uses Unit3, Unit9, Unit11, Unit12, Unit15, Unit14, Unit1;
{$R *.dfm}
procedure Txuqiu.xuqiu1Click(Sender: TObject);
var
no:string;
begin
case xuqiu1.ItemIndex of
0:begin teacher.show; xuqiu.Close ; end;
1:begin student.show;xuqiu.Close;end;
2:begin tianchong.show;xuqiu.Close;end;
3:begin selchengji.show;xuqiu.Close ;end;
4:begin
//
selfen1.selfen.Close;
no:=inputbox('輸入試卷號','請輸入您要查詢的試卷號!','103');
if no<>'' then
begin
xuqiu.Tag:=strtoint(no);
selfen1.selfen.ParamByName('no').AsString :=no;
selfen1.selfen.Open;
showmessage('參加本次考試的學生有'+inttostr(selfen1.selfen.RecordCount )+'人!');
end;
if selfen1.selfen.IsEmpty then
begin
showmessage('對不起!沒有您需要的成績!');
end
else
begin
selfen1.Show;
selfen1.DBGrid1.Columns[0].Width :=120;
selfen1.DBGrid1.Columns[1].Width :=180;
selfen1.DBGrid1.Columns[2].Width :=120;
selfen1.DBGrid1.Columns[3].Width :=120;
selfen1.DBGrid1.Columns[4].Width :=120;
end;
//
end;
end;
if (xuqiu1.ItemIndex =4) and (selfen1.selfen.IsEmpty) then
xuqiu1.ItemIndex :=-1;
end;
procedure Txuqiu.Panel4Click(Sender: TObject);
begin
xuqiu.close;
form1.show;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -