unit7.dfm

第一次尝试开发数据库方面的系统

object frm_dzh: Tfrm_dzh
  Left = 226
  Top = 26
  Width = 700
  Height = 489
  Caption = #35835#32773#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 692
    Height = 57
    ButtonHeight = 21
    ButtonWidth = 50
    Caption = 'ToolBar1'
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Flat = True
    ShowCaptions = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = DataSetFirst1
    end
    object ToolButton2: TToolButton
      Left = 50
      Top = 0
      Action = DataSetPrior1
    end
    object ToolButton3: TToolButton
      Left = 100
      Top = 0
      Action = DataSetNext1
    end
    object ToolButton4: TToolButton
      Left = 150
      Top = 0
      Action = DataSetLast1
    end
    object ToolButton5: TToolButton
      Left = 200
      Top = 0
      Action = DataSetInsert1
    end
    object ToolButton6: TToolButton
      Left = 250
      Top = 0
      Action = DataSetDelete1
    end
    object ToolButton7: TToolButton
      Left = 300
      Top = 0
      Action = DataSetEdit1
    end
    object ToolButton8: TToolButton
      Left = 350
      Top = 0
      Action = DataSetPost1
    end
    object ToolButton9: TToolButton
      Left = 400
      Top = 0
      Action = DataSetCancel1
    end
    object ToolButton10: TToolButton
      Left = 450
      Top = 0
      Action = DataSetRefresh1
    end
    object ToolButton11: TToolButton
      Left = 500
      Top = 0
      Caption = #26597#35810
      ImageIndex = 10
      OnClick = ToolButton11Click
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 64
    Width = 692
    Height = 377
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 1
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #26597#35810#35835#32773#20449#24687
      object DBGrid1: TDBGrid
        Left = 0
        Top = 104
        Width = 681
        Height = 257
        DataSource = DM.dzhDataSource2
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 681
        Height = 97
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object Label1: TLabel
          Left = 16
          Top = 20
          Width = 75
          Height = 13
          Caption = #26597#35810#23383#27573#65306'     '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 480
          Top = 20
          Width = 63
          Height = 13
          Caption = #26597#35810#20540#65306'     '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 248
          Top = 20
          Width = 60
          Height = 13
          Caption = #26597#35810#26465#20214#65306
        end
        object Edit1: TEdit
          Left = 480
          Top = 44
          Width = 153
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 0
        end
        object ComboBox1: TComboBox
          Left = 16
          Top = 44
          Width = 145
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 1
          Text = #35835#32773#21495
          Items.Strings = (
            #35835#32773#21495
            #22995#21517
            #26377#25928#26399#38480
            #22270#20070#21517#31216)
        end
        object ComboBox2: TComboBox
          Left = 248
          Top = 44
          Width = 145
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          ItemHeight = 13
          TabOrder = 2
          Text = '='
          Items.Strings = (
            '='
            '>'
            '>='
            '<'
            '<=')
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #27880#20876#35835#32773
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 144
        Width = 681
        Height = 217
        DataSource = DM.dzhDataSource2
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Panel1: TPanel
        Left = 0
        Top = 8
        Width = 681
        Height = 129
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object Label3: TLabel
          Left = 11
          Top = 19
          Width = 48
          Height = 13
          Caption = #35835#32773#21495#65306
        end
        object Label4: TLabel
          Left = 198
          Top = 19
          Width = 36
          Height = 13
          Caption = #22995#21517#65306
        end
        object Label5: TLabel
          Left = 392
          Top = 19
          Width = 36
          Height = 13
          Caption = #23494#30721#65306
        end
        object Label6: TLabel
          Left = 11
          Top = 52
          Width = 60
          Height = 13
          Caption = #26377#25928#26399#38480#65306
        end
        object Label7: TLabel
          Left = 198
          Top = 48
          Width = 60
          Height = 13
          Caption = #32852#31995#30005#35805#65306
        end
        object Label8: TLabel
          Left = 11
          Top = 83
          Width = 36
          Height = 13
          Caption = #22791#27880#65306
        end
        object DBImage1: TDBImage
          Left = 566
          Top = 12
          Width = 105
          Height = 105
          TabOrder = 0
        end
        object DBEdit1: TDBEdit
          Left = 72
          Top = 16
          Width = 121
          Height = 21
          DataField = #35835#32773#21495
          DataSource = DM.dzhDataSource2
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 1
        end
        object DBEdit2: TDBEdit
          Left = 267
          Top = 15
          Width = 121
          Height = 21
          DataField = #22995#21517
          DataSource = DM.dzhDataSource2
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 2
        end
        object DBEdit3: TDBEdit
          Left = 437
          Top = 16
          Width = 121
          Height = 21
          DataField = #23494#30721
          DataSource = DM.dzhDataSource2
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 3
        end
        object DBEdit4: TDBEdit
          Left = 72
          Top = 48
          Width = 121
          Height = 21
          DataField = #26377#25928#26399#38480
          DataSource = DM.dzhDataSource2
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 4
        end
        object DBEdit5: TDBEdit
          Left = 267
          Top = 47
          Width = 121
          Height = 21
          DataField = #32852#31995#30005#35805
          DataSource = DM.dzhDataSource2
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 5
        end
        object DBEdit6: TDBEdit
          Left = 72
          Top = 80
          Width = 121
          Height = 21
          DataField = #22791#27880
          DataSource = DM.dzhDataSource2
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 6
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 443
    Width = 692
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 350
      end
      item
        Width = 100
      end>
    SimplePanel = False
  end
  object ImageList1: TImageList
    Left = 344
    Top = 56
  end
  object ActionList1: TActionList
    Left = 384
    Top = 64
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = '&First'
      Hint = 'First'
      ImageIndex = 0
    end
    object DataSetPrior1: TDataSetPrior
      Category = 'Dataset'
      Caption = '&Prior'
      Hint = 'Prior'
      ImageIndex = 1
    end
    object DataSetNext1: TDataSetNext
      Category = 'Dataset'
      Caption = '&Next'
      Hint = 'Next'
      ImageIndex = 2
    end
    object DataSetLast1: TDataSetLast
      Category = 'Dataset'
      Caption = '&Last'
      Hint = 'Last'
      ImageIndex = 3
    end
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = '&Insert'
      Hint = 'Insert'
      ImageIndex = 4
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = '&Delete'
      Hint = 'Delete'
      ImageIndex = 5
    end
    object DataSetEdit1: TDataSetEdit
      Category = 'Dataset'
      Caption = '&Edit'
      Hint = 'Edit'
      ImageIndex = 6
    end
    object DataSetPost1: TDataSetPost
      Category = 'Dataset'
      Caption = 'P&ost'
      Hint = 'Post'
      ImageIndex = 7
    end
    object DataSetCancel1: TDataSetCancel
      Category = 'Dataset'
      Caption = '&Cancel'
      Hint = 'Cancel'
      ImageIndex = 8
    end
    object DataSetRefresh1: TDataSetRefresh
      Category = 'Dataset'
      Caption = '&Refresh'
      Hint = 'Refresh'
      ImageIndex = 9
    end
  end
end