srtm.pas

我的本科毕业代码,基本功能都出来了.不是特别好,请指教

unit srtm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables, System.ComponentModel;

type
  Tsrtm_Form = class(TForm)
    cmdok: TButton;
    cmdclose: TButton;
    tm_LEdit: TLabeledEdit;
    procedure cmdcloseClick(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  srtm_Form: Tsrtm_Form;

implementation

uses jygl, main;

{$R *.dfm}

procedure Tsrtm_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

procedure Tsrtm_Form.cmdokClick(Sender: TObject);
var
    sm,czdz,zh,jsrq,tm,sqlstr:string;
begin
    tm:=trim(tm_ledit.Text);
    if length(tm)<1 then
    begin
        ShowMessage('请输入图书条码');
        exit;
    end;
    sqlstr:='select * from t_csb where(tm='''+tm+''')and(kjs>0)';
    with tquery.Create(nil) do
    begin
        try
        Close;
        SessionName:=mainform.Database1.SessionName;
        DatabaseName:=mainform.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add(sqlstr);
        Open;
        if recordcount > 0 then
        begin
            zh:=jygl_form.zh1;
            czdz:='借阅图书'+','+tm;
            jsrq:=mainform.getnettime;
            sm:=fieldbyname('sm').AsString;
            sqlstr:='insert into t_jyb(zh,tm,sm,jsrq)values('''+zh;
            sqlstr:=sqlstr+''','''+tm+''','''+sm+''','''+jsrq+''')';
            Close;
            SQL.Clear;
            SQL.Add(sqlstr);
            ExecSQL;
            sqlstr:='update t_csb set kjs=kjs-1 where(tm='''+tm+''')';
            Close;
            SQL.Clear;
            SQL.Add(sqlstr);
            ExecSQL;
        end
        else
        begin
            ShowMessage('输入的图书条码有误，请重新输入');
            exit;
        end;
        finally
        Free;
        end;
    end;
    mainForm.addlog(mainform.dlname,jsrq,czdz);
    jygl_form.cmdok.Click;
    close;
end;

end.