?? enrol.~pas
字號:
unit enrol;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, jpeg;
type
TENrolForm = class(TForm)
GroupBox1: TGroupBox;
Image1: TImage;
Bevel1: TBevel;
Bevel2: TBevel;
BTSubmit: TBitBtn;
BTCancel: TBitBtn;
Label1: TLabel;
Label2: TLabel;
XHEdit: TEdit;
XNEdit: TEdit;
Label3: TLabel;
Memo1: TMemo;
Label4: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure BTSubmitClick(Sender: TObject);
procedure BTCancelClick(Sender: TObject);
private
flags:boolean;
{ Private declarations }
public
{ Public declarations }
end;
var
ENrolForm: TENrolForm;
implementation
uses md;
{$R *.dfm}
procedure TENrolForm.Button1Click(Sender: TObject);
begin
//通過相關(guān)的學號。找到哪學生。因為學號為唯一。所以學號是必要條件。
//當沒有學號的同學。不能辦理相關(guān)的手續(xù)。
with datamd.ADOOrder do
begin
close;
sql.Clear;
if xhedit.Text<>'' then
sql.Add('select * from tborder where 學號='''+trim(xhedit.Text)+'''')
else
begin
showmessage('不能為空。請輸入相關(guān)的數(shù)據(jù)!');
xhedit.SetFocus;
end;
open;
if not eof then
begin
xnedit.Text:=fieldbyname('姓名').AsString;
memo1.Enabled:=true;
btsubmit.Enabled:=true;
flags:=true;
end
else
showmessage('沒有該記錄!');
end;
end;
procedure TENrolForm.BTSubmitClick(Sender: TObject);
begin
//如果當前庫中有些記錄就可以修改他的有狀態(tài)是入學還是離校
if flags then
begin
datamd.ADOOrder.Close;
datamd.ADOOrder.SQL.Clear;
datamd.ADOOrder.SQL.Add('update tborder set 狀態(tài)='''+'離校'+''',備注='''+memo1.Text+''' where 學號='''+xhedit.Text+'''');
if messagedlg('請確認輸入的數(shù)據(jù)的有效性',mtconfirmation,[mbYes,mbNo],1)=mryes then
datamd.ADOOrder.ExecSQL
else
showmessage('操作取消');
end;
end;
procedure TENrolForm.BTCancelClick(Sender: TObject);
begin
close;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -