unit14.pas

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

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.