unit6.pas

本系统规模较小,适合小型宿舍,公寓等人员的安排,管理.本系统采用delphi开发界面,使用文件型的数据库Access,界面亲和力强,容易上手,使用方便.

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatSpeedButtonUnit, StdCtrls, TFlatEditUnit, ExtCtrls,
  TFlatPanelUnit, TFlatMemoUnit, TFlatComboBoxUnit, Grids, DBGrids, DB,
  ADODB;

type
  Tzscx = class(TForm)
    FlatPanel1: TFlatPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatSpeedButton2: TFlatSpeedButton;
    FlatMemo1: TFlatMemo;
    FlatPanel2: TFlatPanel;
    Label4: TLabel;
    Label5: TLabel;
    FlatComboBox1: TFlatComboBox;
    Label6: TLabel;
    FlatComboBox2: TFlatComboBox;
    FlatSpeedButton3: TFlatSpeedButton;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FlatSpeedButton2Click(Sender: TObject);
    procedure FlatSpeedButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FlatComboBox2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zscx: Tzscx;

implementation

{$R *.dfm}  uses datamodule, Unit9;

procedure Tzscx.FormShow(Sender: TObject);
begin
dbgrid1.Columns.Clear;
flatedit1.Clear;
flatedit2.Clear;
flatmemo1.Lines.Text:='查询结果显示';
flatmemo1.Lines.Add(#13);
with dm.ADOQuery6 do
begin
close;
sql.Clear;
sql.Add('select distinct sslh from sskxx');
open;
while not dm.ADOQuery6.Eof do
begin
flatcombobox1.Items.Add(dm.ADOQuery6.Fields[0].asstring);
//flatcombobox2.items.Add(dm.ADOQuery6.Fields[1].asstring);
dm.ADOQuery6.Next;
end;
end;
dm.ADOQuery6.Close;
with dm.ADOQuery6 do
begin
close;
sql.Clear;
sql.Add('select distinct ssh from sskxx');
open;
while not dm.ADOQuery6.Eof do
begin
flatcombobox2.Items.Add(dm.ADOQuery6.Fields[0].asstring);
dm.ADOQuery6.Next;
end;
end;
dm.ADOQuery6.Close;
end;

procedure Tzscx.FlatSpeedButton1Click(Sender: TObject);
var
xh1:string;
begin
xh1:=flatedit1.Text;
with dm.ADOQuery6 do
begin
close;
sql.Clear;
sql.Add('select sslh,ssh from zs where xh='''+xh1+'''');
open;
flatmemo1.Lines.Add('该生住在'+dm.ADOQuery6.Fields[0].asstring+'号楼   '+dm.ADOQuery6.Fields[1].asstring+'宿舍');
end;
dm.ADOQuery6.Close;
end;

procedure Tzscx.FlatSpeedButton2Click(Sender: TObject);
var
xm1:string;
begin
xm1:=trim(flatedit2.Text);
with dm.ADOQuery6 do
begin
close;
sql.Clear;
sql.Add('select sslh,ssh from zs where xh in(select xh from xskxx where xm='''+xm1+''')');
open;
flatmemo1.Lines.Add('该生住在 '+dm.ADOQuery6.Fields[0].asstring+' 号楼   '+dm.ADOQuery6.Fields[1].asstring+' 宿舍');
end;
dm.ADOQuery6.Close;
end;

procedure Tzscx.FlatSpeedButton3Click(Sender: TObject);
var
sslh1,ssh1:string;
begin
sslh1:=flatcombobox1.Text;
ssh1:=flatcombobox2.Text;
with ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add('select xh as 学号,xm as 姓名,xb as 性别,jg as 籍贯,yx as 院系,zy as 专业,nj as 级别,bj as 班级 from xskxx where xh in(select xh from zs where sslh='''+sslh1+''' and ssh='''+ssh1+''')' );
  open;
 dbgrid1.Columns[0].width:=65;
 dbgrid1.columns[1].width:=65;
 dbgrid1.columns[2].width:=30;
 dbgrid1.columns[3].width:=90;
 dbgrid1.columns[4].width:=120;
 dbgrid1.columns[5].width:=140;
 dbgrid1.columns[6].width:=80;
 dbgrid1.columns[7].width:=80;
// dbgrid1.columns[8].width:=160;
  //showmessage(dm.ADOQuery6.SQL.Text);
  ////dm.DataSource6.DataSet:=dm.ADOQuery6
  //dbgrid1.DataSource:=dm.DataSource6;
  //ADOQuery1.Active:=true;
  end;
  //dm.ADOQuery6.Close;
end;


procedure Tzscx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
sjcx.Close;
end;

procedure Tzscx.FlatEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
flatspeedbutton1.Click;
end;
end;

procedure Tzscx.FlatEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
flatspeedbutton2.Click;
end;
end;

procedure Tzscx.FlatComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
flatspeedbutton3.Click;
end;
end;

end.