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

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

Delphi控件源码

开发平台：

Delphi

NullDatesForm.pas：源码内容
  1. unit NullDatesForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, StdCtrls, Mask, DBCtrls, DBTables, ExtCtrls, Grids, DBGrids;
  9. type
  10.   TForm1 = class(TForm)
  11.     Table1: TTable;
  12.     Table1OrderNo: TFloatField;
  13.     Table1CustNo: TFloatField;
  14.     Table1SaleDate: TDateTimeField;
  15.     Table1ShipDate: TDateTimeField;
  16.     Table1EmpNo: TIntegerField;
  17.     Table1ShipToContact: TStringField;
  18.     Table1ShipToAddr1: TStringField;
  19.     Table1ShipToAddr2: TStringField;
  20.     Table1ShipToCity: TStringField;
  21.     Table1ShipToState: TStringField;
  22.     Table1ShipToZip: TStringField;
  23.     Table1ShipToCountry: TStringField;
  24.     Table1ShipToPhone: TStringField;
  25.     Table1ShipVIA: TStringField;
  26.     Table1PO: TStringField;
  27.     Table1Terms: TStringField;
  28.     Table1PaymentMethod: TStringField;
  29.     Table1ItemsTotal: TCurrencyField;
  30.     Table1TaxRate: TFloatField;
  31.     Table1Freight: TCurrencyField;
  32.     Table1AmountPaid: TCurrencyField;
  33.     Label1: TLabel;
  34.     DBEdit1: TDBEdit;
  35.     DataSource1: TDataSource;
  36.     Label2: TLabel;
  37.     DBEdit2: TDBEdit;
  38.     Label3: TLabel;
  39.     DBEdit3: TDBEdit;
  40.     Label4: TLabel;
  41.     DBEdit4: TDBEdit;
  42.     Label5: TLabel;
  43.     DBEdit5: TDBEdit;
  44.     DBNavigator1: TDBNavigator;
  45.     DBGrid1: TDBGrid;
  46.     procedure Table1ShipDateGetText(Sender: TField; var Text: String;
  47.       DisplayText: Boolean);
  48.     procedure Table1ShipDateSetText(Sender: TField; const Text: String);
  49.   private
  50.     { Private declarations }
  51.   public
  52.     { Public declarations }
  53.   end;
  55. var
  56.   Form1: TForm1;
  58. implementation
  60. {$R *.DFM}
  62. procedure TForm1.Table1ShipDateGetText(Sender: TField;
  63.   var Text: String; DisplayText: Boolean);
  64. begin
  65.   if Sender.IsNull then
  66.     Text := '<undefined>'
  67.   else
  68.     Text := Sender.AsString;
  69. end;
  71. procedure TForm1.Table1ShipDateSetText(Sender: TField;
  72.   const Text: String);
  73. begin
  74.   if Text = '' then
  75.     Sender.Clear
  76.   else
  77.     Sender.AsString := Text;
  78. end;
  80. end.