termdefinefrm.~pas

delphi 编制的服务器程序

unit TermDefineFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DbChildFrm, DB, ADODB, ImgList, StdCtrls, Grids, DBGrids,
  ComCtrls, Buttons, ExtCtrls, Mask, DBCtrls, DBDateTimePicker;

type
  TTermDefineForm = class(TDbChildForm)
    ADOQuery1TermCode: TWideStringField;
    ADOQuery1TermCaption: TWideStringField;
    ADOQuery1ValidateB: TDateTimeField;
    ADOQuery1ValidateE: TDateTimeField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBDateTimePicker1: TDBDateTimePicker;
    DBDateTimePicker2: TDBDateTimePicker;
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TermDefineForm: TTermDefineForm;
   procedure CallTermDefineForm;
implementation

uses MainDm;

{$R *.dfm}
procedure CallTermDefineForm;
begin
  if TermDefineForm = nil then
    TermDefineForm := TTermDefineForm.Create(Application);
  TermDefineForm.ShowModal;
  TermDefineForm.Free;
  TermDefineForm := nil;
end;
procedure TTermDefineForm.ADOQuery1AfterInsert(DataSet: TDataSet);
var
  y: string;
  m: Integer;
begin
  inherited;
  AdoQuery1ValidateB.Value := Now;
  AdoQuery1ValidateE.Value := Now + 31*5 + 20;
  y := FormatDateTime('yyyy',Now);
  m := StrToInt(FormatDateTime('mm',Now));
  if (m>1) and (m<7) then
  begin
    AdoQuery1TermCode.Value := y+'01';
    AdoQuery1TermCaption.Value := y+'年上学期';
  end
  else
  begin
    AdoQuery1TermCode.Value := y+'02';
    AdoQuery1TermCaption.Value := y+'年下学期';
  end;
end;

end.