NullDatesForm.dfm
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:5k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 107
  4.   Width = 742
  5.   Height = 292
  6.   Caption = 'Null Dates'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Label1: TLabel
  17.     Left = 48
  18.     Top = 48
  19.     Width = 40
  20.     Height = 13
  21.     Caption = 'OrderNo'
  22.     FocusControl = DBEdit1
  23.   end
  24.   object Label2: TLabel
  25.     Left = 48
  26.     Top = 88
  27.     Width = 35
  28.     Height = 13
  29.     Caption = 'CustNo'
  30.     FocusControl = DBEdit2
  31.   end
  32.   object Label3: TLabel
  33.     Left = 48
  34.     Top = 128
  35.     Width = 44
  36.     Height = 13
  37.     Caption = 'SaleDate'
  38.     FocusControl = DBEdit3
  39.   end
  40.   object Label4: TLabel
  41.     Left = 48
  42.     Top = 168
  43.     Width = 44
  44.     Height = 13
  45.     Caption = 'ShipDate'
  46.     FocusControl = DBEdit4
  47.   end
  48.   object Label5: TLabel
  49.     Left = 48
  50.     Top = 208
  51.     Width = 35
  52.     Height = 13
  53.     Caption = 'EmpNo'
  54.     FocusControl = DBEdit5
  55.   end
  56.   object DBEdit1: TDBEdit
  57.     Left = 48
  58.     Top = 64
  59.     Width = 64
  60.     Height = 21
  61.     Color = clWindow
  62.     DataField = 'OrderNo'
  63.     DataSource = DataSource1
  64.     TabOrder = 0
  65.   end
  66.   object DBEdit2: TDBEdit
  67.     Left = 48
  68.     Top = 104
  69.     Width = 64
  70.     Height = 21
  71.     Color = clWindow
  72.     DataField = 'CustNo'
  73.     DataSource = DataSource1
  74.     TabOrder = 1
  75.   end
  76.   object DBEdit3: TDBEdit
  77.     Left = 48
  78.     Top = 144
  79.     Width = 169
  80.     Height = 21
  81.     Color = clWindow
  82.     DataField = 'SaleDate'
  83.     DataSource = DataSource1
  84.     TabOrder = 2
  85.   end
  86.   object DBEdit4: TDBEdit
  87.     Left = 48
  88.     Top = 184
  89.     Width = 169
  90.     Height = 21
  91.     Color = clWindow
  92.     DataField = 'ShipDate'
  93.     DataSource = DataSource1
  94.     TabOrder = 3
  95.   end
  96.   object DBEdit5: TDBEdit
  97.     Left = 48
  98.     Top = 224
  99.     Width = 64
  100.     Height = 21
  101.     Color = clWindow
  102.     DataField = 'EmpNo'
  103.     DataSource = DataSource1
  104.     TabOrder = 4
  105.   end
  106.   object DBNavigator1: TDBNavigator
  107.     Left = 16
  108.     Top = 16
  109.     Width = 240
  110.     Height = 25
  111.     DataSource = DataSource1
  112.     TabOrder = 5
  113.   end
  114.   object DBGrid1: TDBGrid
  115.     Left = 272
  116.     Top = 16
  117.     Width = 449
  118.     Height = 225
  119.     DataSource = DataSource1
  120.     TabOrder = 6
  121.     TitleFont.Charset = DEFAULT_CHARSET
  122.     TitleFont.Color = clWindowText
  123.     TitleFont.Height = -11
  124.     TitleFont.Name = 'MS Sans Serif'
  125.     TitleFont.Style = []
  126.   end
  127.   object Table1: TTable
  128.     Active = True
  129.     DatabaseName = 'DBDEMOS'
  130.     TableName = 'orders.db'
  131.     Left = 200
  132.     Top = 56
  133.     object Table1OrderNo: TFloatField
  134.       FieldName = 'OrderNo'
  135.       DisplayFormat = #39'#'#39'0000'
  136.     end
  137.     object Table1CustNo: TFloatField
  138.       Alignment = taLeftJustify
  139.       CustomConstraint = 'CustNo IS NOT NULL'
  140.       ConstraintErrorMessage = 'CustNo cannot be blank'
  141.       FieldName = 'CustNo'
  142.       Required = True
  143.       DisplayFormat = 'CN 0000'
  144.       MaxValue = 9999
  145.       MinValue = 1000
  146.     end
  147.     object Table1SaleDate: TDateTimeField
  148.       FieldName = 'SaleDate'
  149.     end
  150.     object Table1ShipDate: TDateTimeField
  151.       FieldName = 'ShipDate'
  152.       OnGetText = Table1ShipDateGetText
  153.       OnSetText = Table1ShipDateSetText
  154.     end
  155.     object Table1EmpNo: TIntegerField
  156.       CustomConstraint = 'Value > 0'
  157.       ConstraintErrorMessage = 'EmpNo cannot be 0 or negative'
  158.       FieldName = 'EmpNo'
  159.       Required = True
  160.       DisplayFormat = 'Emp'#39'#'#39' 0000'
  161.       MaxValue = 9999
  162.       MinValue = 1
  163.     end
  164.     object Table1ShipToContact: TStringField
  165.       FieldName = 'ShipToContact'
  166.     end
  167.     object Table1ShipToAddr1: TStringField
  168.       FieldName = 'ShipToAddr1'
  169.       Size = 30
  170.     end
  171.     object Table1ShipToAddr2: TStringField
  172.       FieldName = 'ShipToAddr2'
  173.       Size = 30
  174.     end
  175.     object Table1ShipToCity: TStringField
  176.       FieldName = 'ShipToCity'
  177.       Size = 15
  178.     end
  179.     object Table1ShipToState: TStringField
  180.       FieldName = 'ShipToState'
  181.     end
  182.     object Table1ShipToZip: TStringField
  183.       FieldName = 'ShipToZip'
  184.       Size = 10
  185.     end
  186.     object Table1ShipToCountry: TStringField
  187.       FieldName = 'ShipToCountry'
  188.     end
  189.     object Table1ShipToPhone: TStringField
  190.       FieldName = 'ShipToPhone'
  191.       Size = 15
  192.     end
  193.     object Table1ShipVIA: TStringField
  194.       FieldName = 'ShipVIA'
  195.       Size = 7
  196.     end
  197.     object Table1PO: TStringField
  198.       FieldName = 'PO'
  199.       Size = 15
  200.     end
  201.     object Table1Terms: TStringField
  202.       FieldName = 'Terms'
  203.       Size = 6
  204.     end
  205.     object Table1PaymentMethod: TStringField
  206.       FieldName = 'PaymentMethod'
  207.       Size = 7
  208.     end
  209.     object Table1ItemsTotal: TCurrencyField
  210.       FieldName = 'ItemsTotal'
  211.     end
  212.     object Table1TaxRate: TFloatField
  213.       FieldName = 'TaxRate'
  214.       DisplayFormat = '0.00%'
  215.       MaxValue = 100
  216.     end
  217.     object Table1Freight: TCurrencyField
  218.       FieldName = 'Freight'
  219.     end
  220.     object Table1AmountPaid: TCurrencyField
  221.       FieldName = 'AmountPaid'
  222.     end
  223.   end
  224.   object DataSource1: TDataSource
  225.     DataSet = Table1
  226.     Left = 104
  227.     Top = 104
  228.   end
  229. end