arrange.pas

pasa人力资源考勤管理系统

unit arrange;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, Grids, DBGrids, Db, ADODB, StdCtrls, Mask, ComCtrls,
  ToolWin, ImgList;

type
  Tformarrange = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    ToolButton7: TToolButton;
    ToolButton4: TToolButton;
    DBNavigator2: TDBNavigator;
    ADOarrange: TADODataSet;
    ADOarrangeprovno: TStringField;
    ADOarrangeprovname: TStringField;
    ADOarrangeparent: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure ToolButton4Click(Sender: TObject);
    procedure tbnfindClick(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    f:string;
  public
    { Public declarations }
  end;

var
  formarrange: Tformarrange;

implementation

uses datamol,publicfunction, canfind;
{$R *.DFM}

procedure Tformarrange.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   adoarrange.close;
   action:=cafree;
   formarrange:=nil;
end;

procedure Tformarrange.FormCreate(Sender: TObject);
begin
  adoarrange.open;
end;

procedure Tformarrange.DBGrid1TitleClick(Column: TColumn);
begin
   if f='DESC' then
     f:='ASC'
   else
     f:='DESC';
   adoarrange.Sort :=column.FieldName+' '+f;
end;

procedure Tformarrange.ToolButton4Click(Sender: TObject);
begin
  close;
end;

procedure Tformarrange.tbnfindClick(Sender: TObject);
begin
  if assigned(formcanfind) then  formcanfind.close;
  findrecorder(adoarrange,'Adoarrange','per03010');
end;

procedure Tformarrange.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  dbgrid_keypress(sender,key);
end;

procedure Tformarrange.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0050');
    end;
end;

end.