unit3.pas

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

unit Unit3;

interface

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

type
  Txsxxll = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatComboBox1: TFlatComboBox;
    FlatEdit3: TFlatEdit;
    FlatComboBox2: TFlatComboBox;
    FlatComboBox3: TFlatComboBox;
    FlatComboBox4: TFlatComboBox;
    FlatComboBox5: TFlatComboBox;
    FlatSpeedButton1: TFlatSpeedButton;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    FlatSpeedButton2: TFlatSpeedButton;
    FlatSpeedButton3: TFlatSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure FlatComboBox2Change(Sender: TObject);
    procedure FlatComboBox3Change(Sender: TObject);
    procedure FlatComboBox4Change(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatSpeedButton2Click(Sender: TObject);
    procedure FlatSpeedButton3Click(Sender: TObject);
    procedure FlatComboBox5KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xsxxll: Txsxxll;
  xh1,xm1,jg1,xb1,yx1,zy1,nj1,bj1:string;

implementation

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

procedure Txsxxll.FormShow(Sender: TObject);
begin
flatedit1.Clear;
flatedit2.Clear;
flatedit3.Clear;
flatcombobox1.ItemIndex:=0;
flatcombobox2.Clear;
flatcombobox3.Clear;
flatcombobox4.Clear;
flatcombobox5.Clear;
with dm.ADOQuery2 do
  begin
  close;
  sql.Clear;
  sql.Add('select distinct yx from jg');
  open;
  yx1:=dm.ADOQuery2.Fields[0].AsString;
  while not (dm.ADOQuery2.Eof) do
    begin
    flatcombobox2.Items.Add(dm.ADOQuery2.Fields[0].asstring);
    dm.ADOQuery2.Next;
    end;
  end;
dm.adoquery2.Close;
  {with dm.ADOQuery3 do
    begin
    close;
    sql.Clear;
    sql.Add('select * from xskxx');
    open;
    end; }
    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;
       dbgrid1.columns[0].width:=60;
 dbgrid1.columns[1].width:=60;
 dbgrid1.columns[2].width:=40;
 dbgrid1.columns[3].width:=80;
 dbgrid1.columns[4].width:=150;
 dbgrid1.columns[5].width:=150;
 dbgrid1.columns[6].width:=40;
 dbgrid1.columns[7].width:=40;

end;

procedure Txsxxll.FlatComboBox2Change(Sender: TObject);
begin
flatcombobox3.Clear;
yx1:=flatcombobox2.Text;
with dm.ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('select distinct zy from jg where yx='''+yx1+'''');
open;
while not (dm.ADOQuery2.Eof) do
begin
flatcombobox3.Items.Add(dm.ADOQuery2.Fields[0].asstring);
dm.ADOQuery2.Next;
end;
end;
dm.ADOQuery2.Close;

end;

procedure Txsxxll.FlatComboBox3Change(Sender: TObject);
begin
flatcombobox4.Clear;
zy1:=flatcombobox3.Text;
with dm.ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('select distinct nj from jg where zy='''+zy1+'''');
open;
while not (dm.ADOQuery2.Eof) do
begin
flatcombobox4.Items.Add(dm.ADOQuery2.Fields[0].asstring);
dm.ADOQuery2.Next;
end;
end;
dm.ADOQuery2.Close;

end;

procedure Txsxxll.FlatComboBox4Change(Sender: TObject);
begin
flatcombobox5.Clear;
nj1:=flatcombobox4.Text;
with dm.ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('select distinct bj from jg where nj='''+nj1+'''');
open;
while not (dm.ADOQuery2.Eof) do
begin
flatcombobox5.Items.Add(dm.ADOQuery2.Fields[0].asstring);
dm.ADOQuery2.Next;
end;
end;
dm.ADOQuery2.Close;
end;

procedure Txsxxll.FlatSpeedButton1Click(Sender: TObject);
begin
xh1:=trim(flatedit1.Text);
xm1:=trim(flatedit2.Text);
//jg1:=trim(flatedit3.Text);
xb1:=flatcombobox1.Text;
yx1:=flatcombobox2.Text;
zy1:=flatcombobox3.Text;
nj1:=flatcombobox4.Text;
bj1:=flatcombobox5.Text;
if flatedit3.Text=NULL then
  begin
  jg1:='未输入'
  end
  else
  jg1:=trim(flatedit3.Text);
with dm.ADOQuery2 do
 begin   //2
 close;
 sql.Clear;
 sql.add('select count(*) as jl from xskxx where xh='''+xh1+'''');
 open;
if dm.ADOQuery2.FieldByName('jl').asInteger>0 then
  ShowMessage('错误，学号为：'''+xh1+'''的记录已经存在！请重新录入！')
else
  with dm.ADOQuery1 do
    begin //1
    if (flatedit1.Text='') then
    begin
    showmessage('必须输入数据，请重新输入')
    end
    else
    begin
    close;
    sql.Clear;
    sql.Add('insert into xskxx(xh,xm,jg,xb,yx,zy,nj,bj) values ('''+xh1+''','''+xm1+''','''+jg1+''','''+xb1+''','''+yx1+''','''+zy1+''','''+nj1+''','''+bj1+''')');
    execsql;
    showmessage('数据添加成功,按确定返回');
    dm.ADOQuery2.Close;
flatedit1.Clear;
flatedit2.Clear;
flatedit3.Clear;
flatcombobox1.ItemIndex:=0;
flatcombobox2.Clear;
flatcombobox3.Clear;
flatcombobox4.Clear;
flatcombobox5.Clear;
dm.ADOQuery1.Close;
dm.ADOQuery2.Close;
formshow(self);
end;
end;  //1
//showmessage(dm.ADOQuery2.SQL.Text);
end;  //2


end;


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


procedure Txsxxll.FlatSpeedButton2Click(Sender: TObject);
var
x:string;
begin
x:=dbgrid1.SelectedField.Value;
with adoquery1 do
  begin
  close;
  sql.Clear;
  sql.Add('delete from xskxx where xh='''+x+'''');
  execsql;
  formshow(self);
  messagebox(self.handle,'删除成功','提示',mb_iconinformation+mb_ok);
  end;
end;

procedure Txsxxll.FlatSpeedButton3Click(Sender: TObject);
begin
close;
end;

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

end.


//此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
//╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
//╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
//,︶︶︶︶,''︶~~ ,''~︶︶　 ,''
//╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
//╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
//╬　　　　　　　http://www.5ivb.net ╬
//╬　 ╭○╮●　                   　╬
//╬　　/■\/■\　　                  ╬
//╬　　 <|　||　   有希望,就有成功！ ╬
//╬　　　　　　　　　　　　　　　　　╬
//╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
//
//说明：
//专业提供VB、．NET、Delphi、ASP、PB源码下载
//包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档