ad_enter_assetcardusedept.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 414 行

inherited Frm_Ad_Enter_AssetCardUseDept: TFrm_Ad_Enter_AssetCardUseDept
  Left = 15
  Top = 82
  Caption = '使用部门'
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited ToolButton7: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '使用部门'
  end
  inherited Pnl_Head: TPanel
    Height = 127
    inherited Image1: TImage
      Height = 127
    end
    object Lab_ShipAddressName: TLabel
      Left = 213
      Top = 118
      Width = 6
      Height = 12
      TransParent = True
      Visible = False
    end
    object Lab_SaleTermName: TLabel
      Left = 342
      Top = 64
      Width = 6
      Height = 12
      TransParent = True
      Visible = False
    end
    object Lab_CurrencyName: TLabel
      Left = 139
      Top = 35
      Width = 6
      Height = 12
      Visible = False
    end
    object Lab_SaleDeptName: TLabel
      Left = 341
      Top = 48
      Width = 6
      Height = 12
      TransParent = True
      Visible = False
    end
    object Lab_CustomerName: TLabel
      Left = 184
      Top = 91
      Width = 6
      Height = 12
      Visible = False
    end
    object Lab_SaleEmployeeName: TLabel
      Left = 139
      Top = 63
      Width = 6
      Height = 12
      TransParent = True
      Visible = False
    end
    object Label2: TLabel
      Left = 309
      Top = 8
      Width = 6
      Height = 12
      TransParent = True
      Visible = False
    end
    object Label1: TLabel
      Left = 35
      Top = 8
      Width = 84
      Height = 12
      Caption = '固定资产编号：'
      TransParent = True
    end
    object Label3: TLabel
      Left = 369
      Top = 8
      Width = 84
      Height = 12
      Caption = '固定资产名称：'
      TransParent = True
    end
    object Label24: TLabel
      Left = 393
      Top = 77
      Width = 60
      Height = 12
      Caption = '存放地点：'
      TransParent = True
    end
    object Label15: TLabel
      Left = 59
      Top = 31
      Width = 60
      Height = 12
      Caption = '入帐日期：'
      TransParent = True
    end
    object Label25: TLabel
      Left = 369
      Top = 31
      Width = 84
      Height = 12
      Caption = '开始使用日期：'
      TransParent = True
    end
    object Label26: TLabel
      Left = 59
      Top = 100
      Width = 60
      Height = 12
      Caption = '增减方式：'
      TransParent = True
    end
    object Label27: TLabel
      Left = 393
      Top = 100
      Width = 60
      Height = 12
      Caption = '使用状态：'
      TransParent = True
    end
    object Label18: TLabel
      Left = 381
      Top = 54
      Width = 72
      Height = 12
      Caption = '本位币原值：'
      TransParent = True
    end
    object Label11: TLabel
      Left = 59
      Top = 54
      Width = 60
      Height = 12
      Caption = '折旧方法：'
      TransParent = True
    end
    object Label19: TLabel
      Left = 59
      Top = 77
      Width = 60
      Height = 12
      Caption = '使用年限：'
      TransParent = True
    end
    object Edt_AssetCode: TEdit
      Left = 117
      Top = 3
      Width = 100
      Height = 20
      Enabled = False
      TabOrder = 0
    end
    object EDT_AssetName: TEdit
      Left = 450
      Top = 3
      Width = 250
      Height = 20
      Enabled = False
      TabOrder = 1
    end
    object EDT_DepositaryCode: TLinkEdit
      Left = 450
      Top = 72
      Width = 70
      Height = 20
      Enabled = False
      LinkStyle = lsEllipsis
      TabOrder = 2
      Text = ' '
    end
    object EDT_DepositaryName: TExtEdit
      Left = 521
      Top = 72
      Width = 150
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 3
    end
    object MEDT_InAccountDate: TMaskEdit
      Left = 117
      Top = 26
      Width = 67
      Height = 20
      Enabled = False
      EditMask = '9999.99.99;1;_'
      MaxLength = 10
      TabOrder = 4
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object MEDT_StartUseDate: TMaskEdit
      Left = 450
      Top = 26
      Width = 67
      Height = 20
      Enabled = False
      EditMask = '9999.99.99;1;_'
      MaxLength = 10
      TabOrder = 5
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object EDT_AdChangeTypeCode: TLinkEdit
      Left = 117
      Top = 95
      Width = 70
      Height = 20
      Enabled = False
      LinkStyle = lsEllipsis
      TabOrder = 6
      Text = ' '
    end
    object EDT_AdChangeTypeName: TExtEdit
      Left = 189
      Top = 95
      Width = 150
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 7
    end
    object EDT_UseStatusCode: TLinkEdit
      Left = 450
      Top = 95
      Width = 70
      Height = 20
      Enabled = False
      LinkStyle = lsEllipsis
      TabOrder = 8
      Text = ' '
    end
    object EDT_UseStatusName: TExtEdit
      Left = 521
      Top = 95
      Width = 150
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 9
    end
    object EDT_FirstFAmount: TExtEdit
      Left = 450
      Top = 49
      Width = 90
      Height = 20
      Enabled = False
      TabOrder = 10
    end
    object CMBX_DepreciationWay: TComboBox
      Left = 117
      Top = 49
      Width = 90
      Height = 20
      Style = csDropDownList
      Enabled = False
      ItemHeight = 12
      TabOrder = 11
      Items.Strings = (
        '1平均年限法'
        '2工作量法'
        '3双倍余额递减法'
        '4年数总和法'
        '5不计提折旧法')
    end
    object EDT_IntendingPeriod: TExtEdit
      Left = 117
      Top = 72
      Width = 90
      Height = 20
      Enabled = False
      TabOrder = 12
    end
  end
  inherited Pnl_Body: TPanel
    Top = 184
    Height = 258
    inherited Image3: TImage
      Height = 258
    end
    inherited DBGridEh: TDBGridEh
      Height = 258
      Columns = <
        Item
          FieldName = 'DeptCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '部门代码'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '部门名称'
          Width = 230
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmCode'
          PickList.Strings = ()
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'kmName'
          PickList.Strings = ()
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssignRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '分配率'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 129
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 206
    Top = 291
  end
  inherited ActionList: TActionList
    Left = 523
    Top = 328
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    SQL.Strings = (
      'select Ad_UseDept.AssetCode,'
      '       Ad_UseDept.DeptCode,'
      '       Dept.DeptName,'
      '       Ad_useDept.kmCode,'
      '       Gl_AccountSubject.kmName,'
      '       Ad_UseDept.AssignRate,'
      '       Ad_UseDept.RemArk '
      'from Ad_UseDept '
      'Left Join Dept On Ad_UseDept.DeptCode=Dept.DeptCode'
      
        'left join Gl_AccountSubject on Ad_useDept.kmCode=Gl_Accountsubje' +
        'ct.kmCode')
    Left = 427
    Top = 305
    object AdoQry_BodyAssetCode: TStringField
      FieldName = 'AssetCode'
      Origin = 'Ad_UseDept'
      Size = 16
    end
    object AdoQry_BodyDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = 'Ad_UseDept'
      Size = 8
    end
    object AdoQry_BodyAssignRate: TFloatField
      FieldName = 'AssignRate'
      Origin = 'Ad_UseDept'
    end
    object AdoQry_BodyRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Ad_UseDept'
      Size = 30
    end
    object AdoQry_BodyDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_BodykmCode: TStringField
      DisplayLabel = '费用科目代码'
      FieldName = 'kmCode'
      Size = 15
    end
    object AdoQry_BodykmName: TStringField
      DisplayLabel = '费用科目名称'
      FieldName = 'kmName'
      Size = 40
    end
  end
  inherited DataSource: TDataSource
    Left = 355
    Top = 289
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 635
    Top = 289
  end
end