publicparameter.pas

pasa人力资源考勤管理系统

unit publicparameter;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, ToolEdit, ComCtrls, ToolWin, ImgList, JPEG,
  ExtDlgs, DB;

type
  TFormpublicparameter = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    insert: TToolButton;
    delete: TToolButton;
    tbsave: TToolButton;
    tbcancel: TToolButton;
    tbclose: TToolButton;
    DBNavigator1: TDBNavigator;
    Label3: TLabel;
    Label5: TLabel;
    Button1: TButton;
    DBEdit3: TDBEdit;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure FormCreate(Sender: TObject);
    procedure SaveClick(Sender: TObject);
    procedure CancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit1Exit(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
    procedure insertClick(Sender: TObject);
    procedure deleteClick(Sender: TObject);
    procedure tbcloseClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formpublicparameter: TFormpublicparameter;

implementation

uses datamol,main;

{$R *.DFM}

procedure TFormpublicparameter.FormCreate(Sender: TObject);
begin
  with datamod do
   begin
     adopublic.open;
     if adopublic.Eof then
      begin
        insert.enabled:=true;
        insert.click;
        delete.enabled:=true;
      end;
      adopublic.edit;
   end;
end;

procedure TFormpublicparameter.SaveClick(Sender: TObject);
begin
  if datamod.adopublic.state=dsInactive then datamod.adopublic.Open;
  datamod.adopublic.edit;
  worknolong:=strtoint(dbedit1.text);
  cardnolong:=strtoint(dbedit2.text);
  datamod.adopublic.post;
end;

procedure TFormpublicparameter.CancelClick(Sender: TObject);
begin
  datamod.adopublic.cancel;
end;

procedure TFormpublicparameter.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  datamod.adopublic.close;
  action:=cafree;
  formpublicparameter:=nil;
end;

procedure TFormpublicparameter.DBEdit1Exit(Sender: TObject);
begin
  if not (strtoint(dbedit1.Text)>=1) and (strtoint(dbedit1.text)<=15) then
   begin
    Application.messagebox('工号，卡号长度的位数只能是1--15','错误',mb_ok+mb_iconerror);
    dbedit1.SetFocus;
   end;
end;

procedure TFormpublicparameter.DBEdit2Exit(Sender: TObject);
begin
  if not (strtoint(dbedit2.Text)>=1) and (strtoint(dbedit2.text)<=10) then
   begin
    Application.messagebox('工号,卡号长度的位数只能是1--10','提示',mb_ok+mb_iconinformation);
    dbedit2.SetFocus;
   end;
end;

procedure TFormpublicparameter.insertClick(Sender: TObject);
begin
     datamod.adopublic.Insert;
end;

procedure TFormpublicparameter.deleteClick(Sender: TObject);
begin
    if application.messagebox(pchar('你确定要删除这笔共用参数设定吗？删除后若不新增读卡或'+#13#10+'打印厂证等时会出错'),'重要提示',mb_okcancel+mb_iconerror)=idok then
    begin
       datamod.adopublic.delete;
       delete.Enabled:=false;
    end;
end;

procedure TFormpublicparameter.tbcloseClick(Sender: TObject);
begin
     close;
end;

procedure TFormpublicparameter.FormKeyPress(Sender: TObject;
  var Key: Char);
begin
     if key=#13 then
     begin
         selectnext(activecontrol,true,true);
         key:=#0;
     end;
end;

procedure TFormpublicparameter.FormActivate(Sender: TObject);
begin
     left:=5;
     top:=3;
end;

procedure TFormpublicparameter.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0054');
    end;
end;

procedure TFormpublicparameter.Button1Click(Sender: TObject);
begin
  if openpicturedialog1.execute then
  begin
     if datamod.adopublic.state=dsinactive then datamod.adopublic.Open;
     datamod.adopublic.edit;
     datamod.ADOpublicbackpic.asstring:=openpicturedialog1.filename;
     datamod.adopublic.post;
  end;
end;

end.