bmgl.pas

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

unit bmgl;

interface

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

type
  Tbmgl_Form = class(TForm)
    GroupBox1: TGroupBox;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    cmdok: TButton;
    cmdclose: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    sm_LEdit: TLabeledEdit;
    N4: TMenuItem;
    procedure cmdokClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    modi:boolean;
    xcaption:string;
  end;

var
  bmgl_Form: Tbmgl_Form;

implementation

uses main, modibmts;

{$R *.dfm}

procedure Tbmgl_Form.cmdokClick(Sender: TObject);
var
    sqlstr,sm:string;
begin
    sm:=trim(sm_LEdit.Text);
    if length(sm)<1 then
    begin
        sqlstr:='select * from t_tsb';
    end
    else
    begin
        sm:='%'+sm+'%';
        sqlstr:='select * from t_tsb where(sm like '''+sm+''')';
    end;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    if Query1.RecordCount > 0 then
    begin
        N1.Enabled:=true;
        N2.Enabled:=true;
        N3.Enabled:=true;
    end
    else
    begin
        N1.Enabled:=true;
        N2.Enabled:=false;
        N3.Enabled:=false;
    end;
end;

procedure Tbmgl_Form.FormCreate(Sender: TObject);
begin
    Query1.SessionName:=mainform.Database1.SessionName;
    Query1.DatabaseName:=mainform.Database1.DatabaseName;
end;

procedure Tbmgl_Form.N1Click(Sender: TObject);
begin
    modi:=false;
    xcaption:='添加图书编目';
    Application.CreateForm(Tmodibmts_Form, modibmts_Form);
    modibmts_form.ShowModal;
end;

procedure Tbmgl_Form.N2Click(Sender: TObject);
begin
    modi:=true;
    xcaption:='修改图书编目';
    Application.CreateForm(Tmodibmts_Form, modibmts_Form);
    modibmts_form.ShowModal;
end;

procedure Tbmgl_Form.N3Click(Sender: TObject);
var
    id:string;
begin
    id:=Query1.fieldbyname('id').AsString;
    if MessageDlg('确认要删除选中的记录吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
        with tquery.Create(nil) do
        begin
            try
            Close;
            SQL.Clear;
            SQL.Add('delete from t_tsb where id='''+id+'''');
            ExecSQL;
            finally
            Free;
            end;
        end;
    end;
end;

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

procedure Tbmgl_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=cafree;
    mainform.N21.Enabled:=true;
end;

procedure Tbmgl_Form.N4Click(Sender: TObject);
var
    czsj,czdz,sqlstr1,sqlstr,tm,syh,sm,zz,cbs,zs,ys,gjz,nrjj,cbrq:string;
begin
    tm:=Query1.fieldbyname('tm').AsString;
    syh:=Query1.fieldbyname('syh').AsString;
    sm:=Query1.fieldbyname('sm').AsString;
    zz:=Query1.fieldbyname('zz').AsString;
    cbs:=Query1.fieldbyname('cbs').AsString;
    zs:=Query1.fieldbyname('zs').AsString;
    ys:=Query1.fieldbyname('ys').AsString;
    gjz:=Query1.fieldbyname('gjz').AsString;
    nrjj:=Query1.fieldbyname('nrjj').AsString;
    cbrq:=Query1.fieldbyname('cbrq').AsString;
    sqlstr:='insert into t_xsb(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_xsb where(tm='''+tm+''')';
    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
            if MessageDlg('在新书目录中已经有该记录，需要覆盖操作吗?',mtConfirmation, [mbYes, mbNo], 0) = mrNo then
                exit;
        end;
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        ExecSQL;
        finally
        Free;
        end;
    end;
    czdz:='添加新书目录:'+sm+','+zz;
    czsj:=mainform.getnettime;
    mainForm.addlog(mainform.dlname,czsj,czdz);
end;

end.