personinfo.pas

delphi框架可以学习, 写的很好的

unit PersonInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, RzPanel, ComCtrls, RzTreeVw, RzGroupBar, RzBorder,
  RzBckgnd, StdCtrls, RzTabs, Grids, DBGridEh, DBCtrls, RzDBEdit, RzLabel,
  RzDBLbl, jpeg, ImgList, RzButton;

type
  TfrmPersonInfo = class(TForm)
    Splitter1: TSplitter;
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    gpAIMenu: TRzGroup;
    pcNav: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    RzPanel1: TRzPanel;
    TabSheet3: TRzTabSheet;
    DataListDBGridEh: TDBGridEh;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    DBGridEh1: TDBGridEh;
    RzDBMemo1: TRzDBMemo;
    Splitter2: TSplitter;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    RzPanel2: TRzPanel;
    Image1: TImage;
    Label1: TLabel;
    RzPanel3: TRzPanel;
    RzDBLabel1: TRzDBLabel;
    Label2: TLabel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);

    procedure DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer; Column: TColumnEh);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  frmPersonInfo: TfrmPersonInfo;

implementation

uses main, dm32, MyPublic, SendMess;

{$R *.dfm}

procedure TfrmPersonInfo.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := (Params.Style xor WS_SYSMENU);
end;

procedure TfrmPersonInfo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caNone;
end;

procedure TfrmPersonInfo.FormCreate(Sender: TObject);
begin
  pcNav.ActivePageIndex := 0;
  Label1.Caption := '['+CurrentUser.EmpName+']专用资讯门户';
end;

procedure TfrmPersonInfo.FormActivate(Sender: TObject);
begin
  //生成智能菜单
  MakeAIButton(gpAIMenu, frmMain.miFast);
  //打开90天内未完成的工作记录
  OpenDataSet(dm.qryJobNote, 'SELECT * FROM JOBNOTE WHERE CLBZ='+ IntToStr(SHBZ_NOT)+
                             ' AND USERCODE ='''  + CurrentUser.UserCode + ''''+
                             ' AND WTSJ >=''' + FormatDateTime('yyyy-mm-dd',Now-90)+''''+
                             ' ORDER BY WTSJ DESC');

end;

procedure TfrmPersonInfo.DBGridEh1TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  DBGridTitleBtnClick(Sender, ACol, Column);
end;

procedure TfrmPersonInfo.RzBitBtn2Click(Sender: TObject);
begin
  //回复
  if not dm.qryJobNote.Active then Exit;
  if dm.qryJobNote.IsEmpty then Exit;

  with dm.qryJobNote do
  ShowWindows(Sender, TfrmSendMess,
              FieldByName('FZUSERCODE').AsString + ' = ' + FieldByName('FZR').AsString,
              FieldByName('WTNR').AsString);
end;

procedure TfrmPersonInfo.RzBitBtn1Click(Sender: TObject);
begin
  //忽略
  if not dm.qryJobNote.Active then Exit;
  if dm.qryJobNote.IsEmpty then Exit;

  with dm.qryJobNote do
  begin
    Edit;
    FieldByName('CLBZ').AsInteger := SHBZ_OK; 
    Post;
  end;
end;

end.