unit2.pas

图书管理系统,使用Delphi开发,数据库为Microsoft SQL Server 2

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList, Grids, DBGrids, DB, ADODB, ExtCtrls,
  StdCtrls, Buttons;

type
  TParent = class(TForm)
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Panel1: TPanel;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
//    procedure BitBtn1Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    (* *)
    procedure SetButton(val:integer);
  end;

var
  Parent: TParent;

implementation

{$R *.dfm}
uses
DataMod;

(*
procedure TParent.BitBtn1Click(Sender: TObject);
var
condition:integer;
begin
  condition:=7;
  if label3.Visible=false then
    condition:=(condition)and(3);
  if label4.Visible=false then
    condition:=(condition)and(5);
  if label5.Visible=false then
    condition:=(condition)and(6);

  if condition=7 then
    begin
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select * from '+adotable1.TableName);
      adoquery1.SQL.Add('where('+label3.Caption+' like ''%'+edit1.Text+'%'')');
      adoquery1.SQL.Add('and('+label4.Caption+' like ''%'+edit2.Text+'%'')');
      adoquery1.SQL.Add('and('+label5.Caption+' like ''%'+edit3.Text+'%'')');
      adoquery1.Open;
      //
      adotable1.Clone(adoquery1,ltUnspecified);
    end;

  if condition=6 then //
    begin
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select * from '+adotable1.TableName);
      adoquery1.SQL.Add('where('+label3.Caption+' like ''%'+edit2.Text+'%'')');
      adoquery1.SQL.Add('and('+label4.Caption+'like''%'+edit2.Text+'%'')');
      adoquery1.Open;
      //
      adoquery1.Clone(adoquery1,ltUnspecified);
    end;

  if condition=4 then //
    begin
      adoquery1.Close;
      adoquery1.SQL.Add('select * from '+adotable1.TableName);
      adoquery1.SQL.Add(' where('+label3.Caption+' like ''%'+edit1.Text+'%'')');
      adoquery1.Open;
      //
      adotable1.Clone(adoquery1,ltUnspecified);
    end;
end;
*)


//
procedure TParent.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  label2.Caption:=inttostr(adotable1.RecordCount);
end;

procedure TParent.ToolButton1Click(Sender: TObject);
begin
  datasource1.DataSet.First;
end;

procedure TParent.ToolButton2Click(Sender: TObject);
begin
  datasource1.DataSet.Prior;
end;

procedure TParent.ToolButton3Click(Sender: TObject);
begin
  datasource1.DataSet.Next;
end;

procedure TParent.ToolButton4Click(Sender: TObject);
begin
  datasource1.DataSet.Last;
end;

procedure TParent.ToolButton5Click(Sender: TObject);
begin
  datasource1.DataSet.Append;
  SetButton(0);
end;

procedure TParent.ToolButton6Click(Sender: TObject);
begin
  datasource1.Edit;
  SetButton(0);
end;

procedure TParent.ToolButton7Click(Sender: TObject);
begin
  if application.MessageBox('是否删除记录？','确认',MB_OKCANCEL)=IDOK then
  datasource1.DataSet.Delete;
end;

procedure TParent.ToolButton8Click(Sender: TObject);
begin
  datasource1.DataSet.Post;
  SetButton(1);
end;

procedure TParent.ToolButton10Click(Sender: TObject);
begin
  datasource1.DataSet.Cancel;
  SetButton(1);
end;

procedure TParent.ToolButton9Click(Sender: TObject);
begin
  close;
end;


//
procedure TParent.SetButton(val:integer);
begin
  if val=0 then

    begin
      toolbutton1.Enabled:=false;
      toolbutton2.Enabled:=false;
      toolbutton3.Enabled:=false;
      toolbutton4.Enabled:=false;
      toolbutton5.Enabled:=false;
      toolbutton6.Enabled:=false;
      toolbutton7.Enabled:=false;
      toolbutton8.Enabled:=true;
      toolbutton10.Enabled:=true;

//      panel2.Enabled:=true;
    end
  else
    begin
      toolbutton1.Enabled:=true;
      toolbutton2.Enabled:=true;
      toolbutton3.Enabled:=true;
      toolbutton4.Enabled:=true;
      toolbutton5.Enabled:=true;
      toolbutton6.Enabled:=true;
      toolbutton7.Enabled:=true;
      toolbutton8.Enabled:=false;
      toolbutton10.Enabled:=false;

//      panel2.Enabled:=false;
    end;
end;

//
procedure TParent.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;


//


end.