unit5.pas

一个学生管理系统 这是我将自己sql2000版的东东转为access数据库的简化版本

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TFlatComboBoxUnit, TFlatSpeedButtonUnit, ExtCtrls,
  TFlatPanelUnit, TFlatEditUnit;

type
  Tzsfp = class(TForm)
    FlatPanel1: TFlatPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    FlatComboBox3: TFlatComboBox;
    FlatComboBox4: TFlatComboBox;
    FlatComboBox5: TFlatComboBox;
    Label3: TLabel;
    Label4: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    FlatPanel2: TFlatPanel;
    FlatComboBox7: TFlatComboBox;
    FlatComboBox8: TFlatComboBox;
    Label11: TLabel;
    Label12: TLabel;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatEdit1: TFlatEdit;
    procedure FormShow(Sender: TObject);
    procedure FlatComboBox1Change(Sender: TObject);
    procedure FlatComboBox2Change(Sender: TObject);
    procedure FlatComboBox3Change(Sender: TObject);
    procedure FlatComboBox4Change(Sender: TObject);
    procedure FlatComboBox7Change(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FlatComboBox5Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatComboBox8KeyPress(Sender: TObject; var Key: Char);
  private
    //strField:string;
    { Private declarations }

  public
    procedure getzy();
    procedure getnj();
    procedure getbj();
    { Public declarations }

  end;

var
  zsfp: Tzsfp;

implementation

{$R *.dfm} uses datamodule, Unit10;
procedure Tzsfp.getzy();
var
 yx1:string;
begin
yx1:=flatcombobox1.text;
with dm.adoquery5 do
  begin
  close;
  sql.Clear;
  sql.Add('select distinct zy from xskxx  where yx='''+yx1+'''');
  open;
  while not(dm.ADOQuery5.Eof) do
    begin
      flatcombobox2.Items.Add(dm.ADOQuery5.Fields[0].asstring);
      dm.ADOQuery5.Next;
    end;
  end;
  dm.ADOQuery5.Close;
end;

procedure Tzsfp.getnj();
var
 zy1:string;
begin
zy1:=flatcombobox2.text;
with dm.adoquery5 do
  begin
  close;
  sql.Clear;
  sql.Add('select distinct nj from xskxx  where zy='''+zy1+'''');
  open;
  while not(dm.ADOQuery5.Eof) do
    begin
      flatcombobox3.Items.Add(dm.ADOQuery5.Fields[0].asstring);
      dm.ADOQuery5.Next;
    end;
  end;
  dm.ADOQuery5.Close;
end;

procedure Tzsfp.getbj();
var
 nj1:string;
begin
nj1:=flatcombobox3.Text;
with dm.adoquery5 do
  begin
  close;
  sql.Clear;
  sql.Add('select distinct bj from xskxx  where nj='''+nj1+'''');
  open;
  while not(dm.ADOQuery5.Eof) do
    begin
      flatcombobox4.Items.Add(dm.ADOQuery5.Fields[0].asstring);
      dm.ADOQuery5.Next;
    end;
  end;
  dm.ADOQuery5.Close;
end;


procedure Tzsfp.FormShow(Sender: TObject);
var
yx1,zy1,nj1,bj1,jg1,xb1:string;
begin
flatcombobox1.Clear;
flatcombobox2.Clear;
flatcombobox3.Clear;
flatcombobox4.Clear;
flatcombobox5.Clear;
flatedit1.Clear;
yx1:=flatcombobox1.Text;
zy1:=flatcombobox2.Text;
nj1:=flatcombobox3.Text;
bj1:=flatcombobox4.Text;
with dm.adoquery5 do
  begin
  close;
  sql.Clear;
  sql.Add('select distinct yx from xskxx');
  open;
  while not(dm.ADOQuery5.Eof) do
    begin
      flatcombobox1.Items.Add(dm.ADOQuery5.Fields[0].asstring);
      dm.ADOQuery5.Next;
    end;
  end;
  dm.ADOQuery5.Close;
  with dm.adoquery5 do
  begin
  close;
  sql.Clear;
  sql.Add('select distinct sslh from sskxx');
  open;
  while not(dm.ADOQuery5.Eof) do
    begin
      flatcombobox7.Items.Add(dm.ADOQuery5.Fields[0].asstring);
      dm.ADOQuery5.Next;
    end;
  end;
  dm.ADOQuery5.Close;
end;



procedure Tzsfp.FlatComboBox1Change(Sender: TObject);
var
yx1:string;
begin
getzy();
{yx1:=flatcombobox1.Text;
with dm.adoquery5 do
  begin
  close;
  sql.Clear;
  sql.Add('select distinct zy from xskxx where yx='''+yx1+'''');
  open;
  while not(dm.ADOQuery5.Eof) do
    begin
      flatcombobox2.Items.Add(dm.ADOQuery5.Fields[0].asstring);
      dm.ADOQuery5.Next;
    end;
  end;
  dm.ADOQuery5.Close;}
end;

procedure Tzsfp.FlatComboBox2Change(Sender: TObject);
var
zy1:string;
begin
getnj();
end;

procedure Tzsfp.FlatComboBox3Change(Sender: TObject);
var
nj1:string;
begin
getbj();
end;

procedure Tzsfp.FlatComboBox4Change(Sender: TObject);
var
yx1,zy1,nj1,bj1:string;
begin
yx1:=flatcombobox1.text;
zy1:=flatcombobox2.Text;
nj1:=flatcombobox3.Text;
bj1:=flatcombobox4.Text;
flatcombobox5.Clear;
with dm.adoquery5 do
  begin
  close;
  sql.Clear;
  sql.Add('select distinct xh from xskxx  where yx='''+yx1+''' and zy='''+zy1+''' and nj='''+nj1+''' and bj='''+bj1+'''');
  open;
  while not(dm.ADOQuery5.Eof) do
    begin
      flatcombobox5.Items.Add(dm.ADOQuery5.Fields[0].asstring);
      dm.ADOQuery5.Next;
    end;
  end;
  dm.ADOQuery5.Close;
end;








procedure Tzsfp.FlatComboBox7Change(Sender: TObject);
 var
 sslhsel:string;
begin
sslhsel:=flatcombobox7.Text;
with dm.adoquery5 do
  begin
  close;
  sql.Clear;
  sql.Add('select distinct ssh from sskxx where sslh='''+sslhsel+'''');
  open;
  while not(dm.ADOQuery5.Eof) do
    begin
      flatcombobox8.Items.Add(dm.ADOQuery5.Fields[0].asstring);
      dm.ADOQuery5.Next;
    end;
  end;
  dm.ADOQuery5.Close;
end;

procedure Tzsfp.FlatSpeedButton1Click(Sender: TObject);
var
sslh1,ssh1,xh1:string;
begin   //1
sslh1:=flatcombobox7.Text;
ssh1:=flatcombobox8.Text;
xh1:=flatcombobox5.Text;
{with dm.ADOQuery4 do
begin   //2
close;
sql.Clear;
sql.Add('alter table zs add constraint conname unique (xh)');//增加学号唯一约束，避免一个学生可以住多个宿舍的情况
execsql;
end;  //1 }
try
with dm.adoquery5 do
  begin  //3
  close;
  sql.Clear;
  sql.Add('insert into zs(sslh,ssh,xh) values ('''+sslh1+''','''+ssh1+''','''+xh1+''')');
  execsql;
  showmessage('操作成功，该学生信息已填入新宿舍');
  end;
  except{on einouterror do}
  showmessage('发生异常，可能该学生已经入住宿舍，请检查后重新输入');
  //finally
   end;
    dm.ADOQuery5.Close;
    flatcombobox7.Clear;
    flatcombobox8.Clear;
    formshow(self);
end;





procedure Tzsfp.FlatComboBox5Change(Sender: TObject);
 var
 xh1:string;
begin
xh1:=flatcombobox5.Text;
with dm.adoquery5 do
  begin
  close;
  sql.Clear;
  sql.Add('select distinct xm from xskxx where xh='''+xh1+'''');
  open;
  flatedit1.Text:=dm.ADOQuery5.Fields[0].AsString;
  end;
    dm.ADOQuery5.Close;
end;

procedure Tzsfp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
sjcz.close;
end;

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

end.