usersettingform.pas

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

unit UserSettingForm;

interface

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

type
  TUserSetting = class(TParent)
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    GroupBox1: TGroupBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserSetting: TUserSetting;

implementation

{$R *.dfm}

procedure TUserSetting.BitBtn1Click(Sender: TObject);
var
condition:integer;
begin
  inherited;
  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;
      //
      adotable1.Clone(adoquery1,ltUnspecified);
    end;
  *)
  if condition=4 then //
    begin
      adoquery1.Close;
      adoquery1.SQL.Add('select * from '+adotable1.TableName);
      adoquery1.SQL.Add(' where(ReaderType_Type like ''%'+edit1.Text+'%'')');
      adoquery1.Open;
      //
      adotable1.Clone(adoquery1,ltUnspecified);
    end;
end;

end.