hint1.pas

职工信息管理系统的源代码

unit hint1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TFlatMemoUnit;

type
  Thint_form = class(TForm)
    Memo1: TFlatMemo;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hint_form: Thint_form;

implementation

uses gzb1, quan;

{$R *.dfm}

procedure Thint_form.FormShow(Sender: TObject);
begin
hint_form.Top:=gzb.top+45;
hint_form.Left:=gzb.left+gzb.width+5;
memo1.Lines.Clear;
if  qu.cf(gzb.gzb.fieldbyname('职工编号').AsString)='' then
begin
memo1.Lines.Add('');
memo1.Lines.Add('暂无此项职工详细信息，要想添加此信息请在"职工信息"窗口中单击"添加"添加信息');
end
else
begin
memo1.Lines.Add('');
memo1.Lines.Add('信息如下：');
memo1.Lines.Add('');
memo1.Lines.Add('职工编号：'+qu.cf(gzb.gzb.fieldbyname('职工编号').AsString));
memo1.Lines.Add('');
memo1.Lines.Add('所在部门：'+qu.cf(gzb.bmb.fieldbyname('部门名称').AsString));
memo1.Lines.Add('');
memo1.Lines.Add('职称：'+qu.cf(gzb.zgb.fieldbyname('职称').AsString));
memo1.Lines.Add('');
memo1.Lines.Add('出生日期：'+(gzb.zgb.fieldbyname('date').AsString));
memo1.Lines.Add('');
memo1.Lines.Add('性别：'+qu.cf(gzb.zgb.fieldbyname('性别').AsString));
memo1.Lines.Add('');
end;
end;

end.