unit7.pas

学生宿舍管理系统,用于宿舍的信息管理,简单容易用.

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, DB, ADODB,Unit2;

type
  TForm7 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    DateTimePicker2: TDateTimePicker;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image1: TImage;
    ADOQuery1: TADOQuery;
    DateTimePicker1: TDateTimePicker;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker2KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TForm7.FormActivate(Sender: TObject);
var
Query :TADOQuery;
begin
DateTimePicker1.Date :=date;
DateTimePicker2.Time :=time;

Query :=TADOQuery.Create(self);
Query.Connection :=DataModule2.ADOConnection1 ;
Query.SQL.Clear ;
Query.SQL.Add('select * from 用户表');
Query.Open ;
                                         //把用户表中的所有人名加入到combobox中,以备选择
while not Query.Eof do
  begin
    Combobox2.Items.Add(Query.FieldValues['用户名']);
    Query.Next ;
  end;
Query.Close ;
Query.Free ;

end;



procedure TForm7.BitBtn1Click(Sender: TObject);
begin

if Edit1.Text ='' then
  begin
    MessageBox(handle,'学号不能为空!','警告',MB_OK+MB_ICONWARNING);
    Edit1.SetFocus ;
    exit;
  end;

if Edit2.Text ='' then
  begin
    MessageBox(handle,'姓名不能为空!','警告',MB_OK+MB_ICONWARNING);
    Edit2.SetFocus ;
    exit;
  end;

if Edit3.Text ='' then
  begin
    MessageBox(handle,'出楼货物不能为空!','警告',MB_OK+MB_ICONWARNING);
    Edit3.SetFocus ;
    exit;
  end;

if ComboBox1.Text ='' then
  begin
    MessageBox(handle,'证件名称不能为空!','警告',MB_OK+MB_ICONWARNING);
    ComboBox1.SetFocus ;
    exit;
  end;

if ComboBox2.Text ='' then
  begin
    MessageBox(handle,'值班人不能为空!','警告',MB_OK+MB_ICONWARNING);
    ComboBox2.SetFocus ;
    exit;
  end;


ADOQuery1.Connection :=DataModule2.ADOConnection1 ;
ADOQuery1.Close ;                       //确认有没有这个学号的学生,及学号与姓名匹配否
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('select * from 学生信息表 where 学号='''+Edit1.Text +'''');
ADOQuery1.Prepared ;
ADOQuery1.Open ;
if ADOQuery1.Eof then
  begin
    MessageBox(handle,'没有这个学号的学生!','警告',MB_OK+MB_ICONWARNING);
    Edit1.SelectAll;
    exit;
  end;
if ADOQuery1.Fields.FieldByName('姓名').AsString <>trim(Edit2.Text) then
  begin
    MessageBox(handle,'警告,学号与姓名不匹配!','警告',MB_OK+MB_ICONWARNING);
    Edit2.SelectAll;
    exit;
  end;

ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.text :='select * from 货物出楼表';
ADOQuery1.Open ;
                                   //把出楼货物及信息写入货物出楼表中
ADOQuery1.Append ;
ADOQuery1.FieldByName ('学号').AsString :=trim(Edit1.Text );
ADOQuery1.FieldByName('姓名').AsString :=trim(Edit2.Text );
ADOQuery1.FieldByName('证件名称').AsString :=trim(ComboBox1.Text );
ADOQuery1.FieldByName('值班人').AsString :=trim(Combobox2.Text );
ADOQuery1.FieldByName('出楼货物').AsString  :=trim(Edit3.Text );
ADOQuery1.FieldByName('出楼日期').AsDateTime :=DateTimePicker1.Time ;
ADOQuery1.FieldByName('出楼时间').AsDateTime :=DateTimePicker2.Time ;
ADOQuery1.FieldByName('备注').AsString :=Memo1.Text ;
ADOQuery1.Prepared ;

try
  DataModule2.ADOConnection1.BeginTrans;         //提交事务
  ADOQuery1.Post ;
  DataModule2.ADOConnection1.CommitTrans ;
  MessageBox(handle,'登记成功!','提示',MB_OK+MB_ICONINFORMATION);
except
  DataModule2.ADOConnection1.RollbackTrans ;        //提交失败,回滚事务
  MessageBox(handle,'登记失败!','提示',MB_OK+MB_ICONWARNING);
 end;

end;

procedure TForm7.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if Key=#13 then
      begin
        Edit2.SetFocus ;
      end;

end;

procedure TForm7.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if Key=#13 then
      begin
        Edit3.SetFocus ;
      end;
end;

procedure TForm7.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
   if Key=#13 then
      begin
        ComboBox2.SetFocus ;
        ComboBox2.DroppedDown:=true;
      end;
end;

procedure TForm7.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
    if Key=#13 then
      begin
        ComboBox1.SetFocus ;
        ComboBox1.DroppedDown:=true;
      end;
end;

procedure TForm7.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    begin
      DateTimePicker2.SetFocus ;
    end;

end;

procedure TForm7.DateTimePicker2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    begin
      DateTimePicker1.SetFocus ;
    end;
end;

procedure TForm7.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    begin
      Memo1.SetFocus ;
    end;
end;

procedure TForm7.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    begin
      BitBtn1.Click;
    end;
end;

end.