othersalset.pas

pasa人力资源考勤管理系统

unit othersalset;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, DB, DBTables, DBCtrls, Mask;

type
  TFormothersalset = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Panel1: TPanel;
    Label21: TLabel;
    Label22: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Panel8: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Panel9: TPanel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Panel10: TPanel;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    Panel11: TPanel;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    save: TButton;
    cancel: TButton;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Panel15: TPanel;
    RadioButton27: TRadioButton;
    RadioButton28: TRadioButton;
    Label16: TLabel;
    Label17: TLabel;
    Panel16: TPanel;
    RadioButton29: TRadioButton;
    RadioButton30: TRadioButton;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Panel2: TPanel;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    DBEdit8: TDBEdit;
    Panel14: TPanel;
    RadioButton25: TRadioButton;
    RadioButton26: TRadioButton;
    DBEdit2: TDBEdit;
    Panel3: TPanel;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    DBEdit9: TDBEdit;
    Panel13: TPanel;
    RadioButton23: TRadioButton;
    RadioButton24: TRadioButton;
    DBEdit3: TDBEdit;
    Panel4: TPanel;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    DBEdit12: TDBEdit;
    Panel12: TPanel;
    RadioButton21: TRadioButton;
    RadioButton22: TRadioButton;
    DBEdit1: TDBEdit;
    Panel5: TPanel;
    RadioButton15: TRadioButton;
    RadioButton16: TRadioButton;
    DBEdit13: TDBEdit;
    Panel6: TPanel;
    RadioButton17: TRadioButton;
    RadioButton18: TRadioButton;
    DBEdit14: TDBEdit;
    Panel7: TPanel;
    RadioButton19: TRadioButton;
    RadioButton20: TRadioButton;
    DBEdit15: TDBEdit;
    procedure saveClick(Sender: TObject);
    procedure cancelClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure formchangelan;
  end;

var
  Formothersalset: TFormothersalset;

implementation

uses datamol,salset,main,publicfunction,cvcode;
{$R *.DFM}

procedure TFormothersalset.saveClick(Sender: TObject);
var
     i:integer;
begin
  Datamod.adoothersalset.Edit;
  for i:=0 to 14 do
   if TRadioButton(Findcomponent('RadioButton'+inttostr(i*2+1))).Checked then
     Datamod.adoothersalset.Fields[i*2].asboolean:=true
   else
     Datamod.adoothersalset.fields[i*2].asboolean:=false;
  Datamod.adoothersalset.Post;
end;

procedure TFormothersalset.cancelClick(Sender: TObject);
begin
  Close;
end;

procedure TFormothersalset.FormActivate(Sender: TObject);
var
   i:integer;
begin
     for i:=0 to 14 do
        if Datamod.adoothersalset.fields[i*2].AsBoolean then
           TRadioButton(Findcomponent('RadioButton'+inttostr(i*2+1))).Checked:=true
        else
           TRadioButton(Findcomponent('RadioButton'+inttostr(i*2+2))).Checked:=true;
end;

procedure TFormothersalset.FormCreate(Sender: TObject);
begin
   datamod.adoothersalset.open;
   formchangelan;
end;

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

