unit7.~pas

是用DELPHI编写的图书管理系统

unit Unit7;

interface

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

type
  TFormtsdj = class(TForm)
    Label1: TLabel;
    Editsh: TEdit;
    Label2: TLabel;
    Editsm: TEdit;
    Label3: TLabel;
    ComboBoxlb: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    btndj: TButton;
    btnfh: TButton;
    Editzz: TEdit;
    ComboBoxcbs: TComboBox;
    DateTimePicker1: TDateTimePicker;
    Editdj: TEdit;
    Editbz: TEdit;
    Querydj: TQuery;
    procedure btndjClick(Sender: TObject);
    procedure btnfhClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formtsdj: TFormtsdj;

implementation

{$R *.dfm}

procedure TFormtsdj.btndjClick(Sender: TObject);
var djsh,djsm,djlb,djzz,djcbs,djcbrq,djdj,djbz,zk:string;
begin
 djsh:=editsh.Text ;
 djsm:=editsm.Text ;;
 djlb:=comboboxlb.Text ;
 djzz:=editzz.Text ;
 djcbs:=comboboxcbs.Text ;
 djcbrq:=datetostr(datetimepicker1.Date );
 djdj:= editdj.Text ;
 djbz:=editbz.Text ;
 zk:='在库';
 if (djsh='')or(djsm='')or(djlb='')or(djzz='')or(djcbs='')then
   showmessage('请将登记图书信息输入完全!!!')
   else
   begin
   with querydj do
   begin
     close;
     sql.Clear ;
     sql.Add('insert tsbm');
     sql.Add('values(:djshname,:djsmname,:djlbname,:djzzname,:djcbsname,:djcbrqname,(convert(money,:djdjname)),:djbzname)') ;
     parambyname('djshname').AsString :=djsh;
     parambyname('djsmname').AsString :=djsm;
     parambyname('djlbname').AsString :=djlb;
     parambyname('djzzname').AsString :=djzz;
     parambyname('djcbsname').AsString :=djcbs;
     parambyname('djcbrqname').AsString :=djcbrq;
     parambyname('djdjname').AsString :=djdj;
     parambyname('djbzname').AsString :=djbz;
     prepare;
     execsql;
     end;
 with querydj do
   begin
     close;
     sql.Clear ;
     sql.Add('insert tsjy');
     sql.Add('(图书编号，图书借出标志)');
     sql.Add('values(:djshname,:zkname)');
     parambyname('djshname').AsString :=djsh;
     parambyname('zkname').AsString :=zk;
     prepare;
     execsql;
     end;
 editsh.Text :='';
 editsm.Text :='';
 comboboxlb.Text :='';
 editdj.Text :='';
 comboboxcbs.Text :='';
 editdj.Text :='';
 editbz.Text :='';
 showmessage('图书登记成功~~!!~~');
 end;

end;

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

end.