unit5.pas

宿舍管理系统

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Memo1: TMemo;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    ADOQuery1: TADOQuery;
    Label5: TLabel;
    DateTimePicker3: TDateTimePicker;
    Image1: TImage;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(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 DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker3KeyPress(Sender: TObject; var Key: Char);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit6;

//uses Unit6;

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);
begin
DateTimePicker3.Date :=Date;       //初始化日期和时间
DateTimePicker1.Time :=now;
DateTimePicker2.Time :=now;
end;

procedure TForm5.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.text :='select * from 来访表';
ADOQuery1.Open ;
                                         //把来访信息写入来访表中
ADOQuery1.Append ;
ADOQuery1.FieldByName ('被访人姓名').AsString :=trim(Edit2.Text );
ADOQuery1.FieldByName('来访人姓名').AsString :=trim(Edit1.Text );
ADOQuery1.FieldByName('被访人寝室号').AsString :=trim(Edit3.Text );
ADOQuery1.FieldByName('值班人').AsString :=trim(ComboBox1.Text  );
ADOQuery1.FieldByName('来访日期').AsDateTime :=DateTimePicker3.Date ;
ADOQuery1.FieldByName('所属关系').AsString :=trim(Edit5.Text );
ADOQuery1.FieldByName('证件名称').AsString :=trim(Combobox2.Text  );
ADOQuery1.FieldByName('来访时间').AsDateTime:=DateTimePicker1.Time ;
ADOQuery1.FieldByName('结束时间').AsDateTime :=DateTimePicker1.Time ;   //此时的结束时间要与来访时间相同
ADOQuery1.FieldByName('备注').AsString :=Memo1.Text ;

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 TForm5.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TForm5.Panel1Click(Sender: TObject);
begin
Application.CreateForm(TForm6,Form6);
Form6.Edit1.Text :=Edit2.Text ;
Form6.ShowModal ;
Form6.Free ;
end;

procedure TForm5.FormActivate(Sender: TObject);
var
Query :TADOQuery;
begin

Query :=TADOQuery.Create(self);
Query.Connection :=DataModule2.ADOConnection1 ;
Query.SQL.Clear ;
Query.SQL.Add('select * from 用户表');
Query.Open ;

while not Query.Eof do
  begin
    Combobox1.Items.Add(Query.FieldValues['用户名']);
    Query.Next ;
  end;
Query.Close ;
Query.Free ;
end;

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

end;

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

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

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

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

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

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

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

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

end.