procedure TFormothersalset.formchangelan;
var i,j:integer;
begin
  if language='Chinese_GB' then
  begin
       Caption:=BIG5toGB(Caption);
       Font.Charset:=GB2312_CHARSET;
       for i:=0 to ComponentCount-1 do
       begin
          if components[i].ClassType=TButton then
          begin
             TButton(components[i]).Font.Charset:=GB2312_CHARSET;
             TButton(Components[i]).Caption:=BIG5toGB(TButton(Components[i]).Caption);
             TButton(Components[i]).Hint:=BIG5toGB(TButton(Components[i]).Hint);
          end;
          if components[i].ClassType=TRadioButton then
          begin
             TRadioButton(components[i]).Font.Charset:=GB2312_CHARSET;
             TRadioButton(components[i]).Caption:=BIG5toGB(TRadioButton(Components[i]).Caption);
             TRadioButton(components[i]).Hint:=BIG5toGB(TRadioButton(Components[i]).Hint);
          end;
          if components[i].ClassType=TLabel then
          begin
             TLabel(components[i]).Font.Charset:=GB2312_CHARSET;
             TLabel(components[i]).Caption:=BIG5toGB(TLabel(Components[i]).Caption);
             TLabel(components[i]).Hint:=BIG5toGB(TLabel(Components[i]).Hint);
          end;
          if components[i].ClassType=TStaticText then
          begin
             TStaticText(components[i]).Font.Charset:=GB2312_CHARSET;
             TStaticText(Components[i]).Caption:=BIG5toGB(TStaticText(components[i]).Caption);
             TStaticText(Components[i]).Hint:=BIG5toGB(TStaticText(components[i]).Hint);
          end;
          if components[i].ClassType=TGroupBox then
          begin
             TGroupBox(components[i]).Font.Charset:=GB2312_CHARSET;
             TGroupBox(components[i]).Caption:=BIG5toGB(TGroupBox(Components[i]).Caption);
             TGroupBox(components[i]).Hint:=BIG5toGB(TGroupBox(Components[i]).Hint);
          end;
          if components[i].ClassType=TRadioGroup then
          begin
             TRadioGroup(components[i]).Font.Charset:=GB2312_CHARSET;
             TRadioGroup(components[i]).Caption:=BIG5toGB(TRadioGroup(components[i]).Caption);
             TRadioGroup(components[i]).Hint:=BIG5toGB(TRadioGroup(components[i]).Hint);
             for j:=0 to TRadioGroup(components[i]).Items.Count-1 do
                TRadioGroup(components[i]).Items.Strings[j]:=BIG5toGB(TRadioGroup(components[i]).Items.Strings[j]);
          end;
          if components[i].ClassType=TCheckBox then
          begin
             TCheckBox(components[i]).Font.Charset:=GB2312_CHARSET;
             TCheckBox(components[i]).Caption:=BIG5toGB(TCheckBox(Components[i]).Caption);
             TCheckBox(components[i]).Hint:=BIG5toGB(TCheckBox(Components[i]).Hint);
          end;
          if components[i].ClassType=TCombobox then
          begin
             TCombobox(components[i]).Font.Charset:=GB2312_CHARSET;
             TCombobox(components[i]).Hint:=BIG5toGB(TCombobox(components[i]).Hint);
             for j:=0 to TCombobox(components[i]).Items.Count-1 do
                 TCombobox(components[i]).Items.Strings[j]:=BIG5toGB(TCombobox(components[i]).Items.Strings[j]);
          end;
          if components[i].ClassType=TDBCombobox then
          begin
             TDBCombobox(components[i]).Font.Charset:=GB2312_CHARSET;
             TDBCombobox(components[i]).Hint:=BIG5toGB(TDBCombobox(components[i]).Hint);
             for j:=0 to TDBCombobox(components[i]).Items.Count-1 do
                 TDBCombobox(components[i]).Items.Strings[j]:=BIG5toGB(TDBCombobox(components[i]).Items.Strings[j]);
          end;
          if components[i].ClassType=TPanel then
          begin
             TPanel(components[i]).Font.Charset:=GB2312_CHARSET;
             TPanel(components[i]).Caption:=BIG5toGB(TPanel(components[i]).Caption);
             TPanel(components[i]).Hint:=BIG5toGB(TPanel(components[i]).Hint);
          end;
          if components[i].ClassType=TDBCheckBox then
          begin
             TDBCheckBox(components[i]).Font.Charset:=GB2312_CHARSET;
             TDBCheckBox(components[i]).Caption:=BIG5toGB(TDBCheckBox(Components[i]).Caption);
             TDBCheckBox(components[i]).Hint:=BIG5toGB(TDBCheckBox(Components[i]).Hint);
          end;
          if components[i].ClassType=TDBNavigator then
          begin
             for j:=0 to TDBNavigator(components[i]).Hints.Count-1 do
                TDBNavigator(components[i]).Hints[j]:=BIG5toGB(TDBNavigator(Components[i]).Hints[j]);
          end;
       end; //for
  end;  //if
end;

end.