formctycode.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 151 行

unit formctycode;

interface

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

type
  Tformcontrycode = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ImageList1: TImageList;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    ToolButton7: TToolButton;
    ToolButton4: TToolButton;
    DBNavigator2: TDBNavigator;
    ADOcontry: TADODataSet;
    ADOcontrycno: TStringField;
    ADOcontrycname: TStringField;
    ADOcontryename: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure ToolButton4Click(Sender: TObject);
    procedure tbnfindClick(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBNavigator2BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    f:string;
  public
    { Public declarations }
  end;

var
  formcontrycode: Tformcontrycode;

implementation

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

procedure Tformcontrycode.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   setdbgridwidth(dbgrid1,'p'+'ctycode');
   adocontry.close;
   action:=cafree;
   formcontrycode:=nil;
end;

procedure Tformcontrycode.FormCreate(Sender: TObject);
begin
   adocontry.open;
end;

procedure Tformcontrycode.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if activecontrol=dbgrid1 then
    Exit;
  if key=#13 then
   begin
    key:=#0;
    if activecontrol=dbedit3 then   //当新增输入到最后一个控件时，去自动post,并
     begin
       if adocontry.State =dsinsert then   //并继续新增下一笔，实现可以多笔一起新增
         begin                            //省去按dbnavigator上的加号按钮　　
         //try                               //当出理异常时不让它新增
           adocontry.Post;
           adocontry.append;
        // finally
        //   Application.messagebox('请检查这条记录','Error',mb_ok+mb_iconerror);
         end;
         dbedit1.SetFocus;
       end
      else
       selectnext(activecontrol,true,true);
   end;
end;

procedure Tformcontrycode.FormActivate(Sender: TObject);
begin
  getdbgridwidth(dbgrid1,'p'+'ctycode');
end;

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

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

procedure Tformcontrycode.tbnfindClick(Sender: TObject);
begin
  findrecorder(adocontry,'Adocontry','pub02010');
end;

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

procedure Tformcontrycode.DBNavigator2BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  if button=nbinsert then
    dbedit1.SetFocus;
end;

procedure Tformcontrycode.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.