unit visit;

interface

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

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;
    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.