moneysetunit.pas

人事管理系统帮助人们管理复杂的关系

unit MoneySetUnit;

interface

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

type
  TMoneySetForm = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Panel1: TPanel;
    BtDataSave: TSpeedButton;
    btExit: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure BtDataSaveClick(Sender: TObject);
    procedure btExitClick(Sender: TObject);
  private
    { Private declarations }

  procedure DataShow;

  Procedure DataSave;

  public
    { Public declarations }
  end;

var
  MoneySetForm: TMoneySetForm;

implementation

uses DataMUnit;

{$R *.dfm}
Procedure TMoneySetForm.DataShow;
begin

  if DataM.ADOMoney.FieldValues['迟到'] = NULL then
    edit1.Text := ''
  else
    edit1.Text := DataM.ADOMoney.FieldValues['迟到'];

  if DataM.ADOMoney.FieldValues['缺勤'] = NULL then
    edit2.Text := ''
  else
    edit2.Text := DataM.ADOMoney.FieldValues['缺勤'];

  if DataM.ADOMoney.FieldValues['病假'] = NULL then
    edit3.Text := ''
  else
    edit3.Text := DataM.ADOMoney.FieldValues['病假'];

  if DataM.ADOMoney.FieldValues['事假'] = NULL then
    edit4.Text := ''
  else
    edit4.Text := DataM.ADOMoney.FieldValues['事假'];

  if DataM.ADOMoney.FieldValues['公休'] = NULL then
    edit5.Text := ''
  else
    edit5.Text := DataM.ADOMoney.FieldValues['公休'];

  if DataM.ADOMoney.FieldValues['出差'] = NULL then
    edit6.Text := ''
  else
    edit6.Text := DataM.ADOMoney.FieldValues['出差'];

  if DataM.ADOMoney.FieldValues['加班'] = NULL then
    edit7.Text := ''
  else
    edit7.Text := DataM.ADOMoney.FieldValues['加班'];


end;

Procedure TMoneySetForm.DataSave;
begin

  DataM.ADOMoney.FieldByName('迟到').AsString := Trim(edit1.Text);
  DataM.ADOMoney.FieldByName('缺勤').AsString := Trim(edit2.Text);
  DataM.ADOMoney.FieldByName('病假').AsString := Trim(edit3.Text);
  DataM.ADOMoney.FieldByName('事假').AsString := Trim(edit4.Text);
  DataM.ADOMoney.FieldByName('公休').AsString := Trim(edit5.Text);
  DataM.ADOMoney.FieldByName('出差').AsString := Trim(edit6.Text);
  DataM.ADOMoney.FieldByName('加班').AsString := Trim(edit7.Text);

end;

procedure TMoneySetForm.FormShow(Sender: TObject);
begin

  if DataM.ADOMoney.Active = true then
    DataM.ADOMoney.Close;
  DataM.ADOMoney.SQL.Clear;
  DataM.ADOMoney.SQL.Text:='select * from GZ ';
  DataM.ADOMoney.Open;

  DataShow;
end;

procedure TMoneySetForm.BtDataSaveClick(Sender: TObject);
var sel:integer;
begin
  sel:=MessageBox(0,'是否保存当前设置？','人事管理系统V2.0 ',MB_YESNO+MB_ICONQUESTION);

  if sel = IDYES then
    begin
      DataM.ADOMoney.Edit;
      DataSave;
      DataM.ADOMoney.Post;
      MessageBox(0,'保存设置成功！','人事管理系统V2.0 ',MB_YESNO+MB_ICONINFORMATION);
    end;

end;

procedure TMoneySetForm.btExitClick(Sender: TObject);
begin
  MoneySetForm.Close;
end;

end.