开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Unit1.~pas
资源名称：xiaobai.rar　[点击查看]
上传用户：autowell
上传日期：2022-06-21
资源大小：16754k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

Unit1.~pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;
  9. type
  10.   TForm1 = class(TForm)
  11.     DataSource1: TDataSource;
  12.     ADOQuery1: TADOQuery;
  13.     DBGrid1: TDBGrid;
  14.     GroupBox1: TGroupBox;
  15.     RadioButton1: TRadioButton;
  16.     RadioButton2: TRadioButton;
  17.     RadioButton3: TRadioButton;
  18.     Label1: TLabel;
  19.     Button1: TButton;
  20.     Button2: TButton;
  21.     Label2: TLabel;
  22.     Edit1: TEdit;
  23.     Button3: TButton;
  24.     Button4: TButton;
  25.     procedure Button1Click(Sender: TObject);
  26.     procedure Button2Click(Sender: TObject);
  27.     procedure Button3Click(Sender: TObject);
  28.     procedure Button4Click(Sender: TObject);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  35. var
  36.   Form1: TForm1;
  38. implementation
  40. uses Unit2;
  42. {$R *.dfm}
  44. procedure TForm1.Button1Click(Sender: TObject);
  45. begin
  46.     adoquery1.connection:=DataModule2.adoconnection1;//adoconnection1连接到库上，而 adoquery1连接到表上，把 adoconnection1单列出来，多个表单可以共享，不用每个表单都用一个
  47.     adoquery1.Active:=true;
  48. end;
  50. procedure TForm1.Button2Click(Sender: TObject);
  51. begin
  52.     Form1.close;
  53. end;
  55. procedure TForm1.Button3Click(Sender: TObject);
  56. begin
  57.     //adoquery1.connection:=DataModule2.adoconnection1;
  58.     //adoquery1.active:=true;
  59.     with adoquery1 do
  60.          begin
  61.            close;
  62.              with sql do
  63.                begin
  64.                  clear;
  65.                  add('select * from students where');
  66.                  if radiobutton1.Checked then
  67.                  add('学号=' + quotedstr(edit1.Text));
  68.                  if radiobutton2.Checked then
  69.                  add('姓名=' + quotedstr(edit1.Text));
  70.                  if radiobutton3.Checked then
  71.                  add('班级=' + quotedstr(edit1.Text));
  72.                end;
  73.                open;
  74.                adoquery1.Active:=true;
  75.          end;
  76.      if adoquery1.Eof then showmessage('呜呜，什么都没找到。');
  77.     
  78. end;
  80. procedure TForm1.Button4Click(Sender: TObject);
  81. var
  82.   strcustmerid:string;
  83.   strcommend1,strcommend2,strcommend3:string;
  84. begin
  85.     begin
  86.       strcustmerid:=trim(edit1.Text);
  87.       strcommend1:='学号 like ''%'+strcustmerid+'%''';
  88.       strcommend2:='姓名 like ''%'+strcustmerid+'%''';
  89.       strcommend3:='班级 like ''%'+strcustmerid+'%''';
  90.       with adoquery1 do
  91.          begin
  92.            close;
  93.              with sql do
  94.                begin
  95.                  clear;
  96.       add('select * from students where');
  97.                  if radiobutton1.Checked then
  98.                  add(strcommend1);
  99.                  if radiobutton2.Checked then
  100.                  add(strcommend2);
  101.                  if radiobutton3.Checked then
  102.                  add(strcommend3);
  103.                end;
  104.                open;
  105.                adoquery1.Active:=true;
  106.          end;
  107.        if adoquery1.Eof then showmessage('呜呜，什么都没找到。');
  109.    end;
  112. end;
  114. end.