bljsk_form.pas

sql版功能齐全

unit BLJSK_Form;

interface

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

type
  TBLJSK_F = class(TForm)
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    ADOQuery1: TADOQuery;
    FlatGroupBox1: TFlatGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    XM_FE: TFlatEdit;
    ZJH_FE: TFlatEdit;
    ZM_FCB: TFlatComboBox;
    XB_FCB: TFlatComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BLJSK_F: TBLJSK_F;

implementation

uses
  Common_Unit, Main_Form;

{$R *.dfm}


procedure TBLJSK_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;
//***********************************************************************************
procedure TBLJSK_F.FormDestroy(Sender: TObject);
begin
  BLJSK_F:=nil;
end;

procedure TBLJSK_F.FormShow(Sender: TObject);
begin
  adoquery1.Close;
  adoquery1.SQL.Text:='select groupid,groupname from groupuser';
  adoquery1.Open;
  while not adoquery1.Eof do
    begin
      zm_FCB.Items.Add(adoquery1.Fields.Fields[0].value+'-'+adoquery1.Fields.Fields[1].value);
      adoquery1.Next;
    end;
end;

procedure TBLJSK_F.FlatButton2Click(Sender: TObject);
begin
  close;
end;

procedure TBLJSK_F.FlatButton1Click(Sender: TObject);  //办理借书卡
var
  s:string;
begin
  try
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.add('INSERT INTO yh (name,sex,groupid,zjid)');
    adoquery1.SQL.add('VALUES ('+chr(39)+xm_fe.Text+chr(39)+','+chr(39)+xb_fcb.Text+chr(39)+','+chr(39)+copy(zm_fcb.Text,0,2)+chr(39)+','+chr(39)+zjh_fe.Text+chr(39)+')');
    adoquery1.ExecSQL;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Text:='select top '+'1'+' userid,name,sex,groupid,zjid from yh order by userid desc';
    adoquery1.open;
    s:='借书证号码：'+inttostr(adoquery1.Fields.Fields[0].Value)+',';
    s:=s+'姓名：'+adoquery1.Fields.Fields[1].Value+',';
    s:=s+'性别：'+adoquery1.Fields.Fields[2].Value+',';
    s:=s+'用户类别：'+adoquery1.Fields.Fields[3].Value+',';
    s:=s+'证件号码：'+adoquery1.Fields.Fields[4].Value;
    MessageBox(handle,pansichar(s),'添加成功',MB_OK or MB_ICONINFORMATION);
    XM_FE.Text:='';
    XB_FCB.ItemIndex:=0;
    ZM_FCB.ItemIndex:=0;
    ZJH_FE.Text:='';
  except
    MessageBox(handle,'添加用户失败！','错误',MB_OK or MB_ICONINFORMATION);
  end;
end;

end.