bljsk_form.pas

图书管理系统vb+sql

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.