unit Unit14;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids, DBGrids, DB;

type
  Tfrm_lfjs = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    ComboBox2: TComboBox;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    ComboBox3: TComboBox;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_lfjs: Tfrm_lfjs;

implementation

uses Unit13;

{$R *.dfm}
//-----------------數據顯示---------------------//
procedure Tfrm_lfjs.DBGrid1CellClick(Column: TColumn);
begin
  edit1.Text := data1.ADO_rl.fieldbyname('被訪人姓名').Value;
  edit2.Text := data1.ADO_rl.fieldbyname('來訪人姓名').Value;
  edit3.Text := data1.ADO_rl.fieldbyname('所屬關系').Value;
  combobox1.Text := data1.ADO_rl.fieldbyname('宿舍號').Value;
  combobox2.Text := data1.ADO_rl.fieldbyname('值班人員').Value;
  combobox3.Text := data1.ADO_rl.fieldbyname('證件名稱').Value;
  edit4.Text := data1.ADO_rl.fieldbyname('證件號碼').Value;
  edit5.Text := data1.ADO_rl.fieldbyname('來訪日期').Value;
  edit6.Text := data1.ADO_rl.fieldbyname('來訪時間').Value;
  edit7.Text := data1.ADO_rl.fieldbyname('結束時間').Value;
  memo1.Text := data1.ADO_rl.fieldbyname('備注').Value;
end;
//---------------------CHECK來訪問人員------------------//
procedure Tfrm_lfjs.FormCreate(Sender: TObject);
begin
  with data1.ADO_rl do
    begin
      close;
      sql.Clear;
      sql.Add('select * from 來訪管理 where 來訪日期=:A and 來訪時間=結束時間');
      Parameters.ParamByName('A').Value :=DateToStr(date);
      open;
    end;
end;
//-------------------關閉----------------------//
procedure Tfrm_lfjs.Button2Click(Sender: TObject);
begin
  close;
end;
//----------------結束來訪--------------//
procedure Tfrm_lfjs.Button1Click(Sender: TObject);
begin
if Edit1.Text ='' then
begin
  MessageBox(handle,'請選擇!','警告',MB_OK+MB_ICONWARNING);
  exit;
end;
try
  with data1.ADO_public do
    begin
      close;
      sql.Clear;
      sql.Add('update 來訪管理 set 結束時間=:a,備注=:b where 被訪人姓名=:c and 來訪時間=:d');
      parameters.ParamByName('a').Value:=trim(edit7.Text);
      parameters.ParamByName('b').Value:=trim(memo1.Text);
      parameters.ParamByName('c').Value:=trim(edit1.Text);
      parameters.ParamByName('d').Value:=trim(edit6.Text);
      execsql;
    end;
    application.MessageBox('成功','提示',64);
  with data1.ADO_rl do
    begin
      close;
      sql.Clear;
      sql.Add('select * from 來訪管理 where 來訪日期=:A and 來訪時間=結束時間');
      Parameters.ParamByName('A').Value :=DateToStr(date);
      open;
    end;
except
  application.MessageBox('請選擇學生','失敗',64);
end;
end;

end.