ruleset.pas

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

unit RuleSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildForm, StdCtrls, Buttons, ExtCtrls,DataMod, Spin, DB,
  ADODB;

type
  TfRuleSet = class(TfBaseChildForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    Panel1: TPanel;
    SpinEdit1: TSpinEdit;
    Label3: TLabel;
    SpinEdit2: TSpinEdit;
    Label5: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit3: TEdit;
    Label9: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
     Procedure DispRuleSet;
     Procedure RuleSet;
  public
    { Public declarations }
  end;

var
  fRuleSet: TfRuleSet;

implementation

{$R *.dfm}

procedure TfRuleSet.DispRuleSet;
var
  Rule:TRule;
begin
  Rule:=fdatamod.RuleGet('00001');
  Checkbox3.Checked:=Rule.Useed ;
  spinedit1.Value :=strToInt(Rule.Value );

  Rule:=fdatamod.RuleGet('00002');
  Checkbox4.Checked:=Rule.Useed ;
  spinedit2.Value :=strToInt(Rule.Value );

  Rule:=fdatamod.RuleGet('00003');
  Checkbox1.Checked:=Rule.Value='1' ;

  Rule:=fdatamod.RuleGet('00004');
  Checkbox2.Checked:=Rule.Value='1' ;

  Rule:=fdatamod.RuleGet('00005');
  edit1.Text :=Rule.Value ;

  Rule:=fdatamod.RuleGet('00006');
  edit2.Text :=Rule.Value ;

  Rule:=fdatamod.RuleGet('00007');
  edit3.Text :=Rule.Value ;

end;

procedure TfRuleSet.RuleSet;
begin
   Try
      strTofloat(edit1.Text);
      if strTofloat(edit1.Text )<=0 then begin
         application.MessageBox('叫块