unit7.dfm

Delphi,Access开发的图书订阅系统

object moddel: Tmoddel
  Left = 200
  Top = 155
  Width = 689
  Height = 416
  Caption = #25968#25454#21024#38500#20462#25913
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 16
    Top = 16
    Width = 149
    Height = 32
    Caption = #26597#35810#26465#20214':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = #20223#23435'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 312
    Top = 16
    Width = 99
    Height = 32
    Caption = #20851#38190#23383
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = #20223#23435'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Button1: TButton
    Left = 568
    Top = 160
    Width = 80
    Height = 36
    Caption = #20462#25913
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #20223#23435'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 568
    Top = 224
    Width = 80
    Height = 36
    Caption = #21024#38500
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #20223#23435'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 568
    Top = 288
    Width = 80
    Height = 36
    Caption = #36820#22238
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #20223#23435'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = Button3Click
  end
  object DBGrid1: TDBGrid
    Left = 24
    Top = 64
    Width = 505
    Height = 281
    Cursor = crIBeam
    DataSource = DataSource1
    ImeName = #26497#21697#20116#31508
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #25253#21002#20195#21495
        ReadOnly = True
        Width = 79
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25253#21002#21517#31216
        Width = 140
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21002#26399
        PickList.Strings = (
          #26085
          #21608
          #21608#19968
          #21608#20108
          #21608#19977
          #21608#22235
          #21608#20116
          #21608#20845
          #21608#26085
          #26092
          #21322#26376
          #26376
          #21452#26376)
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25972#35746#26399
        PickList.Strings = (
          #26376
          #23395
          #21322#24180)
        Width = 61
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25972#35746#20215
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20840#24180#20215
        Width = 58
        Visible = True
      end>
  end
  object Edit1: TEdit
    Left = 416
    Top = 16
    Width = 145
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #26497#21697#20116#31508
    ParentFont = False
    TabOrder = 4
  end
  object ComboBox2: TComboBox
    Left = 168
    Top = 16
    Width = 129
    Height = 28
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = #40657#20307
    Font.Style = []
    ImeName = #26497#21697#20116#31508
    ItemHeight = 20
    ParentFont = False
    TabOrder = 5
    Text = #25253#21002#20195#21495
    Items.Strings = (
      #25253#21002#20195#21495
      #25253#21002#21517#31216
      #21002#26399
      #25972#35746#26399)
  end
  object Button4: TButton
    Left = 576
    Top = 16
    Width = 81
    Height = 33
    Caption = #26597#35810
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 568
    Top = 80
    Width = 80
    Height = 36
    Caption = #21047'   '#26032
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnClick = Button5Click
  end
  object DataSource1: TDataSource
    DataSet = main.ADOQuery1
    Top = 304
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = login.ADOConnection1
    CursorType = ctStatic
    TableName = #25253#21002#20449#24687
    Left = 65528
    Top = 232
  end
end