unit16.pas

宿舍管理系统

unit Unit16;

interface

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

type
  TForm16 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ADOQuery1: TADOQuery;
    Memo1: TMemo;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form16: TForm16;

implementation

{$R *.dfm}

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

procedure TForm16.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 Edit4.Text ='' then
  begin
    MessageBox(handle,'年份不能为空!','警告',MB_OK+MB_ICONWARNING);
    Edit4.SetFocus ;
    exit;
  end;

ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Text :='select * from 寝室评分表';
ADOQuery1.Open ;

ADOQuery1.Append ;
ADOQuery1.FieldByName('寝室号').AsString :=trim(Edit1.Text);
ADOQuery1.FieldByName('评分').AsInteger  :=StrToInt(trim(Edit2.Text));
ADOQuery1.FieldByName('第几周').AsString :=trim(Edit4.Text );
ADOQuery1.FieldByName('年分').AsString :=trim(Edit3.Text );
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 TForm16.FormActivate(Sender: TObject);
begin
ADOQuery1.Connection :=DataModule2.ADOConnection1 ;
end;

procedure TForm16.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
    begin
      Edit4.SetFocus ;
      exit;
    end;
    
if not(Key in ['0'..'9',#8]) then
  begin
     MessageBox(handle,'只能输入数字','警告',MB_OK+MB_ICONWARNING);
    Key :=#0;
  end;  

end;

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

end;

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

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

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

end.