visit.pas

一个用Delphi做的不错的学生宿舍管理系统！界面比前一个好看！

unit visit;

interface

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

type
  TVisitForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Bevel1: TBevel;
    Memo1: TMemo;
    Bevel2: TBevel;
    BTSubmit: TButton;
    BTCancel: TButton;
    LHREdit: TEdit;
    YHREdit: TEdit;
    GSTime: TDateTimePicker;
    GXComboBox: TComboBox;
    ZPRComboBox: TComboBox;
    ZJMZComboBox: TComboBox;
    LHTime: TDateTimePicker;
    SpeedButton1: TSpeedButton;
    Label9: TLabel;
    XPMenu1: TXPMenu;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BTSubmitClick(Sender: TObject);
    procedure BTCancelClick(Sender: TObject);
  private

    { Private declarations }
  public
   Flags:boolean;
    { Public declarations }
  end;

var
  VisitForm: TVisitForm;

implementation

uses MD,ShowR;

{$R *.dfm}

procedure TVisitForm.FormCreate(Sender: TObject);
begin
//自动获得值班人的姓名；通过查找员工表中的职位名称为保安的记录
with datamd.ADOEmpleer do
begin
 close;
 sql.Clear;
 sql.Add('select * from empleer where 职位='''+'保安'+'''');
 open;
while not eof do
 begin
 ZpRcombobox.Items.Add(fieldbyname('姓名').AsString);
 next;
 end;
 end;
end;

procedure TVisitForm.SpeedButton1Click(Sender: TObject);
begin
if YHREdit.Text<>'' then
  begin
   application.CreateForm(TShowRForm,ShowRForm);
   ShowRForm.ShowModal;
   showRForm.Free;
  end
else
  begin
  showmessage('请输入要查询人的姓名!!!!');
  yhredit.SetFocus;
  end;
end;

procedure TVisitForm.BTSubmitClick(Sender: TObject);
begin
if (LHRedit.Text<>'') and (YHRedit.Text<>'') and flags then
begin
  with datamd.ADOVisit do
   begin
    close;
    sql.Clear;
    sql.Add('select * from visit');
    open;
    append;
    fieldbyname('要访姓名').AsString:=yhredit.Text;
    fieldbyname('来访姓名').AsString:=lhredit.Text;
    fieldbyname('所属关系').AsString:=GXcombobox.Text;
    fieldbyname('来访时间').AsDateTime:=lhtime.Time;
    fieldbyname('结束时间').AsDateTime:=GStime.Time;
    fieldbyname('值班人').AsString:=zprcombobox.Text;
    fieldbyname('证件名称').AsString:=zjmzcombobox.Text;
    fieldbyname('备注').AsVariant:=memo1.Text;
    if messagedlg('请确认数据的无误',mtconfirmation,[mbYes,mbNo],0)=mryes then
     begin
     post;
     showmessage('插入成功！！！！');
     end
   else
     cancel;
   end;
 end
else
 showmessage('请先查询后。再录入');
end;

procedure TVisitForm.BTCancelClick(Sender: TObject);
begin
close;
end;

end.