unit2.dfm

DawnTV 晨曦在线电视,完整源代码.

        object Button1: TButton
          Left = 10
          Top = 43
          Width = 75
          Height = 25
          Caption = #28155'  '#21152
          TabOrder = 1
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 130
          Top = 43
          Width = 75
          Height = 25
          Caption = #20462'  '#25913
          Enabled = False
          TabOrder = 2
          OnClick = Button2Click
        end
        object Button3: TButton
          Left = 250
          Top = 43
          Width = 75
          Height = 25
          Caption = #21024'  '#38500
          TabOrder = 3
          OnClick = Button3Click
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 59
          Top = 10
          Width = 145
          Height = 22
          DropDownRows = 15
          KeyField = 'sheng'
          ListField = 'sheng'
          ListSource = DataSource1
          TabOrder = 4
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 73
        Width = 680
        Height = 344
        Align = alClient
        DataSource = DataSource2
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnCellClick = DBGrid1CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'sheng'
            Title.Alignment = taCenter
            Title.Caption = #20027#33756#21333
            Width = 143
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'diqu'
            Title.Alignment = taCenter
            Title.Caption = #22320#24066
            Width = 122
            Visible = True
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = #30005#35270#22320#22336
      ImageIndex = 2
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 680
        Height = 105
        Align = alTop
        TabOrder = 0
        object Label4: TLabel
          Left = 8
          Top = 14
          Width = 42
          Height = 14
          Caption = #33756#21333#21517
        end
        object Label5: TLabel
          Left = 16
          Top = 49
          Width = 28
          Height = 14
          Caption = #22320#24066
        end
        object Label6: TLabel
          Left = 224
          Top = 51
          Width = 28
          Height = 14
          Caption = #32593#22336
        end
        object Label7: TLabel
          Left = 216
          Top = 14
          Width = 42
          Height = 14
          Caption = #33756#21333#21517
        end
        object Edit3: TEdit
          Left = 56
          Top = 45
          Width = 145
          Height = 22
          TabOrder = 0
        end
        object Button7: TButton
          Left = 10
          Top = 75
          Width = 75
          Height = 25
          Caption = #28155'  '#21152
          TabOrder = 1
          OnClick = Button7Click
        end
        object Button8: TButton
          Left = 130
          Top = 75
          Width = 75
          Height = 25
          Caption = #20462'  '#25913
          Enabled = False
          TabOrder = 2
          OnClick = Button8Click
        end
        object Button9: TButton
          Left = 250
          Top = 75
          Width = 75
          Height = 25
          Caption = #21024'  '#38500
          TabOrder = 3
          OnClick = Button9Click
        end
        object DBLookupComboBox2: TDBLookupComboBox
          Left = 59
          Top = 10
          Width = 145
          Height = 22
          DropDownRows = 15
          KeyField = 'sheng'
          ListField = 'sheng'
          ListSource = DataSource1
          TabOrder = 4
          OnClick = DBLookupComboBox2Click
        end
        object Edit4: TEdit
          Left = 268
          Top = 45
          Width = 371
          Height = 22
          TabOrder = 5
        end
        object DBLookupComboBox3: TDBLookupComboBox
          Left = 267
          Top = 10
          Width = 145
          Height = 22
          DropDownRows = 15
          KeyField = 'diqu'
          ListField = 'diqu'
          ListSource = DataSource2
          TabOrder = 6
        end
      end
      object DBGrid3: TDBGrid
        Left = 0
        Top = 105
        Width = 680
        Height = 312
        Align = alClient
        DataSource = DataSource3
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnCellClick = DBGrid3CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'diqu'
            Title.Alignment = taCenter
            Title.Caption = #22320#24066
            Width = 128
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dt_ming'
            Title.Alignment = taCenter
            Title.Caption = #22320#22336
            Width = 127
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dt_wangzhi'
            Title.Alignment = taCenter
            Title.Caption = #32593#22336
            Width = 378
            Visible = True
          end>
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Form1.ADOsheng
    Left = 36
    Top = 169
  end
  object DataSource2: TDataSource
    DataSet = Form1.ADOdiqu
    Left = 84
    Top = 169
  end
  object DataSource3: TDataSource
    DataSet = Form1.ADOpindao
    Left = 140
    Top = 177
  end
end