sformunit.pas

函数查看器

unit sFormUnit;

interface

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

type
  TsForm = class(TForm)
    _ado: TADOQuery;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button3: TButton;
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sForm: TsForm;

implementation

{$R *.dfm}

procedure TsForm.FormShow(Sender: TObject);
begin
  Button1Click(Sender);
end;

procedure TsForm.DBGrid1DblClick(Sender: TObject);
var s,ss,d:string;
begin
  s:=_ado.FieldByName('姓名').AsString;
  ss:=_ado.FieldByName('单位').AsString;
  if ss<>'' then d:=ss+' '+s else d:=s;
  if application.MessageBox(pchar('是否为 '+d+'  签到？'),'提示',MB_YESNO)=IDNO then exit;
  _ado.Edit;
  _ado.FieldByName('签到').AsString:='是';
  _ado.FieldByName('时间').AsDateTime:=now;
  _ado.Post;
  button1click(sender);
end;

procedure TsForm.Button1Click(Sender: TObject);
var i:integer;
begin
  with _ado do
  begin
    close;
    sql.clear;
    sql.add('SELECT * FROM list where (姓名 like ''%'+edit1.Text+'%'') and (签到=''否'') order by 单位');
    open;
  end;
  for i:=0 to sform.DBGrid1.Columns.Count-1 do sform.DBGrid1.Columns[i].Visible:=false;
  sform.DBGrid1.Columns[1].Visible:=true;
  sform.DBGrid1.Columns[1].Width:=65;
  sform.DBGrid1.Columns[2].Visible:=true;
  sform.DBGrid1.Columns[2].Width:=35;
  sform.DBGrid1.Columns[3].Visible:=true;
  sform.DBGrid1.Columns[3].Width:=180;
  sform.DBGrid1.Columns[10].Visible:=true;
  sform.DBGrid1.Columns[10].Width:=65;
  sform.DBGrid1.Columns[11].Visible:=true;
  sform.DBGrid1.Columns[11].Width:=30;
end;

procedure TsForm.Button2Click(Sender: TObject);
var i:integer;
begin
  with _ado do
  begin
    close;
    sql.clear;
    sql.add('SELECT * FROM list where (签到=''否'') order by 单位');
    open;
  end;
  for i:=0 to sform.DBGrid1.Columns.Count-1 do sform.DBGrid1.Columns[i].Visible:=false;
  sform.DBGrid1.Columns[1].Visible:=true;
  sform.DBGrid1.Columns[1].Width:=65;
  sform.DBGrid1.Columns[2].Visible:=true;
  sform.DBGrid1.Columns[2].Width:=35;
  sform.DBGrid1.Columns[3].Visible:=true;
  sform.DBGrid1.Columns[3].Width:=180;
  sform.DBGrid1.Columns[10].Visible:=true;
  sform.DBGrid1.Columns[10].Width:=65;
  sform.DBGrid1.Columns[11].Visible:=true;
  sform.DBGrid1.Columns[11].Width:=30;
end;

procedure TsForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) Then
  begin
    key:=#0;
    //sform.Perform(WM_NEXTDLGCTL,0,0);
    sform.Button1Click(sender);
  end;
end;

procedure TsForm.Button3Click(Sender: TObject);
var i:integer;
begin
  with _ado do
  begin
    close;
    sql.clear;
    sql.add('SELECT * FROM list where (姓名 like ''%'+edit1.Text+'%'') order by 单位');
    open;
  end;
  for i:=0 to sform.DBGrid1.Columns.Count-1 do sform.DBGrid1.Columns[i].Visible:=false;
  sform.DBGrid1.Columns[1].Visible:=true;
  sform.DBGrid1.Columns[1].Width:=65;
  sform.DBGrid1.Columns[2].Visible:=true;
  sform.DBGrid1.Columns[2].Width:=35;
  sform.DBGrid1.Columns[3].Visible:=true;
  sform.DBGrid1.Columns[3].Width:=180;
  sform.DBGrid1.Columns[10].Visible:=true;
  sform.DBGrid1.Columns[10].Width:=65;
  sform.DBGrid1.Columns[11].Visible:=true;
  sform.DBGrid1.Columns[11].Width:=30;
end;

end.