admin.dfm

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

object Form_Admin: TForm_Admin
  Left = 366
  Top = 207
  BorderStyle = bsDialog
  Caption = #31649#29702#21592#31649#29702
  ClientHeight = 265
  ClientWidth = 478
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object BDBGrid: TDBGrid
    Left = 1
    Top = 1
    Width = 476
    Height = 220
    Hint = #21452#20987#32534#36753#24403#21069#25351#23450#25805#20316#21592#20449#24687'!'
    DataSource = DSAdmin
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = BDBGridDblClick
    Columns = <
      item
        ButtonStyle = cbsNone
        Expanded = False
        FieldName = 'operid'
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -15
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        ButtonStyle = cbsNone
        Expanded = False
        FieldName = 'opername'
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -15
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        ButtonStyle = cbsNone
        Expanded = False
        FieldName = 'team_name'
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -15
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end>
  end
  object AddBtn: TBitBtn
    Left = 56
    Top = 232
    Width = 75
    Height = 25
    Action = DataSetInsert1
    Caption = #22686#21152'&A'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
  end
  object EditBtn: TBitBtn
    Left = 154
    Top = 232
    Width = 75
    Height = 25
    Action = DataSetEdit1
    Caption = #32534#36753'&E'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
  end
  object DelBtn: TBitBtn
    Left = 253
    Top = 232
    Width = 75
    Height = 25
    Action = DataSetDelete1
    Caption = #21024#38500'&D'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
  end
  object ExitBtn: TBitBtn
    Left = 376
    Top = 232
    Width = 75
    Height = 25
    Cancel = True
    Caption = #36864#20986'&X'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object BActionList1: TActionList
    Left = 264
    Top = 80
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = #39318#35760#24405'&F'
      Hint = #39318#35760#24405'|'#39318#35760#24405
      ImageIndex = 0
    end
    object DataSetNext1: TDataSetNext
      Category = 'Dataset'
      Caption = #19979#19968#26465
      Hint = #19979#19968#26465'|'#19979#19968#26465
      ImageIndex = 2
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = #21024#38500'&D'
      Hint = #21024#38500'|'#21024#38500
      ImageIndex = 5
      OnExecute = DataSetDelete1Execute
    end
    object DataSetRefresh1: TDataSetRefresh
      Category = 'Dataset'
      Caption = #21047#26032'&R'
      Hint = #21047#26032'|'#21047#26032
      ImageIndex = 9
    end
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = #22686#21152'&A'
      Hint = #22686#21152'|'#22686#21152
      ImageIndex = 4
      OnExecute = DataSetInsert1Execute
    end
    object DataSetEdit1: TDataSetEdit
      Category = 'Dataset'
      Caption = #32534#36753'&E'
      Hint = #32534#36753'|'#32534#36753
      ImageIndex = 6
      OnExecute = DataSetEdit1Execute
    end
    object Action_Locate: TAction
      Category = 'Dataset'
      Caption = #26597#25214'&S'
      Hint = #26597#25214'|'#26597#25214
    end
    object Action_Print: TAction
      Caption = #25171#21360'&P'
    end
    object Action_Help: TAction
      Caption = #24110#21161
    end
  end
  object DSAdmin: TDataSource
    DataSet = ADOTAdmin
    Left = 72
    Top = 80
  end
  object ADOTAdmin: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from operator')
    Left = 32
    Top = 80
    object ADOTAdminoperid: TStringField
      DisplayLabel = #25805#20316#21592'ID'
      FieldName = 'operid'
    end
    object ADOTAdminopername: TStringField
      DisplayLabel = #25805#20316#21592#22995#21517
      FieldName = 'opername'
      Size = 10
    end
    object ADOTAdminpassword: TStringField
      FieldName = 'password'
      Size = 32
    end
    object ADOTAdminteam_id: TIntegerField
      DisplayLabel = #25805#20316#21592#32423#21035
      FieldName = 'team_id'
    end
    object ADOTAdminteam_name: TStringField
      DisplayLabel = #25805#20316#21592#32423#21035
      FieldKind = fkLookup
      FieldName = 'team_name'
      LookupDataSet = ADOT_team
      LookupKeyFields = 'team_id'
      LookupResultField = 'team_name'
      KeyFields = 'team_id'
      Lookup = True
    end
    object ADOTAdmintmp_id: TAutoIncField
      FieldName = 'tmp_id'
      ReadOnly = True
    end
  end
  object ADOT_team: TADOTable
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    TableName = 'teampower'
    Left = 32
    Top = 120
    object ADOT_teamteam_id: TIntegerField
      FieldName = 'team_id'
    end
    object ADOT_teamteam_name: TStringField
      FieldName = 'team_name'
      FixedChar = True
    end
  end
end