unit6.dfm

有关密码为： 服务端：为 “1”。 客户端：为机器的月份+日期。 如“2005/08/05”

object lsjl: Tlsjl
  Left = 340
  Top = 111
  Width = 745
  Height = 534
  Caption = #21382#21490#35760#24405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 737
    Height = 500
    Align = alClient
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 1
      Top = 89
      Width = 735
      Height = 410
      Align = alClient
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #30005#33041
          Title.Alignment = taCenter
          Width = 139
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #32467#24080#26085#26399
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #19978#26426#26102#38388
          Title.Alignment = taCenter
          Width = 72
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #19979#26426#26102#38388
          Title.Alignment = taCenter
          Width = 71
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #21345#21495
          Title.Alignment = taCenter
          Width = 166
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #25276#37329
          Title.Alignment = taCenter
          Width = 63
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #29992#26102
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #36153#29992
          Title.Alignment = taCenter
          Width = 54
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #24050#36864
          Title.Alignment = taCenter
          Width = 54
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #22995#21517
          Title.Alignment = taCenter
          Width = 51
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #35777#20214#21495#30721
          Title.Alignment = taCenter
          Width = 175
          Visible = True
        end>
    end
    object Panel2: TPanel
      Left = 1
      Top = 41
      Width = 735
      Height = 48
      Align = alTop
      TabOrder = 1
      object Panel4: TPanel
        Left = 17
        Top = 14
        Width = 74
        Height = 19
        BevelOuter = bvNone
        Caption = #36215#22987#26085#26399
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clFuchsia
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object Panel5: TPanel
        Left = 233
        Top = 14
        Width = 47
        Height = 19
        BevelOuter = bvNone
        Caption = #27490#26085#26399
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clFuchsia
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object DTP1: TDateTimePicker
        Left = 88
        Top = 12
        Width = 129
        Height = 24
        BiDiMode = bdLeftToRight
        CalAlignment = dtaLeft
        Date = 36892
        Time = 36892
        DateFormat = dfShort
        DateMode = dmComboBox
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clSkyBlue
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Kind = dtkDate
        ParseInput = False
        ParentBiDiMode = False
        ParentFont = False
        TabOrder = 2
        OnChange = DTP1Change
      end
      object DTP2: TDateTimePicker
        Left = 290
        Top = 12
        Width = 103
        Height = 24
        BevelInner = bvNone
        BevelOuter = bvNone
        CalAlignment = dtaLeft
        Date = 38550.9999884259
        Time = 38550.9999884259
        DateFormat = dfShort
        DateMode = dmComboBox
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Kind = dtkDate
        ParseInput = False
        ParentFont = False
        TabOrder = 3
        OnChange = DTP1Change
      end
      object Edit1: TEdit
        Left = 504
        Top = 12
        Width = 153
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object Panel6: TPanel
        Left = 435
        Top = 14
        Width = 49
        Height = 19
        BevelOuter = bvNone
        Caption = #21512#35745#37329#39069
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clFuchsia
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object Panel7: TPanel
        Left = 672
        Top = 12
        Width = 46
        Height = 25
        Caption = #36716#23384#20026'EXCL'#25991#20214
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clActiveCaption
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 735
      Height = 40
      Align = alTop
      BevelInner = bvLowered
      Caption = #21382' '#21490' '#35760' '#24405' '#24773' '#20917
      Color = clSkyBlue
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -27
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = qy1
    Left = 120
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    AutoPopup = False
    Left = 168
    Top = 8
    object N1: TMenuItem
      Caption = #21024#38500#26412#34892
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #26465#20214#21024#38500
      OnClick = N2Click
    end
  end
  object qy1: TADOQuery
    Connection = Form1.ADOCon1
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from date1')
    Left = 32
    Top = 8
    object qy1a1: TWideStringField
      FieldName = #30005#33041
      Size = 8
    end
    object qy1a2: TDateTimeField
      FieldName = #32467#24080#26085#26399
    end
    object qy1a3: TDateTimeField
      FieldName = #19978#26426#26102#38388
    end
    object qy1a4: TDateTimeField
      FieldName = #19979#26426#26102#38388
    end
    object qy1a5: TWideStringField
      FieldName = #21345#21495
      Size = 12
    end
    object qy1DSDesigner6: TFloatField
      FieldName = #25276#37329
    end
    object qy1DSDesigner7: TFloatField
      FieldName = #29992#26102
    end
    object qy1DSDesigner8: TFloatField
      FieldName = #36153#29992
    end
    object qy1DSDesigner9: TFloatField
      FieldName = #24050#36864
    end
    object qy1DSDesigner10: TWideStringField
      FieldName = #22995#21517
      Size = 8
    end
    object qy1DSDesigner11: TWideStringField
      FieldName = #35777#20214#21495#30721
    end
  end
  object qy2: TADOQuery
    Connection = Form1.ADOCon1
    CursorLocation = clUseServer
    Parameters = <>
    SQL.Strings = (
      'select * from date1')
    Left = 88
    Top = 8
  end
end