usetdefaultvalue.~pas

delphi7.0 源码 学籍管理系统源码

unit uSetDefaultValue;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, uGlobe;

type
  TdlgSetDefalutValue = class(TForm)
    Label20: TLabel;
    Label19: TLabel;
    Label18: TLabel;
    Label17: TLabel;
    Label16: TLabel;
    Label15: TLabel;
    Label14: TLabel;
    Label13: TLabel;
    Label12: TLabel;
    Label10: TLabel;
    Bevel1: TBevel;
    bbSaveDefaultValue: TBitBtn;
    bbOK: TBitBtn;
    bbCancel: TBitBtn;
    edCreateDate: TEdit;
    edSex: TEdit;
    edBirthday: TEdit;
    edPeople: TEdit;
    edNative: TEdit;
    edMOT: TEdit;
    edRegKind: TEdit;
    edRegPS: TEdit;
    edAddress: TEdit;
    edAddPS: TEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure bbSaveDefaultValueClick(Sender: TObject);
  private
    function GetEditIDFromFieldName(FieldName: string): Integer;
    procedure ResetDefalutValue;
    { Private declarations }
  public
    { Public declarations }
  end;

procedure SetDefalueValueForm;

implementation

{$R *.dfm}

procedure SetDefalueValueForm;
var
  dlgSetDefalutValue: TdlgSetDefalutValue;
begin
  dlgSetDefalutValue := TdlgSetDefalutValue.Create(nil);
  try
    if dlgSetDefalutValue.ShowModal = mrOK then
      dlgSetDefalutValue.ResetDefalutValue;
  finally
    FreeAndNil(dlgSetDefalutValue);
  end;
end;

procedure TdlgSetDefalutValue.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN then
    SelectNext(self.ActiveControl, True, True);
end;

function TdlgSetDefalutValue.GetEditIDFromFieldName(FieldName: string): Integer;
var i: integer;
begin
  for i:=0 to self.ComponentCount-1 do
    if (self.Components[i] is TEdit) and (self.Components[i].Name = 'ed'+FieldName) then begin
      Result := i;
      exit;
    end;
  Result := -1;
end;

procedure TdlgSetDefalutValue.FormCreate(Sender: TObject);
var
  i: integer;
  EditID: integer;
begin
  for i:=Low(DefalutValue) to High(DefalutValue) do begin
    EditID := GetEditIDFromFieldName(DefalutValue[i].Name);
    if EditID > 0 then
      TEdit(self.Components[EditID]).Text := DefalutValue[i].Value;
  end;
end;

procedure TdlgSetDefalutValue.bbSaveDefaultValueClick(Sender: TObject);
begin
  ResetDefalutValue;
  SetDefalutValue;
  showmessage('成功设置系统默认值!');
end;

procedure TdlgSetDefalutValue.ResetDefalutValue;
var
  i: integer;
  EditID: integer;
begin
  for i:=Low(DefalutValue) to High(DefalutValue) do begin
    EditID := GetEditIDFromFieldName(DefalutValue[i].Name);
    if EditID > 0 then
      DefalutValue[i].Value := TEdit(self.Components[EditID]).Text;
  end;
end;

end.