开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DbDatesF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

DbDatesF.pas：源码内容
  1. unit DbDatesF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ComCtrls, StdCtrls, Mask, DBCtrls, Db, DBTables, ExtCtrls,
  8.   Grids, DBGrids, DBCGrids;
  10. type
  11.   TForm1 = class(TForm)
  12.     Table1: TTable;
  13.     DBEdit2: TDBEdit;
  14.     DBNavigator1: TDBNavigator;
  15.     Table1EventNo: TAutoIncField;
  16.     Table1VenueNo: TIntegerField;
  17.     Table1Event_Name: TStringField;
  18.     Table1Event_Date: TDateField;
  19.     Table1Event_Time: TTimeField;
  20.     Table1Event_Description: TMemoField;
  21.     Table1Ticket_price: TCurrencyField;
  22.     Table1Event_Photo: TGraphicField;
  23.     DBImage1: TDBImage;
  24.     DBGrid1: TDBGrid;
  25.     Label2: TLabel;
  26.     DataSource1: TDataSource;
  27.     MonthCalendar1: TMonthCalendar;
  28.     procedure DataSource1DataChange(Sender: TObject; Field: TField);
  29.     procedure MonthCalendar1Click(Sender: TObject);
  30.     procedure DataSource1UpdateData(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  37. var
  38.   Form1: TForm1;
  40. implementation
  42. {$R *.DFM}
  44. procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
  45. begin
  46.   MonthCalendar1.Date := Table1Event_Date.Value;
  47. end;
  49. procedure TForm1.MonthCalendar1Click(Sender: TObject);
  50. begin
  51.   // disconnect handler
  52.   DataSource1.OnDataChange := nil;
  53.   // set table in edit mode
  54.   Table1.Edit;
  55.   // reconnect handler
  56.   DataSource1.OnDataChange := DataSource1DataChange;
  57. end;
  59. procedure TForm1.DataSource1UpdateData(Sender: TObject);
  60. begin
  61.   Table1Event_Date.Value := MonthCalendar1.Date;
  62. end;
  64. end.