hint2.pas

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

unit hint2;

interface

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

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

var
  hint_zgb: Thint_zgb;

implementation

uses quan, zgb1;

{$R *.dfm}

procedure Thint_zgb.FormShow(Sender: TObject);
begin
hint_zgb.Top:=zgb.top+45;
hint_zgb.Left:=zgb.left+zgb.width+5;
hint_zgb.Memo1.Lines.Clear;
if qu.cf(zgb.gzb.fieldbyname('职工编号').asstring)='' then
begin
hint_zgb.Memo1.Lines.Add('');
hint_zgb.Memo1.Lines.Add('暂无此职工的工资信息，请打开"工资信息"窗口，添加工资信息');
end
else
begin
hint_zgb.Memo1.Lines.Add('');
hint_zgb.Memo1.Lines.Add('信息如下：');
hint_zgb.Memo1.Lines.Add('');
hint_zgb.Memo1.Lines.Add('旷工次数:'+qu.cf(zgb.gzb.fieldbyname('旷工').AsString));
hint_zgb.Memo1.Lines.add('');
hint_zgb.Memo1.Lines.Add('事假次数:'+qu.cf(zgb.gzb.fieldbyname('事假').AsString));
hint_zgb.Memo1.Lines.Add('');
hint_zgb.Memo1.Lines.add('迟到次数:'+qu.cf(zgb.gzb.fieldbyname('迟到').AsString));
hint_zgb.Memo1.Lines.Add('');
hint_zgb.Memo1.Lines.add('奖金:'+qu.cf(zgb.gzb.fieldbyname('奖金').AsString));
end;

end;

end.