ucreatgroup.dfm

港口货物管理系统

object fmcreatgroup: Tfmcreatgroup
  Left = 216
  Top = 129
  BorderStyle = bsDialog
  Caption = #35774#32622#29992#25143#20998#32452
  ClientHeight = 331
  ClientWidth = 604
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 105
    Top = 263
    Width = 393
    Height = 57
    TabOrder = 4
  end
  object GroupBox1: TGroupBox
    Left = 21
    Top = 8
    Width = 561
    Height = 249
    Caption = #35774#32622#29992#25143#32452#31867#22411
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object DBGrid1: TDBGrid
    Left = 41
    Top = 28
    Width = 521
    Height = 223
    DataSource = DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clOlive
    Font.Height = -16
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'Auid'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'Times New Roman'
        Font.Style = []
        Title.Alignment = taCenter
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -19
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Auname'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'Times New Roman'
        Font.Style = []
        Title.Alignment = taCenter
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -19
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Width = 113
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Agroup'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'Times New Roman'
        Font.Style = []
        PickList.Strings = (
          #29992#25143#32452'A'
          #29992#25143#32452'B'
          #29992#25143#32452'C'
          #29992#25143#32452'D'
          #29992#25143#32452'E'
          #29992#25143#32452'F'
          #29992#25143#32452'G'
          #29992#25143#32452'H')
        Title.Alignment = taCenter
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -19
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Width = 148
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Agroupowner'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'Times New Roman'
        Font.Style = []
        PickList.Strings = (
          'True'
          'False')
        Title.Alignment = taCenter
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -19
        Title.Font.Name = 'Times New Roman'
        Title.Font.Style = []
        Width = 126
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 129
    Top = 277
    Width = 114
    Height = 35
    Caption = #30830#35748#20462#25913
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337FF3333333333330003333333333333777F333333333333080333
      3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
      33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
      B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
      BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
      B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
      3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
      333333333337F33333333333333B333333333333333733333333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 361
    Top = 277
    Width = 114
    Height = 35
    Caption = #36864'  '#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F3333333F7F333301111111B10333337F333333737F33330111111111
      0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
      0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
      0333337F377777337F333301111111110333337F333333337F33330111111111
      0333337FFFFFFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'port'
    TableName = 'pUser.DB'
    Left = 48
    Top = 8
    object Table1Auid: TStringField
      Alignment = taCenter
      DisplayLabel = #29992#25143#24080#21495
      FieldName = 'Auid'
      Size = 10
    end
    object Table1Auname: TStringField
      Alignment = taCenter
      DisplayLabel = #29992#25143#22995#21517
      FieldName = 'Auname'
      Size = 8
    end
    object Table1Agroup: TStringField
      Alignment = taCenter
      DisplayLabel = #29992#25143#32452#21517
      FieldName = 'Agroup'
      LookupResultField = 'agroup'
      Size = 8
    end
    object Table1Agroupowner: TBooleanField
      Alignment = taCenter
      DisplayLabel = #29992#25143#32452#38271
      FieldName = 'Agroupowner'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 24
    Top = 16
  end
end