unitdept.dfm

仓储系统

object frmDept: TfrmDept
  Left = 95
  Top = 173
  Width = 638
  Height = 361
  BorderIcons = [biMaximize]
  Caption = #37096#38376#20195#30721#35774#32622
  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
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 528
    Top = 0
    Width = 102
    Height = 334
    Align = alRight
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15263976
    TabOrder = 0
    object btnAdd: TButton
      Left = 19
      Top = 14
      Width = 75
      Height = 25
      Caption = #22686#21152'(&A)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = btnAddClick
    end
    object btnCancel: TButton
      Left = 19
      Top = 174
      Width = 75
      Height = 25
      Caption = #21462#28040'(&C)'
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = btnCancelClick
    end
    object btnErase: TButton
      Left = 19
      Top = 54
      Width = 75
      Height = 25
      Caption = #21024#38500'(&D)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btnEraseClick
    end
    object btnMod: TButton
      Left = 19
      Top = 94
      Width = 75
      Height = 25
      Caption = #20462#25913'(&M)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btnModClick
    end
    object btnSave: TButton
      Left = 19
      Top = 134
      Width = 75
      Height = 25
      Caption = #20445#23384'(&S)'
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = btnSaveClick
    end
    object btnExit: TButton
      Left = 19
      Top = 214
      Width = 75
      Height = 25
      Caption = #36864#20986'(&X)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = btnExitClick
    end
  end
  object Panel1: TPanel
    Left = 285
    Top = 0
    Width = 243
    Height = 334
    Align = alRight
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15263976
    TabOrder = 1
    object lblDept: TLabel
      Left = 25
      Top = 23
      Width = 65
      Height = 12
      Caption = #37096#38376#20195#30721#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblDeptName: TLabel
      Left = 25
      Top = 86
      Width = 65
      Height = 12
      Caption = #37096#38376#21517#31216#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 59
      Top = 55
      Width = 146
      Height = 12
      Caption = '('#37096#38376#20195#30721#20026#20108#20301','#22914':01)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 59
      Top = 111
      Width = 170
      Height = 12
      Caption = '('#37096#38376#21517#31216#19981#33021#36229#36807#20116#20010#27721#23383')'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object lblPosition: TLabel
      Left = 25
      Top = 234
      Width = 65
      Height = 12
      Caption = #37096#38376#20301#32622#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblLeader: TLabel
      Left = 25
      Top = 144
      Width = 65
      Height = 12
      Caption = #37096#38376#20027#31649#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblJob: TLabel
      Left = 25
      Top = 186
      Width = 65
      Height = 12
      Caption = #37096#38376#32844#33021#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblBz: TLabel
      Left = 25
      Top = 274
      Width = 39
      Height = 12
      Caption = #22791#27880#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object edtDept: TEdit
      Left = 93
      Top = 20
      Width = 89
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      MaxLength = 2
      ParentFont = False
      TabOrder = 0
      OnExit = edtDeptExit
      OnKeyPress = edtDeptKeyPress
    end
    object edtDeptName: TEdit
      Left = 93
      Top = 83
      Width = 135
      Height = 22
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      MaxLength = 20
      ParentFont = False
      TabOrder = 1
      OnKeyPress = edtDeptKeyPress
    end
    object edtPosition: TEdit
      Left = 93
      Top = 231
      Width = 129
      Height = 21
      TabOrder = 4
      OnKeyPress = edtDeptKeyPress
    end
    object edtLeader: TEdit
      Left = 93
      Top = 141
      Width = 131
      Height = 21
      TabOrder = 2
      OnKeyPress = edtDeptKeyPress
    end
    object edtJob: TEdit
      Left = 93
      Top = 183
      Width = 129
      Height = 21
      TabOrder = 3
      OnKeyPress = edtDeptKeyPress
    end
    object edtBz: TEdit
      Left = 91
      Top = 272
      Width = 141
      Height = 21
      TabOrder = 5
      OnKeyPress = edtBzKeyPress
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 285
    Height = 334
    Align = alClient
    DataSource = dsDept
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clMaroon
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = [fsBold]
    Columns = <
      item
        Expanded = False
        FieldName = 'Dept_id'
        Title.Alignment = taCenter
        Title.Caption = #37096#38376#20195#30721
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Dept_Name'
        Title.Alignment = taCenter
        Title.Caption = #37096#38376#21517#31216
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Dept_Leader'
        Title.Alignment = taCenter
        Title.Caption = #37096#38376#20027#31649
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Dept_Job'
        Title.Alignment = taCenter
        Title.Caption = #37096#38376#32844#33021
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Dept_place'
        Title.Alignment = taCenter
        Title.Caption = #37096#38376#20301#32622
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Dept_Memo'
        Title.Caption = #22791#27880
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = [fsBold]
        Width = 120
        Visible = True
      end>
  end
  object dsDept: TDataSource
    DataSet = DM.qry_Dept
    OnDataChange = dsDeptDataChange
    Left = 24
    Top = 64
  end
end