unit BLJSK_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatButtonUnit, StdCtrls, TFlatComboBoxUnit, TFlatEditUnit,
  TFlatGroupBoxUnit,DB,ADODB;

type
  TBLJSK_F = class(TForm)
    FlatGroupBox1: TFlatGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    BH_FE: TFlatEdit;
    XM_FE: TFlatEdit;
    ZJH_FE: TFlatEdit;
    ZM_FCB: TFlatComboBox;
    Label8: TLabel;
    XB_FCB: TFlatComboBox;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
  private
    function CheckError:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BLJSK_F: TBLJSK_F;

implementation

uses
   Share_Unit ;

{$R *.dfm}

var
  YHZ_T:TADOTable;
  YHDA_T:TADOTable;
//******************************************************************************
function IsNum(str:string):boolean;
var
  i:integer;
begin
  Result:= true;
  for i:=1 to length(str) do
    if not (ord(str[i]) in[48..57]) then
      begin
        result:=false;
        exit;
      end;
end;
//******************************************************************************
procedure TBLJSK_F.FormDestroy(Sender: TObject);
begin
  FreeAndNil(YHZ_T);
  FreeAndNil(YHDA_T);
  BLJSK_F:=nil;
end;
//******************************************************************************
procedure TBLJSK_F.FormCreate(Sender: TObject);
begin
  YHZ_T:=TADOTable.Create(nil);
  YHZ_T.Connection:=Connect;
  YHZ_T.TableName:='組用戶';

  YHDA_T:=TADOTable.Create(nil);
  YHDA_T.Connection:=Connect;
  YHDA_T.TableName:='用戶';
end;
//***********************************************************************************
procedure TBLJSK_F.FormShow(Sender: TObject);
begin
  YHZ_T.Open;
  YHDA_T.Open;
  
  while not YHZ_T.Eof do
    begin
      ZM_FCB.Items.Add(YHZ_T.FieldValues['組名']);
      YHZ_T.Next;
    end;
  ZM_FCB.ItemIndex:=0;
end;
//***********************************************************************************
procedure TBLJSK_F.FlatButton2Click(Sender: TObject);
begin
  close;
end;
//***********************************************************************************
function TBLJSK_F.CheckError:boolean;          //檢查輸入的數據是否有錯誤
begin
  result:=false;
  if (length(BH_FE.Text)<>9)or (not IsNum(BH_FE.Text)) then        //圖書編號是否合法
    begin
      MessageBox(handle,'借書卡編號為9位數字！','編號錯誤',MB_OK or MB_ICONERROR);
      result:=true;
      exit;
    end
    else begin
      if YHDA_T.Locate('用戶帳號',BH_FE.Text,[]) then
        begin
          MessageBox(handle,'借書卡編號已經存在！','編號重復',MB_OK or MB_ICONERROR);
          result:=true;
          exit;
        end;
    end;

  if XM_FE.Text='' then
    begin
      MessageBox(handle,'姓名不能為空！','姓名有誤',MB_OK or MB_ICONERROR);
      result:=true;
      exit;
    end;

  if ZJH_FE.Text='' then
    begin
      MessageBox(handle,'證件號不能為空！','證件號有誤',MB_OK or MB_ICONERROR);
      result:=true;
      exit;
    end
    else if not IsNum(ZJH_FE.Text) then
           begin
             MessageBox(handle,'證件號為數字，最好是身份證號！','證件號有誤',MB_OK or MB_ICONERROR);
             result:=true;
             exit;
           end;

end;
//***********************************************************************************
procedure TBLJSK_F.FlatButton1Click(Sender: TObject);  //辦理借書卡
begin
  if CheckError then exit;
  YHDA_T.Append;
  YHDA_T.FieldByName('用戶帳號').AsString:=BH_FE.Text;
  YHDA_T.FieldByName('姓名').AsString:=XM_FE.Text;
  YHDA_T.FieldByName('性別').AsString:=XB_FCB.Text;
  YHDA_T.FieldByName('證件號碼').AsString:=ZJH_FE.Text;
  YHZ_T.Locate('組名',ZM_FCB.Text,[]);
  YHDA_T.FieldByName('組號').AsString:=YHZ_T.FieldValues['組號'];
  YHDA_T.Post;
  MessageBox(handle,'借書卡信息添加成功！','添加成功',MB_OK or MB_ICONINFORMATION);
  BH_FE.Text:='';
  XM_FE.Text:='';
  XB_FCB.ItemIndex:=0;
  ZM_FCB.ItemIndex:=0;
  ZJH_FE.Text:='';
end;

end.