jiangchengrule.pas

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

unit jiangchengrule;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ExtCtrls, StdCtrls, Db, ADODB, Grids, DBGrids, DBCtrls, Mask;

type
  Tformjiangchengrule = class(TForm)
    DataSource1: TDataSource;
    adobeforedecafter: TADODataSet;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure adobeforedecafterBeforePost(DataSet: TDataSet);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formjiangchengrule: Tformjiangchengrule;

implementation

uses datamol,publicfunction,main;

{$R *.DFM}


procedure Tformjiangchengrule.FormActivate(Sender: TObject);
begin
  adobeforedecafter.Open;
  if (adobeforedecafter.FieldByName('beforedecafter').asstring='前功补後过') then
      radiobutton1.Checked:=true
  else if adobeforedecafter.fieldbyname('beforedecafter').asstring='後功补前过' then
     radiobutton2.checked:=true;
end;

procedure Tformjiangchengrule.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  {if adoquery1.Modified then
     if application.messagebox('你是否要对所做的修改进行保存？','保存确认',mb_okcancel+mb_iconquestion)=idok then
        begin
        adoquery1.post;
        adoquery1.close;
        end
        else
        adoquery1.cancel;
        adoquery1.close;  }
 end;

procedure Tformjiangchengrule.adobeforedecafterBeforePost(
  DataSet: TDataSet);
begin
  dismissdot:=adobeforedecafter.fieldbyname('dismissdot').asinteger;
  if radiobutton1.Checked then
    begin
     adobeforedecafter.FieldByName('beforedecafter').asstring:='前功补後过';
     beforedecafter:='前功补後过';
     end
  else
    begin
     adobeforedecafter.fieldbyname('beforedecafter').asstring:='後功补前过';
     beforedecafter:='後功补前过';
     end;
end;

procedure Tformjiangchengrule.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tformjiangchengrule.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  adobeforedecafter.close;
end;

procedure Tformjiangchengrule.BitBtn1Click(Sender: TObject);
begin
  adobeforedecafter.Post;
end;

procedure Tformjiangchengrule.BitBtn3Click(Sender: TObject);
begin
  adobeforedecafter.Edit;
end;

end.