classtype.pas

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

unit ClassType;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseEditForm, ImgList, DB, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls,
  ComCtrls, StdCtrls, Buttons,DataMod, ADODB, wwdbedit, Mask, DBCtrls,
  Wwdbspin;

type
  TfClassType = class(TfBaseEditForm)
    ADOQuery1: TADOQuery;
    ADOQuery1cClassNo: TStringField;
    ADOQuery1cClassName: TStringField;
    ADOQuery1cDescription: TStringField;
    ADOQuery1cIn1: TStringField;
    ADOQuery1iInRange1: TIntegerField;
    ADOQuery1cOut1: TStringField;
    ADOQuery1iOutRange1: TIntegerField;
    ADOQuery1cIn2: TStringField;
    ADOQuery1iInRange2: TIntegerField;
    ADOQuery1cOut2: TStringField;
    ADOQuery1iOutRange2: TIntegerField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    wwDBEdit1: TwwDBEdit;
    wwDBSpinEdit1: TwwDBSpinEdit;
    Label17: TLabel;
    wwDBEdit2: TwwDBEdit;
    wwDBSpinEdit2: TwwDBSpinEdit;
    DBMemo1: TDBMemo;
    GroupBox2: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    wwDBEdit3: TwwDBEdit;
    wwDBSpinEdit3: TwwDBSpinEdit;
    wwDBEdit4: TwwDBEdit;
    wwDBSpinEdit4: TwwDBSpinEdit;
    Label20: TLabel;
    Label21: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DBRadioGroup1: TDBRadioGroup;
    ADOQuery1iCardTimes: TIntegerField;
    ADOQuery1cDayNight: TStringField;
    Label16: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    ADOQuery1iFreeTime: TIntegerField;
    ADOQuery1iStdTime: TIntegerField;
    ADOQuery1StdOvertime: TIntegerField;
    ADOQuery1iOverTime: TIntegerField;
    Label25: TLabel;
    wwDBEdit5: TwwDBEdit;
    ADOQuery1cIn3: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure wwDBEdit1Exit(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure ADOQuery1CalcFields(DataSet: TDataSet);
    procedure ADOQuery1BeforePost(DataSet: TDataSet);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  fClassType: TfClassType;

implementation

{$R *.dfm}

procedure TfClassType.FormCreate(Sender: TObject);
begin
  inherited;
  self.FirstFocusControl :=dbedit1;
end;



procedure TfClassType.wwDBEdit1Exit(Sender: TObject);
begin
  inherited;
  
  if Not fdatamod.ValidTime(twwdbedit(Sender).Text,true) then begin
     application.MessageBox('叫块