?? unit14.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -