modibmts.pas

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

unit modibmts;

interface

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

type
  Tmodibmts_Form = class(TForm)
    sm_LEdit: TLabeledEdit;
    zz_LEdit: TLabeledEdit;
    cbs_LEdit: TLabeledEdit;
    zs_LEdit: TLabeledEdit;
    Label1: TLabel;
    cbrq_DTP: TDateTimePicker;
    cmdok: TButton;
    cmdclose: TButton;
    tm_LEdit: TLabeledEdit;
    syh_LEdit: TLabeledEdit;
    ys_LEdit: TLabeledEdit;
    gjz_LEdit: TLabeledEdit;
    nrjj_LEdit: TLabeledEdit;
    procedure FormCreate(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modibmts_Form: Tmodibmts_Form;

implementation

uses bmgl, main;

{$R *.dfm}

procedure Tmodibmts_Form.FormCreate(Sender: TObject);
begin
    Caption:=bmgl_form.xcaption;
    cbrq_DTP.DateTime:=strtodatetime(mainform.getnettime);
    if bmgl_form.modi then
    begin
        tm_LEdit.Text:=bmgl_form.Query1.fieldbyname('tm').AsString;
        syh_LEdit.Text:=bmgl_form.Query1.fieldbyname('syh').AsString;
        sm_LEdit.Text:=bmgl_form.Query1.fieldbyname('sm').AsString;
        cbs_LEdit.Text:=bmgl_form.Query1.fieldbyname('cbs').AsString;
        zz_LEdit.Text:=bmgl_form.Query1.fieldbyname('zz').AsString;
        zs_LEdit.Text:=bmgl_form.Query1.fieldbyname('zs').AsString;
        ys_LEdit.Text:=bmgl_form.Query1.fieldbyname('ys').AsString;
        gjz_LEdit.Text:=bmgl_form.Query1.fieldbyname('gjz').AsString;
        nrjj_LEdit.Text:=bmgl_form.Query1.fieldbyname('nrjj').AsString;
        cbrq_DTP.DateTime:=bmgl_form.Query1.fieldbyname('cbrq').AsDateTime;
    end;
end;

procedure Tmodibmts_Form.cmdokClick(Sender: TObject);
var
    czsj,czdz,ID,sqlstr1,sqlstr,tm,syh,sm,zz,cbs,zs,ys,gjz,nrjj,cbrq:string;
begin
    tm:=trim(tm_LEdit.Text);
    if length(tm)<1 then
    begin
        ShowMessage('请输入图书条码');
        exit;
    end;
    syh:=trim(syh_LEdit.Text);
    if length(syh)<1 then
    begin
        ShowMessage('请输入图书索引号');
        exit;
    end;
    sm:=trim(sm_LEdit.Text);
    if length(sm)<1 then
    begin
        ShowMessage('请输入定购图书书名');
        exit;
    end;
    zz:=trim(zz_LEdit.Text);
    if length(zz)<1 then
    begin
        ShowMessage('请输入定购图书作者');
        exit;
    end;
    cbs:=trim(cbs_LEdit.Text);
    if length(cbs)<1 then
    begin
        ShowMessage('请输入定购图书出版社');
        exit;
    end;
    zs:=trim(zs_LEdit.Text);
    if length(zs)<1 then
    begin
        ShowMessage('请输入图书字数');
        exit;
    end;
    ys:=trim(ys_LEdit.Text);
    if length(ys)<1 then
    begin
        ShowMessage('请输入图书页数');
        exit;
    end;
    gjz:=trim(gjz_LEdit.Text);
    if length(gjz)<1 then
    begin
        ShowMessage('请输入图书关键字');
        exit;
    end;
    nrjj:=trim(nrjj_LEdit.Text);
    if length(nrjj)<1 then
    begin
        ShowMessage('请输入定购内容简介');
        exit;
    end;
    cbrq:=datetostr(cbrq_DTP.DateTime);
    if bmgl_form.modi then
    begin
        id:=bmgl_form.Query1.fieldbyname('id').AsString;
        czdz:='修改图书编目:'+sm+','+zz;
        sqlstr:='update t_tsb set sm='''+sm+''',zz='''+zz+''',cbs='''+cbs;
        sqlstr:=sqlstr+''',tm='''+tm+''',syh='''+syh+''',zs='''+zs;
        sqlstr:=sqlstr+''',cbrq='''+cbrq+''',ys='''+ys+''',gjz='''+gjz;
        sqlstr:=sqlstr+'nrjj='''+nrjj+''' where (id='''+id+''')';
        sqlstr1:='select * from t_tsb where((sm='''+sm+''')and(zz='''+zz+''')or(tm='''+tm+'''))and(id<>'''+id+''')';
    end
    else
    begin
        czdz:='添加图书编目:'+sm+','+zz;
        sqlstr:='insert into t_tsb(tm,syh,sm,zz,cbs,cbrq,zs,ys,gjz,nrjj)values('''+tm+''',''';
        sqlstr:=sqlstr+syh+''','''+sm+''','''+zz+''','''+cbs+''','''+cbrq+''','''+zs;
        sqlstr:=sqlstr+''','''+ys+''','''+gjz+''','''+nrjj+''')';
        sqlstr1:='select * from t_tsb where((sm='''+sm+''')and(zz='''+zz+'''))or(tm='''+tm+''')';
    end;
    with tquery.Create(nil) do
    begin
        try
        Close;
        SessionName:=mainform.Database1.SessionName;
        DatabaseName:=mainform.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add(sqlstr1);
        Open;
        if recordcount > 0 then
        begin
            ShowMessage('输入的书名和作者有重复或者是条码有重复，请重新输入');
            exit;
        end;
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        ExecSQL;
        finally
        Free;
        end;
    end;
    czsj:=mainform.getnettime;
    mainForm.addlog(mainform.dlname,czsj,czdz);
    bmgl_form.cmdok.Click;
    close;
end;

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

end.