chinacalendar.~pas

来自「进销存程序设计」· ~PAS 代码 · 共 45 行

unit ChinaCalendar;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Grids, ExtCtrls, Buttons, Calendar, Db,
  DBTables, DBCtrls;

type
  TfmCalendar = class(TForm)
    Panel1: TPanel;
    MonthCombo: TComboBox;
    Calendar1: TCalendar;
    YearCombo: TComboBox;
    PriorMonthSB: TSpeedButton;
    NextMonthSB: TSpeedButton;
    OkButton: TBitBtn;
    CancelButton: TBitBtn;
    procedure MonthComboChange(Sender: TObject);
    procedure YearComboChange(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Calendar1Change(Sender: TObject);
    procedure Calendar1DblClick(Sender: TObject);
    procedure NextMonthSBClick(Sender: TObject);
    procedure PriorMonthSBClick(Sender: TObject);
  public
     DateVal:TDateTime;
  end;
  function MyCalendar(Edit: TDBEdit): Boolean;

implementation

uses PublicFunction, CheckData;

{$R *.DFM}

function MyCalendar(Edit: TDBEdit): Boolean;
var
  RectBox: TRect;
  UpperPoint, LowerPoint: TPoint;
  fmCalendar: TfmCalendar;
  sToday : String;
begin
  //