unit10.pas

来自「学校学籍管理系统」· PAS 代码 · 共 107 行

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBTables, DB;

type
  Txuelo = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Label6: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xuelo: Txuelo;

implementation

uses Unit4;

{$R *.dfm}

procedure Txuelo.Button2Click(Sender: TObject);
begin
close;
ComboBox1.Text:='';
ComboBox2.Text:='';
ComboBox3.Text:='';
ComboBox4.Text:='';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
end;

procedure Txuelo.ComboBox4Change(Sender: TObject);
begin
dm.xueQuery1.Close ;
dm.xueQuery1.SQL.Clear ;
dm.xueQuery1.SQL.Add('select * from studen');
dm.xueQuery1.SQL.Add('where sex like'''+ComboBox4.text+'''');
dm.xueQuery1.Open ;
edit5.text:=''+inttostr(dm.xueQuery1.RecordCount)+' λѧԱ';
dm.xueQuery1.Close ;
end;

procedure Txuelo.ComboBox3Change(Sender: TObject);
begin
dm.xueQuery1.Close ;
dm.xueQuery1.SQL.Clear ;
dm.xueQuery1.SQL.Add('select * from studen');
dm.xueQuery1.SQL.Add('where cudata like'''+ComboBox3.text+'''');
dm.xueQuery1.Open ;
edit4.text:=''+inttostr(dm.xueQuery1.RecordCount)+' λѧԱ';
dm.xueQuery1.Close ;
end;

procedure Txuelo.ComboBox2Change(Sender: TObject);
begin
dm.xueQuery1.Close ;
dm.xueQuery1.SQL.Clear ;
dm.xueQuery1.SQL.Add('select * from studen');
dm.xueQuery1.SQL.Add('where ling like'''+ComboBox2.text+'''');
dm.xueQuery1.Open ;
edit3.text:=''+inttostr(dm.xueQuery1.RecordCount)+' λѧԱ';
dm.xueQuery1.Close ;
end;


procedure Txuelo.FormShow(Sender: TObject);
begin
dm.xueQuery1.Close ;
dm.xueQuery1.SQL.Clear ;
dm.xueQuery1.SQL.Add('select * from studen');
dm.xueQuery1.SQL.Add('where id ');
dm.xueQuery1.Open ;
edit1.text:=''+inttostr(dm.xueQuery1.RecordCount)+' λѧԱ';
dm.xueQuery1.Close;
end;

end.