unit7.pas

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

unit Unit7;

interface

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

type
  Txskxxcx = class(TForm)
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBGrid1: TDBGrid;
    FlatSpeedButton1: TFlatSpeedButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    FlatSpeedButton2: TFlatSpeedButton;
    FlatSpeedButton3: TFlatSpeedButton;
    FlatSpeedButton4: TFlatSpeedButton;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    ADODataSet1: TADODataSet;
    procedure FormShow(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FlatSpeedButton2Click(Sender: TObject);
    procedure FlatSpeedButton3Click(Sender: TObject);
    procedure FlatSpeedButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure formclear();
    procedure FlatEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FlatComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FlatComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure FlatSpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xskxxcx: Txskxxcx;

implementation

{$R *.dfm}uses unit9,datamodule, Unit13;

procedure txskxxcx.formclear();
begin
flatedit1.Clear;
flatedit2.Clear;
flatcombobox1.Clear;
flatcombobox2.Clear;
end;

procedure Txskxxcx.FormShow(Sender: TObject);
begin
flatedit1.Clear;
flatedit2.Clear;
flatcombobox1.Clear;
flatcombobox2.Clear;
 with dm.ADOQuery5 do
begin
close;
sql.Clear;
sql.Add('select distinct yx from xskxx');
open;
end;
while not dm.ADOQuery5.Eof do
begin
flatcombobox1.Items.Add(dm.ADOQuery5.Fields[0].asstring) ;
dm.ADOQuery5.Next;
end;
dm.ADOQuery5.Close;
with dm.ADOQuery5 do
begin
close;
sql.Clear;
sql.Add('select distinct zy from xskxx');
open;
end;
while not dm.ADOQuery5.Eof do
begin
flatcombobox2.Items.Add(dm.ADOQuery5.Fields[0].asstring) ;
dm.ADOQuery5.Next;
end;
dm.ADOQuery5.Close;
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');
open;
end;

end;

procedure Txskxxcx.FlatSpeedButton1Click(Sender: TObject);
var
xh1:string;
begin
xh1:=trim(flatedit1.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='''+xh1+'''');
open;
 dbgrid1.Columns[0].width:=65;
 dbgrid1.columns[1].width:=65;
 dbgrid1.columns[2].width:=50;
 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;
end;

//adoquery1.Close;
end;

procedure Txskxxcx.FlatSpeedButton2Click(Sender: TObject);
var
xm1:string;
begin
xm1:=trim(flatedit2.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 xm='''+xm1+'''');
open;
 dbgrid1.Columns[0].width:=65;
 dbgrid1.columns[1].width:=65;
 dbgrid1.columns[2].width:=50;
 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;
end;

//adoquery1.Close;
end;

procedure Txskxxcx.FlatSpeedButton3Click(Sender: TObject);
var
yx1:string;
begin
yx1:=flatcombobox1.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 yx='''+yx1+'''');
open;
 dbgrid1.Columns[0].width:=65;
 dbgrid1.columns[1].width:=65;
 dbgrid1.columns[2].width:=50;
 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;
end;
flatcombobox1.Text:='';
flatcombobox2.Text:='';
//adoquery1.Close;
end;

procedure Txskxxcx.FlatSpeedButton4Click(Sender: TObject);
var
zy1:string;
begin
zy1:=trim(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 zy='''+zy1+'''');
open;
 dbgrid1.Columns[0].width:=65;
 dbgrid1.columns[1].width:=65;
 dbgrid1.columns[2].width:=50;
 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;
end;
flatcombobox1.Text:='';
flatcombobox2.Text:='';
//adoquery1.Close;
end;





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

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

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

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

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

procedure Txskxxcx.DataSource1DataChange(Sender: TObject; Field: TField);
begin
adodataset1.Active:=false;
adodataset1.CommandText:='select * from xskxx where xh='''+flatedit1.Text+'''' ;
adodataset1.Active:=true;
end;

procedure Txskxxcx.FlatSpeedButton5Click(Sender: TObject);
begin
//with report.Create(self) do    //form2是用来显示报表窗体，里面放个QuickRep控件
//try
report.QuickRep1.Preview;
//finally
//free;
//end;
end;  


end.