unit5.dfm

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

object hyzl: Thyzl
  Left = 164
  Top = 69
  Width = 613
  Height = 472
  Caption = #20250#21592#36164#26009
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 411
    Width = 605
    Height = 27
    Panels = <
      item
        Alignment = taCenter
        Text = #36229#21069#30005#33041#26377#38480#20844#21496
        Width = 150
      end
      item
        Alignment = taCenter
        Text = #26377#20250#21592'        '#20154
        Width = 150
      end
      item
        Alignment = taCenter
        Text = #24403#21069#26159'       '#21495
        Width = 150
      end
      item
        Alignment = taCenter
        Text = #32047#35745#37329#39069#26410#32479#35745
        Width = 150
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 605
    Height = 33
    Align = alTop
    Caption = #20250'     '#21592'     '#31649'     '#29702
    Color = clCream
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -27
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 33
    Width = 605
    Height = 378
    ActivePage = TS1
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MultiLine = True
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabIndex = 0
    TabOrder = 2
    object TS1: TTabSheet
      Caption = #20250#21592#36164#26009'--'#21152#38065
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 597
        Height = 314
        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
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid1CellClick
        OnTitleClick = DBGrid1TitleClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #24080#21495
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #22995#21517
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #24320#25143#26085#26399
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #25276#37329
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#24535
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #35777#20214#21495#30721
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #21333#20301
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #35745#36153#26631#20934
            Title.Alignment = taCenter
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #23494#30721
            Title.Alignment = taCenter
            Visible = False
          end>
      end
      object Panel2: TPanel
        Left = 0
        Top = 314
        Width = 597
        Height = 33
        Align = alBottom
        Alignment = taLeftJustify
        Caption = '                             '#24080' '#21495
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Edit1: TEdit
          Left = 177
          Top = 4
          Width = 177
          Height = 24
          TabOrder = 0
        end
        object Button1: TButton
          Left = 383
          Top = 4
          Width = 89
          Height = 25
          Caption = #26597#25214#24080#21495
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = Button1Click
        end
        object Button3: TButton
          Left = 490
          Top = 4
          Width = 95
          Height = 25
          Caption = #21024#20020#26102#20250#21592
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = Button3Click
        end
      end
    end
    object TS2: TTabSheet
      Caption = #20250#21592#21152#38065#35760#24405
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 597
        Height = 314
        Align = alClient
        DataSource = DataSource2
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        PopupMenu = PopupMenu2
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #24080#21495
            Title.Alignment = taCenter
            Width = 138
            Visible = True
          end
          item
            Expanded = False
            FieldName = #22995#21517
            Title.Alignment = taCenter
            Width = 79
            Visible = True
          end
          item
            Expanded = False
            FieldName = #21457#29983#26085#26399
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = #21457#29983#26102#38388
            Title.Alignment = taCenter
            Width = 88
            Visible = True
          end
          item
            Expanded = False
            FieldName = #37329#39069
            Title.Alignment = taCenter
            Width = 88
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26631#24535
            Title.Alignment = taCenter
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = #22791#27880
            Title.Alignment = taCenter
            Visible = True
          end>
      end
      object Panel3: TPanel
        Left = 0
        Top = 314
        Width = 597
        Height = 33
        Align = alBottom
        Alignment = taLeftJustify
        Caption = ' '#24080#21495
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Edit2: TEdit
          Left = 37
          Top = 4
          Width = 177
          Height = 24
          TabOrder = 0
        end
        object Button2: TButton
          Left = 216
          Top = 4
          Width = 81
          Height = 25
          BiDiMode = bdRightToLeftNoAlign
          Caption = #26597#25214#24080#21495
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clFuchsia
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentBiDiMode = False
          ParentFont = False
          TabOrder = 1
          OnClick = Button2Click
        end
        object DTPh1: TDateTimePicker
          Left = 336
          Top = 4
          Width = 106
          Height = 24
          CalAlignment = dtaLeft
          Date = 38550.7802989352
          Time = 38550.7802989352
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 2
        end
        object DTPh2: TDateTimePicker
          Left = 464
          Top = 4
          Width = 105
          Height = 24
          CalAlignment = dtaLeft
          Date = 38550.7802989352
          Time = 38550.7802989352
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 3
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = hy2
    Left = 472
  end
  object PopupMenu1: TPopupMenu
    Left = 96
    object N3: TMenuItem
      Caption = #28155#21152#20250#21592
      OnClick = N3Click
    end
    object N1: TMenuItem
      Caption = #20250#21592#21152#38065
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #21024#38500#20250#21592
      Enabled = False
      OnClick = N2Click
    end
    object N4: TMenuItem
      Caption = #32479#35745#37329#39069
      OnClick = N4Click
    end
  end
  object DataSource2: TDataSource
    DataSet = hy3
    Left = 504
  end
  object PopupMenu2: TPopupMenu
    AutoPopup = False
    Left = 144
    object N5: TMenuItem
      Caption = #21024#38500#26412#34892
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #26465#20214#21024#38500
      OnClick = N6Click
    end
  end
  object hy2: TADOTable
    Connection = Form1.ADOCon1
    CursorLocation = clUseServer
    TableName = 'yhdate'
    Left = 32
    object hy2a1: TWideStringField
      FieldName = #24080#21495
      Size = 12
    end
    object hy2a2: TWideStringField
      FieldName = #23494#30721
      Size = 12
    end
    object hy2a3: TWideStringField
      FieldName = #22995#21517
      Size = 8
    end
    object hy2a4: TDateTimeField
      FieldName = #24320#25143#26085#26399
    end
    object hy2a5: TFloatField
      FieldName = #25276#37329
    end
    object hy2a6: TFloatField
      FieldName = #35745#36153#26631#20934
    end
    object hy2a7: TWideStringField
      FieldName = #21333#20301
      Size = 30
    end
    object hy2a8: TWideStringField
      FieldName = #35777#20214#21495#30721
    end
    object hy2a10: TWideStringField
      FieldName = #26631#24535
      Size = 4
    end
  end
  object hy3: TADOTable
    Connection = Form1.ADOCon1
    CursorLocation = clUseServer
    TableName = 'hyjqjl'
    Left = 64
    object hy3a1: TWideStringField
      FieldName = #24080#21495
      Size = 12
    end
    object hy3a2: TWideStringField
      FieldName = #22995#21517
      Size = 8
    end
    object hy3a3: TDateTimeField
      FieldName = #21457#29983#26102#38388
    end
    object hy3a4: TDateTimeField
      FieldName = #21457#29983#26085#26399
    end
    object hy3a5: TFloatField
      FieldName = #37329#39069
    end
    object hy3a6: TWideStringField
      FieldName = #26631#24535
      Size = 4
    end
    object hy3a8: TWideStringField
      FieldName = #22791#27880
      Size = 10
    end
  end
end