unit12.pas

DELPHI7.0+SQL2005环境下开发 2008年8月假期所写

unit Unit12;
//入楼登记
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Mask;

type
  Tfrm_rldj = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    ComboBox2: TComboBox;
    Label9: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Label10: TLabel;
    ComboBox3: TComboBox;
    Edit4: TEdit;
    Label11: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_rldj: Tfrm_rldj;

implementation

uses Unit13;

{$R *.dfm}
//-----------------建立时显示信息---------------//
procedure Tfrm_rldj.FormCreate(Sender: TObject);
begin
  maskedit1.Text:=datetostr(date());
  maskedit2.Text:=timetostr(time());
  maskedit3.Text:=timetostr(time());
  with data1.ADO_public do
    begin
      close;
      sql.Clear;
      sql.Add('select 宿舍号 from 宿舍信息');
      open;
    end;
  while Not Data1.ADO_public.Eof do
   begin
     ComboBox1.Items.Add(Data1.ADO_public.FieldByName('宿舍号').Value);
     Data1.ADO_public.Next;
   end;
  with data1.ADO_yggl do
    begin
      close;
      sql.Clear;
      sql.Add('select name from 员工管理');
      open;
    end;
  while not data1.ADO_yggl.Eof do
    begin
      combobox2.Items.Add(data1.ADO_yggl.FieldByName('name').Value);
      data1.ADO_yggl.Next;
    end;
end;
//----------------------添加信息-----------------------//
procedure Tfrm_rldj.Button1Click(Sender: TObject);
begin
if Edit1.Text ='' then
begin
  MessageBox(handle,'被访人姓名不能为空!','警告',MB_OK+MB_ICONWARNING);
  Edit1.SetFocus ;
  exit;
end;
if Edit3.Text ='' then
begin
  MessageBox(handle,'所属关系不能为空!','警告',MB_OK+MB_ICONWARNING);
  Edit3.SetFocus ;
  exit;
end;
if Edit2.Text ='' then
begin
  MessageBox(handle,'来访人姓名不能为空!','警告',MB_OK+MB_ICONWARNING);
  Edit2.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;
if edit4.Text ='' then
begin
  MessageBox(handle,'证件号码不能为空!','警告',MB_OK+MB_ICONWARNING);
  edit4.SetFocus ;
  exit;
end;
try
  with data1.ado_rl do
  begin
    close;
    sql.Clear;
    sql.Add('insert 来访管理 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k)');
    parameters.ParamByName('a').Value:=trim(edit1.Text);
    parameters.ParamByName('b').Value:=trim(edit2.Text);
    parameters.ParamByName('c').Value:=trim(edit3.Text);
    parameters.ParamByName('d').Value:=trim(combobox1.Text);
    parameters.ParamByName('e').Value:=trim(combobox2.Text);
    parameters.ParamByName('f').Value:=trim(combobox3.Text);
    parameters.ParamByName('g').Value:=trim(edit4.Text);
    parameters.ParamByName('h').Value:=trim(maskedit1.Text);
    parameters.ParamByName('i').Value:=trim(maskedit2.Text);
    parameters.ParamByName('j').Value:=trim(maskedit3.Text);
    parameters.ParamByName('k').Value:=trim(memo1.Text);
    execsql;
  end;
  application.MessageBox('添加成功','提示',64);
except
  application.MessageBox('添加失败','提示',64);
end;
end;
//----------------------关闭--------------------//
procedure Tfrm_rldj.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_rldj.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8])then
begin
  key:=#0;
  application.MessageBox('证件号码只能为数字','提示',64);
end;
end;

end.