u_zhgl_zhgl_qtzj.~dfm

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

        004C4D4E4F434F434F434F434F441A5000000000000000000000000000000000
        0000000000000000000000002B000000004142263D433D433D433D433D444546
        000000000000000000000000000000000000000000000000000000001F000000
        001536372438393A3B3C3D333E3F402A00000000000000000000000000000000
        0000000000000000000000002B00000000152C002D2E2F303132273334323513
        000000000000000000000000000000000000000000000000000000001F000000
        0015000000202122232425262728292A00000000000000000000000000000000
        0000000000000000000000001400000000151600000000001718191A1B1C1D1E
        0000000000000000000000000000000000000000000000000000000102030405
        0603070803090A0B0C0D0E0F1011121300000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000}
      OnClick = Action2Execute
    end
    object Lbl_fs: TLabel
      Left = 516
      Top = 58
      Width = 61
      Height = 19
      AutoSize = False
    end
    object GroupBox1: TGroupBox
      Left = 7
      Top = 10
      Width = 296
      Height = 407
      Caption = #20844#21496#20449#24687
      TabOrder = 0
      object SpeedButton1: TSpeedButton
        Left = 116
        Top = 122
        Width = 63
        Height = 33
        Caption = '>'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Action4Execute
      end
      object SpeedButton2: TSpeedButton
        Left = 116
        Top = 176
        Width = 63
        Height = 33
        Caption = '<'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Action5Execute
      end
      object SpeedButton3: TSpeedButton
        Left = 116
        Top = 228
        Width = 63
        Height = 33
        Caption = '>>'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Action6Execute
      end
      object SpeedButton4: TSpeedButton
        Left = 116
        Top = 281
        Width = 63
        Height = 33
        Caption = '<<'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        OnClick = Action7Execute
      end
      object Label1: TLabel
        Left = 16
        Top = 36
        Width = 76
        Height = 16
        AutoSize = False
        Caption = #20844#21496#21517#31216#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Cmx_Gs: TComboBox
        Left = 96
        Top = 32
        Width = 163
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        OnClick = Action9Execute
      end
      object Lvw_lb1: TListView
        Left = 10
        Top = 82
        Width = 103
        Height = 317
        Columns = <
          item
            Caption = #22995#21517
            Width = 90
          end
          item
            Caption = #32534#21495
            Width = 0
          end
          item
            Caption = #21345#21495
            Width = 0
          end
          item
            Caption = #20313#39069
            Width = 0
          end>
        GridLines = True
        ReadOnly = True
        RowSelect = True
        TabOrder = 1
        ViewStyle = vsReport
        OnSelectItem = Lvw_lb1SelectItem
      end
      object Lvw_lb2: TListView
        Left = 184
        Top = 82
        Width = 103
        Height = 317
        Columns = <
          item
            Caption = #22995#21517
            Width = 90
          end
          item
            Caption = #32534#21495
            Width = 0
          end
          item
            Caption = #21345#21495
            Width = 0
          end
          item
            Caption = #20313#39069
            Width = 0
          end>
        GridLines = True
        ReadOnly = True
        RowSelect = True
        TabOrder = 2
        ViewStyle = vsReport
        OnSelectItem = Lvw_lb2SelectItem
      end
    end
    object cmx_lb: TComboBox
      Left = 370
      Top = 96
      Width = 163
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 1
      OnChange = Action8Execute
      OnClick = Action8Execute
    end
    object Edt_Je: TEdit
      Left = 342
      Top = 194
      Width = 217
      Height = 43
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -32
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      Text = '0'
    end
  end
  object ActionManager1: TActionManager
    Left = 456
    Top = 59
    StyleName = 'XP Style'
    object Action1: TAction
      Caption = #22686#21152
    end
    object Action2: TAction
      Caption = #36864#20986
      OnExecute = Action2Execute
    end
    object Action3: TAction
      Caption = #20844#21496#31867#21035#36733#20837
      OnExecute = Action3Execute
    end
    object Action4: TAction
      Caption = '>'
      OnExecute = Action4Execute
    end
    object Action5: TAction
      Caption = '>>'
      OnExecute = Action5Execute
    end
    object Action6: TAction
      Caption = '<'
      OnExecute = Action6Execute
    end
    object Action7: TAction
      Caption = '<<'
      OnExecute = Action7Execute
    end
    object Action8: TAction
      Caption = #22686#20943
      OnExecute = Action8Execute
    end
    object Action9: TAction
      Caption = #20844#21496#36873#25321
      OnExecute = Action9Execute
    end
  end
end