unit GRZZ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, StdCtrls, Buttons, Mask, XPMenu;

type
  TGRZZForm = class(TForm)
    GroupBox1: TGroupBox;
    ToolBar1: TToolBar;
    TBprior: TToolButton;
    TBInsert: TToolButton;
    TBDelete: TToolButton;
    TBNext: TToolButton;
    ImageList1: TImageList;
    TBCancel: TBitBtn;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    XHEdit: TEdit;
    Label2: TLabel;
    XNEdit: TEdit;
    Label3: TLabel;
    PSEdit: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DZEdit: TEdit;
    Label7: TLabel;
    ZZEdit: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    YSComboBox: TComboBox;
    Label12: TLabel;
    DLComboBox: TComboBox;
    XZComboBox: TComboBox;
    PZComboBox: TComboBox;
    THEdit: TMaskEdit;
    CWEdit: TEdit;
    memo1: TMemo;
    StatusBar1: TStatusBar;
    TBSumbit: TBitBtn;
    XPMenu1: TXPMenu;
    procedure FormCreate(Sender: TObject);
    procedure TBpriorClick(Sender: TObject);
    procedure TBNextClick(Sender: TObject);
    procedure TBDeleteClick(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure XHEditKeyPress(Sender: TObject; var Key: Char);
    procedure TBSumbitClick(Sender: TObject);
    procedure TBCancelClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GRZZForm: TGRZZForm;

implementation
uses md;
{$R *.dfm}

procedure TGRZZForm.FormCreate(Sender: TObject);
begin
//程序啟動時建立連接。以備后面使用
with datamd.ADOWorth do
begin
close;
sql.Clear;
sql.add('select * from worth');
open;
xhedit.Text:=fieldbyname('學號').AsString;
xnedit.Text:=fieldbyname('姓名').AsString;
psedit.Text:=fieldbyname('寢室號').AsString;
cwedit.Text:=fieldbyname('床位號').AsString;
yscombobox.Text:=fieldbyname('鑰鎖發否').AsString;
dzedit.Text:=fieldbyname('橙子號').AsString;
zzedit.Text:=fieldbyname('桌子號').AsString;
dlcombobox.Text:=fieldbyname('電腦').AsString;
xzcombobox.Text:=fieldbyname('箱子').AsString;
thedit.Text:=fieldbyname('電話號碼').AsString;
memo1.Text:=fieldbyname('備注').AsVariant;
end;
end;

procedure TGRZZForm.TBpriorClick(Sender: TObject);
begin
//上前移一條記錄。顯示相應的字段值，但這不是唯一的方法。存在很多的垃圾代碼
with datamd.ADOWorth do
begin
prior;
xhedit.Text:=fieldbyname('學號').AsString;
xnedit.Text:=fieldbyname('姓名').AsString;
psedit.Text:=fieldbyname('寢室號').AsString;
cwedit.Text:=fieldbyname('床位號').AsString;
yscombobox.Text:=fieldbyname('鑰鎖發否').AsString;
dzedit.Text:=fieldbyname('橙子號').AsString;
zzedit.Text:=fieldbyname('桌子號').AsString;
dlcombobox.Text:=fieldbyname('電腦').AsString;
xzcombobox.Text:=fieldbyname('箱子').AsString;
thedit.Text:=fieldbyname('電話號碼').AsString;
memo1.Text:=fieldbyname('備注').AsVariant;
end;
end;

procedure TGRZZForm.TBNextClick(Sender: TObject);
begin
//移到記錄。顯示出來
with datamd.ADOWorth do
begin
Next;
xhedit.Text:=fieldbyname('學號').AsString;
xnedit.Text:=fieldbyname('姓名').AsString;
psedit.Text:=fieldbyname('寢室號').AsString;
cwedit.Text:=fieldbyname('床位號').AsString;
yscombobox.Items.Text:=fieldbyname('鑰鎖發否').AsString;
dzedit.Text:=fieldbyname('橙子號').AsString;
zzedit.Text:=fieldbyname('桌子號').AsString;
dlcombobox.Text:=fieldbyname('電腦').AsString;
xzcombobox.Text:=fieldbyname('箱子').AsString;
thedit.Text:=fieldbyname('電話號碼').AsString;
memo1.Text:=fieldbyname('備注').AsVariant;
end;
end;

procedure TGRZZForm.TBDeleteClick(Sender: TObject);
begin
//如果當前記錄沒有到最后記錄就可以刪除記錄
if not datamd.ADOWorth.Eof then
datamd.ADOWorth.Delete;                  //刪除記錄
end;

procedure TGRZZForm.BitBtn5Click(Sender: TObject);
var
I:integer;
begin
//插入一條新記錄。但其中有許多垃圾代碼
with datamd.ADOWorth do
begin
if not locate('學號',trim(xhedit.Text),[]) then
   begin
   append;
   fieldbyname('學號').AsString:=xhedit.Text;
   fieldbyname('姓名').AsString:=xnedit.Text;
   fieldbyname('寢室號').AsString:=psedit.Text;
   fieldbyname('床位號').AsString:=cwedit.Text;
   fieldbyname('鑰鎖發否').AsString:=yscombobox.Text;
   fieldbyname('橙子號').AsString:=dzedit.Text;
   fieldbyname('桌子號').AsString:=zzedit.Text;
   fieldbyname('電腦').AsString:=dlcombobox.Text;
   fieldbyname('箱子').AsString:=xzcombobox.Text;
   fieldbyname('電話號碼').AsString:=thedit.Text;
   fieldbyname('備注').AsVariant:=memo1.Text;
   if messagedlg('是否將數據存入到數據庫中！',mtconfirmation,[mbYes,mbNo],0)=mryes then
   post    //插入記錄
   else
   cancel;  //取消插入
   //把可以編輯的組件清空
   with groupbox2 do
   begin
   for i:=0 to ControlCount-1 do
   begin
   if Controls[i] is tedit then
   (controls[i] as Tedit).Clear;
   if controls[i] is Tcombobox then
   (controls[i] as Tcombobox).Clear;
   if controls[i] is Tmaskedit then
   (controls[i] as TMaskEdit).Clear;
   end;
   end;
 end
 else
 showmessage('記錄已經存在');

end;
end;



procedure TGRZZForm.XHEditKeyPress(Sender: TObject; var Key: Char);
begin
//當用戶輸入學號時，查找相應的記錄。沒有沒有此記錄就不能登記
if Key=#13 then
with datamd.ADOOrder do
begin
close;
sql.Clear;   //相應的記錄在學生的基本情況表中查詢
sql.Add('select * from tborder where 學號='''+xhedit.Text+'''');
open ;
if not eof then
begin
tbinsert.Enabled:=true;
xnedit.Text:=fieldbyname('姓名').AsString;
psedit.Text:=fieldbyname('寢室號').AsString;
end
else
begin
showmessage('沒有該學生');
tbinsert.Enabled:=false;
end;
end;
end;

procedure TGRZZForm.TBSumbitClick(Sender: TObject);
begin
//修改已存在的記錄。加入到數據庫中
 with datamd.ADOWorth do
 begin
   edit;
   fieldbyname('學號').AsString:=xhedit.Text;
   fieldbyname('姓名').AsString:=xnedit.Text;
   fieldbyname('寢室號').AsString:=psedit.Text;
   fieldbyname('床位號').AsString:=cwedit.Text;
   fieldbyname('鑰鎖發否').AsString:=yscombobox.Text;
   fieldbyname('橙子號').AsString:=dzedit.Text;
   fieldbyname('桌子號').AsString:=zzedit.Text;
   fieldbyname('電腦').AsString:=dlcombobox.Text;
   fieldbyname('箱子').AsString:=xzcombobox.Text;
   fieldbyname('電話號碼').AsString:=thedit.Text;
   fieldbyname('備注').AsVariant:=memo1.Text;
   if messagedlg('是否將數據存入到數據庫中！',mtconfirmation,[mbYes,mbNo],0)=mryes then
   post
   else
   cancel;
 end;
end;

procedure TGRZZForm.TBCancelClick(Sender: TObject);
begin
close;
end;

end.