unit2.~pas

转载 工控软件管理绿色小精灵 v2005代码。非常好的 要控件上http://www.bokonger.com/ReNewsInfo.asp?id=19下

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, StdCtrls, Mask, bsSkinBoxCtrls, bsdbctrls,
  BusinessSkinForm, DB, ADODB;

type
  TForm2 = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    ADOQuery1: TADOQuery;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Label1: TLabel;
    bsSkinXFormButton1: TbsSkinXFormButton;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinButton3: TbsSkinButton;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinButton2: TbsSkinButton;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinXFormButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.bsSkinButton1Click(Sender: TObject);
var
suliang:integer;
number:string;
begin
 number:=bsskinedit1.Text;
if bsskinedit1.Text<>'' then
begin
form1.adoquery1.Close;
form1.adoquery1.SQL.Clear;
case bsskincombobox1.ItemIndex of   //如果是下面的内容，则检测
0:
    form1.adoquery1.SQL.Add('select * from ziliao where 软件名称 like ''%'+number+'%''');
1:
   form1.adoquery1.SQL.Add('select * from ziliao where cd编号 like ''%'+number+'%''');
2:
  form1.adoquery1.SQL.Add('select * from ziliao where 存储方式 like ''%'+number+'%''');
3:
  form1.adoquery1.SQL.Add('select * from ziliao where 存储路径 like ''%'+number+'%''');
4:
 form1.adoquery1.SQL.Add('select * from ziliao where 软件版本 like ''%'+number+'%''');
 5:
 form1.adoquery1.SQL.Add('select * from ziliao where 软件类型 like ''%'+number+'%''');
 6:
form1. adoquery1.SQL.Add('select * from ziliao where 授权方式 like ''%'+number+'%''');
 7:
 form1.adoquery1.SQL.Add('select * from ziliao where 注册信息 like ''%'+number+'%''');
 8:
 form1.adoquery1.SQL.Add('select * from ziliao where 软件注释 like ''%'+number+'%''');
end;
form1.adoquery1.Open;
form1.adoquery1.Filter:=bsSkinComboBox1.Text+'='+''''+bsSkinEdit1.Text+'''';  //过虑 字符＝’文本内容‘
suliang:=form1.adoquery1.RecordCount;
bsSkinEdit1.Text:=inttostr(suliang);//inttostrd的作用是转换成字符
if form1.adoquery1.RecordCount=0 then  //等于0的时候
begin
if MessageDlg('对不起，没有记录，要继续查询其它的吗？',mtconfirmation,[mbyes,mbno], 0)=mrno then

form2.Close;
bsSkinEdit1.Text:='';
form1.FormCreate(Sender);
end
else //不等于0的时候
begin
if MessageDlg('恭喜你，你已经查询到'+bsSkinEdit1.Text+'个，要继续查询其它的吗？',mtconfirmation,[mbyes,mbno], 0)=mrno then
begin
form2.Close;
bsSkinEdit1.Text:='';
form1.Show;
end
else //如果点击yes的时候，form8获得焦点
form2.SetFocus;
end;
end
else //如果没有内容，则提示
begin
MessageDlg('请输入查询内容',mtwarning,[mbOK], 0);
 end;
end;

procedure TForm2.bsSkinXFormButton1Click(Sender: TObject);
begin
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add('select * from ziliao where 收藏日期 between (#'+bsSkinDateEdit1.Text +'#) and (#'+bsSkinDateEdit2.Text+'#)');
form1.adoquery1.Prepared;
form1.adoquery1.Open;
form1.adoquery1.Active :=true;
end;

procedure TForm2.bsSkinButton2Click(Sender: TObject);
begin
close;
end;

procedure TForm2.bsSkinButton3Click(Sender: TObject);
begin
adoquery1.SQL.Clear;

 adoquery1.SQL.Add('select * from ziliao order by  出品公司 desc');
 adoquery1.Prepared;
 adoquery1.Open;
end;

end.