unit2.dfm

利用Acess数据库

        end
        object DBEdit13: TDBEdit
          Left = 464
          Top = 56
          Width = 257
          Height = 24
          Color = clInfoBk
          DataField = '营业(上班)时间'
          DataSource = DataSourcedetail
          TabOrder = 14
        end
        object DBEdit14: TDBEdit
          Left = 464
          Top = 80
          Width = 257
          Height = 24
          Color = clInfoBk
          DataField = '开户银行'
          DataSource = DataSourcedetail
          TabOrder = 15
        end
        object DBEdit15: TDBEdit
          Left = 464
          Top = 104
          Width = 257
          Height = 24
          Color = clInfoBk
          DataField = '帐号'
          DataSource = DataSourcedetail
          TabOrder = 16
        end
        object DBEdit16: TDBEdit
          Left = 464
          Top = 128
          Width = 257
          Height = 24
          Color = clInfoBk
          DataField = '关键词'
          DataSource = DataSourcedetail
          TabOrder = 17
        end
        object DBEdit17: TDBEdit
          Left = 464
          Top = 152
          Width = 257
          Height = 24
          Color = clInfoBk
          DataField = '密码'
          DataSource = DataSourcedetail
          TabOrder = 18
        end
        object DBEdit18: TDBEdit
          Left = 464
          Top = 176
          Width = 257
          Height = 24
          Color = clInfoBk
          DataField = '交费情况'
          DataSource = DataSourcedetail
          TabOrder = 19
        end
        object DBMemo4: TDBMemo
          Left = 464
          Top = 232
          Width = 257
          Height = 89
          Color = clInfoBk
          DataField = '单位情况'
          DataSource = DataSourcedetail
          TabOrder = 20
        end
        object DBEdit19: TDBEdit
          Left = 464
          Top = 392
          Width = 145
          Height = 24
          Color = clInfoBk
          DataField = '修改日期'
          DataSource = DataSourcedetail
          TabOrder = 21
        end
        object DBEdit20: TDBEdit
          Left = 464
          Top = 424
          Width = 257
          Height = 24
          Color = clInfoBk
          DataField = '修改人员帐号'
          DataSource = DataSourcedetail
          TabOrder = 22
        end
        object DBEdit21: TDBEdit
          Left = 464
          Top = 200
          Width = 112
          Height = 24
          Color = clInfoBk
          DataField = '上网日期'
          DataSource = DataSourcedetail
          TabOrder = 23
        end
        object BitBtn9: TBitBtn
          Left = 464
          Top = 456
          Width = 105
          Height = 25
          Cursor = crHandPoint
          Caption = '修改提交'
          TabOrder = 24
          OnClick = BitBtn9Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
            333333333337FF3333333333330003333333333333777F333333333333080333
            3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
            33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
            B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
            BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
            B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
            3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
            333333333337F33333333333333B333333333333333733333333}
          NumGlyphs = 2
        end
        object BitBtn10: TBitBtn
          Left = 616
          Top = 456
          Width = 105
          Height = 25
          Cursor = crHandPoint
          Cancel = True
          Caption = '删除本记录'
          ModalResult = 7
          TabOrder = 25
          OnClick = BitBtn10Click
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333FFFFF333333000033333388888833333333333F888888FFF333
            000033338811111188333333338833FFF388FF33000033381119999111833333
            38F338888F338FF30000339119933331111833338F388333383338F300003391
            13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
            33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
            33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
            000039183811193333918338F8F833F83333838F000039118111933339118338
            F3833F83333833830000339111193333391833338F33F8333FF838F300003391
            11833338111833338F338FFFF883F83300003339111888811183333338FF3888
            83FF83330000333399111111993333333388FFFFFF8833330000333333999999
            3333333333338888883333330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
        end
        object DBEdit22: TDBEdit
          Left = 464
          Top = 360
          Width = 81
          Height = 24
          Color = clInfoBk
          DataField = '优先级'
          DataSource = DataSourcedetail
          TabOrder = 26
        end
        object DBEdit23: TDBEdit
          Left = 464
          Top = 328
          Width = 145
          Height = 24
          Color = clInfoBk
          DataField = 'Email'
          DataSource = DataSourcedetail
          TabOrder = 27
        end
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 288
    object N1: TMenuItem
      Caption = '系统操作'
      object N2: TMenuItem
        Caption = '重新登录'
        OnClick = N2Click
      end
      object N9: TMenuItem
        Caption = '录入模式'
        OnClick = N9Click
      end
      object N10: TMenuItem
        Caption = '超级模式'
        OnClick = N10Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object N3: TMenuItem
        Caption = '退出系统'
        OnClick = N3Click
      end
    end
    object N5: TMenuItem
      Caption = '打印'
      object N11: TMenuItem
        Caption = '打印选项'
        OnClick = N11Click
      end
    end
    object N13: TMenuItem
      Caption = '显示方式'
      GroupIndex = 1
      RadioItem = True
      object N16: TMenuItem
        Caption = '单位代码'
        GroupIndex = 1
        RadioItem = True
        OnClick = N16Click
      end
      object N14: TMenuItem
        Caption = '时间'
        GroupIndex = 1
        RadioItem = True
        OnClick = N14Click
      end
      object N15: TMenuItem
        Caption = '优先级'
        Checked = True
        GroupIndex = 1
        RadioItem = True
        OnClick = N15Click
      end
    end
    object N6: TMenuItem
      Caption = '帮助'
      GroupIndex = 1
      object N7: TMenuItem
        Caption = '使用说明'
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object N8: TMenuItem
        Caption = '关于软件'
      end
    end
  end
  object Query1: TQuery
    DatabaseName = 'copfinal'
    Left = 176
    Top = 8
  end
  object DataSourceQry: TDataSource
    DataSet = Query1
    Left = 288
    Top = 28
  end
  object Table1: TTable
    DatabaseName = 'copfinal'
    IndexFieldNames = '单位代码'
    TableName = 'Company'
    Left = 228
    Top = 20
    object Table1BDEDesigner: TStringField
      FieldName = '单位代码'
      Required = True
      Size = 8
    end
    object Table1BDEDesigner2: TStringField
      FieldName = '单位名称'
      Required = True
      Size = 100
    end
    object Table1BDEDesigner3: TStringField
      FieldName = '地址'
      Size = 255
    end
    object Table1BDEDesigner4: TStringField
      FieldName = '邮编'
      Size = 50
    end
    object Table1BDEDesigner5: TStringField
      FieldName = '联系人'
      Size = 50
    end
    object Table1BDEDesigner6: TStringField
      FieldName = '联系电话'
      Size = 255
    end
    object Table1BDEDesigner7: TStringField
      FieldName = '传真'
      Size = 50
    end
    object Table1BDEDesigner8: TMemoField
      FieldName = '产品与服务'
      BlobType = ftMemo
    end
    object Table1BDEDesigner9: TMemoField
      FieldName = '乘车路线'
      BlobType = ftMemo
    end
    object Table1BDEDesigner10: TStringField
      FieldName = '所属行政区'
      Required = True
      Size = 10
    end
    object Table1BDEDesigner11: TStringField
      FieldName = '法人代表'
      Size = 50
    end
    object Table1BDEDesigner12: TStringField
      FieldName = '行业分类'
      Size = 30
    end
    object Table1BDEDesigner13: TStringField
      FieldName = '经济类型'
      Size = 50
    end
    object Table1BDEDesigner14: TStringField
      FieldName = '网址'
      Size = 255
    end
    object Table1BDEDesigner15: TStringField
      FieldName = '营业(上班)时间'
      Size = 255
    end
    object Table1BDEDesigner16: TStringField
      FieldName = '开户银行'
      Size = 255
    end
    object Table1BDEDesigner17: TStringField
      FieldName = '帐号'
      Size = 255
    end
    object Table1BDEDesigner18: TStringField
      FieldName = '关键词'
      Size = 50
    end
    object Table1BDEDesigner19: TStringField
      FieldName = '密码'
      Size = 50
    end
    object Table1BDEDesigner20: TStringField
      FieldName = '交费情况'
      Size = 50
    end
    object Table1BDEDesigner21: TStringField
      FieldName = '上网日期'
      Size = 50
    end
    object Table1BDEDesigner22: TMemoField
      FieldName = '单位情况'
      BlobType = ftMemo
    end
    object Table1BDEDesigner23: TDateTimeField
      FieldName = '修改日期'
    end
    object Table1BDEDesigner24: TStringField
      FieldName = '修改人员帐号'
      Size = 50
    end
    object Table1BDEDesigner25: TSmallintField
      FieldName = '优先级'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 224
    Top = 65532
  end
  object DataSourcedetail: TDataSource
    DataSet = Querydetail
    Left = 360
    Top = 52
  end
  object Querydetail: TQuery
    DatabaseName = 'copfinal'
    RequestLive = True
    SQL.Strings = (
      'select * from company')
    Left = 360
    Top = 20
  end
end