sal_enter_salecontracth.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Enter_SaleContractH: TFrm_Sal_Enter_SaleContractH
  Left = 208
  Top = 181
  Caption = #38144#21806#20215#26684#34920
  ClientHeight = 459
  ClientWidth = 750
  Position = poMainformCenter
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 750
  end
  inherited Pnl_Title: TPanel
    Width = 750
    Caption = #38144#21806#20215#26684#34920
    inherited Image2: TImage
      Width = 750
    end
  end
  inherited Pnl_Head: TPanel
    Width = 750
    inherited Image1: TImage
      Width = 750
    end
    inherited Lbl_Condition: TLabel
      Width = 144
      Caption = #38144#21806#20215#26684#34920#34892#35760#24405#26410#20840#25209#20934
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = #23458#25143#20195#30721
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 434
    Width = 750
    inherited Image4: TImage
      Width = 750
    end
  end
  inherited Pnl_Body: TPanel
    Width = 750
    Height = 343
    inherited Image3: TImage
      Width = 750
      Height = 343
    end
    inherited DBGridEh: TDBGridEh
      Width = 750
      Height = 343
      FrozenCols = 4
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'CustomerCode'
          Footers = <>
          Title.Caption = #23458#25143#20195#30721
          Width = 79
        end
        Item
          EditButtons = <>
          FieldName = 'CustomerName'
          Footers = <>
          Title.Caption = #23458#25143#21517#31216
          Width = 230
        end
        Item
          EditButtons = <>
          FieldName = 'SlcDate'
          Footers = <>
          Title.Caption = #24314#34920#26085#26399
          Width = 77
        end
        Item
          EditButtons = <>
          FieldName = 'TaxRate_Percent'
          Footers = <>
          Title.Caption = #31246#29575
          Width = 36
        end
        Item
          EditButtons = <>
          FieldName = 'PayTermCode'
          Footers = <>
          Title.Caption = #20184#27454#26465#27454#20195#30721
          Visible = False
          Width = 82
        end
        Item
          EditButtons = <>
          FieldName = 'PayTermName'
          Footers = <>
          Title.Caption = #20184#27454#26465#27454#21517#31216
          Visible = False
          Width = 121
        end
        Item
          EditButtons = <>
          FieldName = 'PayTermFalg'
          Footers = <>
          Title.Caption = #20184#27454#26465#27454#26631#35782
          Visible = False
          Width = 142
        end
        Item
          EditButtons = <>
          FieldName = 'SaleEmployeeCode'
          Footers = <>
          Title.Caption = #38144#21806#21592#20195#30721
          Visible = False
          Width = 76
        end
        Item
          EditButtons = <>
          FieldName = 'EmployeeName'
          Footers = <>
          Title.Caption = #38144#21806#21592#21517#31216
          Visible = False
          Width = 72
        end
        Item
          EditButtons = <>
          FieldName = 'SaleEmployeeFalg'
          Footers = <>
          Title.Caption = #38144#21806#21592#26631#35782
          Visible = False
          Width = 108
        end
        Item
          EditButtons = <>
          FieldName = 'DeptCode'
          Footers = <>
          Title.Caption = #38144#21806#37096#38376#20195#30721
          Visible = False
        end
        Item
          EditButtons = <>
          FieldName = 'DeptName'
          Footers = <>
          Title.Caption = #38144#21806#37096#38376#21517#31216
          Visible = False
          Width = 85
        end
        Item
          EditButtons = <>
          FieldName = 'DeptFalg'
          Footers = <>
          Title.Caption = #38144#21806#37096#38376#26631#35782
          Visible = False
          Width = 106
        end
        Item
          EditButtons = <>
          FieldName = 'SaleTypeCode'
          Footers = <>
          Title.Caption = #38144#21806#31867#22411#20195#30721
          Visible = False
          Width = 72
        end
        Item
          EditButtons = <>
          FieldName = 'SaleTypeName'
          Footers = <>
          Title.Caption = #38144#21806#31867#22411#21517#31216
          Visible = False
          Width = 100
        end
        Item
          EditButtons = <>
          FieldName = 'CurrencyCode'
          Footers = <>
          Title.Caption = #36135#24065#20195#30721
          Width = 55
        end
        Item
          EditButtons = <>
          FieldName = 'CurrencyName'
          Footers = <>
          Title.Caption = #36135#24065#21517#31216
          Width = 59
        end
        Item
          EditButtons = <>
          FieldName = 'CurrencyFalg'
          Footers = <>
          Title.Caption = #36135#24065#26631#35782
          Visible = False
          Width = 121
        end
        Item
          EditButtons = <>
          FieldName = 'SlcAddress'
          Footers = <>
          Title.Caption = #21512#21516#31614#23450#22320' '
          Visible = False
          Width = 262
        end
        Item
          EditButtons = <>
          FieldName = 'SlcLineAddresSCode'
          Footers = <>
          Title.Caption = #20132#36135#22320#28857
          Visible = False
          Width = 298
        end
        Item
          EditButtons = <>
          FieldName = 'RemArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 166
        end
        Item
          EditButtons = <>
          FieldName = 'CreateDate'
          Footers = <>
          Title.Caption = #24314#26723#26085#26399
          Width = 81
        end
        Item
          EditButtons = <>
          FieldName = 'CreateEmployeeCode'
          Footers = <>
          Title.Caption = #24314#26723#20154#21592#20195#30721
          Width = 78
        end
        Item
          EditButtons = <>
          FieldName = 'EditDate'
          Footers = <>
          Title.Caption = #20462#25913#26085#26399
          Width = 93
        end
        Item
          EditButtons = <>
          FieldName = 'EdItEmployeeCode'
          Footers = <>
          Title.Caption = #20462#25913#20154#21592#20195#30721
          Width = 75
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 405
    Top = 291
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 'FILE Name=Mrpii.udl'
    CurSorType = ctStatic
    SQL.Strings = (
      ' Select Sa_SaleContract.* ,'
      '        Customer.CustomerName,'
      '        Currency.CurrencyName,   '
      
        '        Sa_SaleContract.CurrencyCode+'#39' '#39'+Currency.CurrencyName A' +
        's CurrencyFalg'
      ' From Sa_SaleContract    '
      
        ' Join Customer    On Sa_SaleContract.CustomerCode= Customer.Cust' +
        'omerCode    '
      
        ' Left Join Currency    On Sa_SaleContract.CurrencyCode=Currency.' +
        'CurrencyCode   ')
    Left = 424
    Top = 225
    object AdoQry_HeadSlcNo: TStringField
      FieldName = 'SlcNo'
      Origin = 'Sa_SaleContract'
      Size = 16
    end
    object AdoQry_HeadCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = 'Sa_SaleContract'
      Size = 12
    end
    object AdoQry_HeadCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'Sa_SaleContract'
      Size = 2
    end
    object AdoQry_HeadTaxRate_Percent: TFloatField
      FieldName = 'TaxRate_Percent'
      Origin = 'Sa_SaleContract'
    end
    object AdoQry_HeadSlcDate: TDateTimeField
      FieldName = 'SlcDate'
      Origin = 'Sa_SaleContract'
    end
    object AdoQry_HeadRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Sa_SaleContract'
      Size = 60
    end
    object AdoQry_HeadCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Origin = 'Sa_SaleContract'
    end
    object AdoQry_HeadCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'Sa_SaleContract'
      Size = 30
    end
    object AdoQry_HeadEditDate: TDateTimeField
      FieldName = 'EditDate'
      Origin = 'Sa_SaleContract'
    end
    object AdoQry_HeadEdItEmployeeCode: TStringField
      FieldName = 'EdItEmployeeCode'
      Origin = 'Sa_SaleContract'
      Size = 30
    end
    object AdoQry_HeadCustomerName: TStringField
      FieldName = 'CustomerName'
      Size = 60
    end
    object AdoQry_HeadCurrencyName: TStringField
      FieldName = 'CurrencyName'
      Size = 30
    end
    object AdoQry_HeadCurrencyFalg: TStringField
      FieldName = 'CurrencyFalg'
      ReadOnly = True
      Size = 33
    end
  end
  inherited DataSource: TDataSource
    Left = 432
    Top = 153
  end
end