unit8.~pas

来自「是用DELPHI编写的图书管理系统」· ~PAS 代码 · 共 86 行

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls;

type
  TFormdzdj = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Editjszh: TEdit;
    Editxm: TEdit;
    ComboBoxxb: TComboBox;
    ComboBoxzy: TComboBox;
    Editdw: TEdit;
    Editbz: TEdit;
    btndj: TButton;
    btnfh: TButton;
    Querydj: TQuery;
    procedure btndjClick(Sender: TObject);
    procedure btnfhClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formdzdj: TFormdzdj;

implementation

{$R *.dfm}

procedure TFormdzdj.btndjClick(Sender: TObject);
 var djjszh,djxm,djxb,djzy,djdw,djbz:string;
begin
 djjszh:=editjszh.Text ;
 djxm:=editxm.Text ;
 djxb:=comboboxxb.Text ;
 djzy:=comboboxzy.Text;
 djdw:=editdw.Text ;
 djbz:=editbz.Text ;
 if (djjszh='')or(djxm='')or(djxb='') then
  showmessage('请将登记读者的信息输入完全!!!')
  else
   begin
     with querydj do
      begin
        close;
        sql.Clear ;
        sql.Add('insert dzmc');
        sql.Add('values(:djjszhname,:djxmname,:djxbname,:djzyname,:djdwname,:djbzname)');
        parambyname('djjszhname').AsString :=djjszh;
        parambyname('djxmname').AsString :=djxm;
        parambyname('djxbname').AsString :=djxb;
        parambyname('djzyname').AsString :=djzy;
        parambyname('djdwname').AsString :=djdw;
        parambyname('djbzname').AsString :=djbz;
        prepare;
        execsql;
        end;
      editjszh.Text :='';
      editxm.Text :='';
      comboboxxb.Text :='';
      comboboxzy.Text :='';
      editdw.Text :='';
      editbz.Text :='';
      showmessage('读者登记成功!!!');
      end;

end;

procedure TFormdzdj.btnfhClick(Sender: TObject);
begin
close;
end;

end.