searchunit.~pas

来自「初学DELPHI编写的“奖学金评定系统”」· ~PAS 代码 · 共 112 行

unit searchUnit;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, DB, ADODB;

type
  TOKRightDlg = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    CancelBtn: TButton;
    ADOQuery1: TADOQuery;
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKRightDlg: TOKRightDlg;
  sltstring: string;

implementation

uses kcUnit;

{$R *.dfm}
function search(): string;
begin

end;

procedure TOKRightDlg.RadioGroup1Click(Sender: TObject);
var
  s1,s2: tstrings;
  i: byte;
begin
  s1:= tstringlist.Create;
  s2:= tstringlist.Create;
  with adoquery1 do begin
    close;
    sql.Clear;
    sql.Add('select * from '+ radiogroup1.items[radiogroup1.itemindex]);
    open;
    sort:= '专业 DESC';
    if(length(fieldbyname('专业').AsString)<> 0) then
      s1.Add(fieldbyname('专业').AsString);
    sort:= '专业1 DESC';
    if(length(fieldbyname('专业1').AsString)<> 0) then
      s1.Add(fieldbyname('专业1').AsString);
    sort:= '专业2 DESC';
    if(length(fieldbyname('专业2').AsString)<> 0) then
      s1.Add(fieldbyname('专业2').AsString);
    sort:= '专业3 DESC';
    if(length(fieldbyname('专业3').AsString)<> 0) then
      s1.Add(fieldbyname('专业3').AsString);

    sort:= '所在学期 ASC';
    s2.Add(fieldbyname('所在学期').AsString);
    i:= 0;
    while not eof do begin
      if fieldbyname('所在学期').AsString<> s2[i] then begin
        s2.Add(fieldbyname('所在学期').AsString);
        i:= i+ 1;
      end;
      next;
    end;
    close;
  end;
    combobox1.Items.Clear;
    combobox1.Items.AddStrings(s1);
    combobox2.Items.Clear;
    combobox2.Items.AddStrings(s2);
end;

procedure TOKRightDlg.Button1Click(Sender: TObject);
begin
  sltstring:= 'select * from '+ radiogroup1.items[radiogroup1.itemindex]+
    ' where (专业 = "'+ combobox1.Text+ '" or 专业1 = "'+ combobox1.Text+
    '" or 专业2 = "'+ combobox1.Text+ '" or 专业3 = "'+ combobox1.Text+
    ' ") and 所在学期 = "'+ combobox2.Text+ '"';  
end;

procedure TOKRightDlg.CancelBtnClick(Sender: TObject);
begin
close;
end;

procedure TOKRightDlg.Button2Click(Sender: TObject);
begin
   with adoquery1 do begin
    close;
    sql.Clear;
    sql.Add('select * from 必修课');
    open;
   end;

end;

end.