sal_enter_salecontract.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Enter_SaleContract: TFrm_Sal_Enter_SaleContract
  Left = 197
  Top = 155
  Caption = #38144#21806#20215#26684#34920
  ClientHeight = 482
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #38144#21806#20215#26684#34920
  end
  inherited Pnl_Head: TPanel
    Height = 91
    inherited Image1: TImage
      Height = 91
    end
    object Label5: TLabel
      Left = 52
      Top = 55
      Width = 36
      Height = 12
      Caption = #22791#27880#65306
      TransParent = True
    end
    object Label2: TLabel
      Left = 52
      Top = 5
      Width = 36
      Height = 12
      Caption = #23458#25143#65306
      Color = clBtnFace
      ParentColor = False
      TransParent = True
    end
    object Label3: TLabel
      Left = 28
      Top = 129
      Width = 60
      Height = 12
      Caption = #20184#27454#26465#27454#65306
      Visible = False
    end
    object Label4: TLabel
      Left = 486
      Top = 139
      Width = 72
      Height = 12
      Caption = #33829#38144#19994#21153#21592#65306
      Visible = False
    end
    object Label8: TLabel
      Left = 474
      Top = 189
      Width = 60
      Height = 12
      Caption = #38144#21806#37096#38376#65306
      TransParent = True
      Visible = False
    end
    object Label9: TLabel
      Left = 474
      Top = 166
      Width = 60
      Height = 12
      Caption = #38144#21806#31867#22411#65306
      TransParent = True
      Visible = False
    end
    object Label10: TLabel
      Left = 309
      Top = 30
      Width = 36
      Height = 12
      Caption = #36135#24065#65306
      TransParent = True
    end
    object Label11: TLabel
      Left = 28
      Top = 30
      Width = 60
      Height = 12
      Caption = #24314#34920#26085#26399#65306
      TransParent = True
    end
    object Label12: TLabel
      Left = 16
      Top = 162
      Width = 72
      Height = 12
      Caption = #21512#21516#31614#23450#22320#65306
      Visible = False
    end
    object Label13: TLabel
      Left = 28
      Top = 139
      Width = 60
      Height = 12
      Caption = #20132#36135#22320#28857#65306
      Visible = False
    end
    object Label6: TLabel
      Left = 173
      Top = 30
      Width = 60
      Height = 12
      Caption = #38144#21806#31246#29575#65306
      TransParent = True
    end
    object Label1: TLabel
      Left = 86
      Top = 77
      Width = 132
      Height = 12
      Caption = #26174#31034#24050#36807#26399#38144#21806#20215#26684#25968#25454
      TransParent = True
    end
    object Edt_RemArk: TEdit
      Left = 88
      Top = 51
      Width = 380
      Height = 20
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 6
      OnExit = TextCheck
    end
    object Edt_CustomerName: TEdit
      Left = 154
      Top = 1
      Width = 314
      Height = 20
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 1
    end
    object Edt_PayTermName: TEdit
      Left = 141
      Top = 145
      Width = 124
      Height = 20
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 11
      Text = 'Edt_PayTermName'
      Visible = False
    end
    object Edt_SlcLineAddressName: TEdit
      Left = 141
      Top = 156
      Width = 326
      Height = 20
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 9
      Text = 'Edt_SlcLineAddressName'
      Visible = False
    end
    object Edt_TaxRate_Percent: TEdit
      Left = 238
      Top = 26
      Width = 57
      Height = 20
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      MaxLength = 5
      TabOrder = 3
      OnExit = FloatCheck
    end
    object Edt_SlcAddress: TEdit
      Left = 88
      Top = 158
      Width = 302
      Height = 20
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 17
      Text = 'Edt_SlcAddress'
      Visible = False
    end
    object MEdt_SlcDate: TMaskEdit
      Left = 88
      Top = 26
      Width = 77
      Height = 20
      EditMask = '!9999/99/99;1;_'
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      MaxLength = 10
      TabOrder = 2
      Text = ' .  -  -  '
      OnChange = DateCheck
      OnExit = DateCheck
    end
    object Edt_DeptName: TEdit
      Left = 574
      Top = 186
      Width = 130
      Height = 20
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 8
      Text = 'Edt_DeptName'
      Visible = False
    end
    object Edt_SaleEmployeeName: TEdit
      Left = 614
      Top = 156
      Width = 130
      Height = 20
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 10
      Text = 'Edt_SaleEmployeeName'
      Visible = False
    end
    object Edt_CurrencyName: TEdit
      Left = 401
      Top = 26
      Width = 67
      Height = 20
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 5
    end
    object Edt_SaleTypeName: TEdit
      Left = 574
      Top = 162
      Width = 130
      Height = 20
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 7
      Text = 'Edt_SaleTypeName'
      Visible = False
    end
    object Edt_CustomerCode: TLinkEdit
      Left = 88
      Top = 1
      Width = 64
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 0
      OnButtonClick = CustomerHint1
      OnEnter = Edt_CustomerCodeEnter
      OnExit = Edt_CustomerCodeExit
      OnKeyDown = CustomerHint
    end
    object Edt_CurrencyCode: TLinkEdit
      Left = 349
      Top = 26
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 4
      OnButtonClick = CurrencyHint1
      OnExit = Edt_CurrencyCodeExit
      OnKeyDown = CurrencyHint
    end
    object Edt_SlcLineAddresSCode: TLinkEdit
      Left = 88
      Top = 145
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 12
      Text = 'Edt_SlcLineAddresSCode'
      Visible = False
      OnButtonClick = Edt_SlcLineAddresSCodeButtonClick
      OnExit = Edt_SlcLineAddresSCodeExit
      OnKeyDown = Edt_SlcLineAddresSCodeKeyDown
    end
    object Edt_PayTermCode: TLinkEdit
      Left = 88
      Top = 156
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 13
      Text = 'Edt_PayTermCode'
      Visible = False
      OnButtonClick = Edt_PayTermCodeButtonClick
      OnExit = Edt_PayTermCodeExit
      OnKeyDown = Edt_PayTermCodeKeyDown
    end
    object Edt_SaleTypeCode: TLinkEdit
      Left = 522
      Top = 162
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 14
      Text = 'Edt_SaleTypeCode'
      Visible = False
      OnButtonClick = Edt_SaleTypeCodeButtonClick
      OnExit = Edt_SaleTypeCodeExit
      OnKeyDown = Edt_SaleTypeCodeKeyDown
    end
    object Edt_DeptCode: TLinkEdit
      Left = 522
      Top = 186
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 15
      Text = 'Edt_DeptCode'
      Visible = False
      OnButtonClick = DeptHint1
      OnExit = Edt_DeptCodeExit
      OnKeyDown = DeptHint
    end
    object Edt_SaleEmployeeCode: TLinkEdit
      Left = 562
      Top = 156
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 16
      Text = 'Edt_SaleEmployeeCode'
      Visible = False
      OnButtonClick = EmployeeHint1
      OnExit = Edt_SaleEmployeeCodeExit
      OnKeyDown = EmployeeHint
    end
    object chb_Overdue: TCheckBox
      Left = 68
      Top = 76
      Width = 13
      Height = 13
      TabOrder = 18
      OnClick = chb_OverdueClick
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 457
    object Label7: TLabel
      Left = 16
      Top = 8
      Width = 84
      Height = 12
      Caption = #24403#21069#29289#26009#25551#36848#65306
      TransParent = True
    end
    object DBTxt_ItemName: TDBText
      Left = 104
      Top = 8
      Width = 84
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Top = 146
    Height = 311
    inherited Image3: TImage
      Height = 311
    end
    inherited DBGridEh: TDBGridEh
      Height = 311
      FrozenCols = 2
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'SlcLineNo'
          Footers = <>
          Title.Caption = #20215#26684#34920#34892#21495
          Width = 45
        end
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #29289#26009#20195#30721
        end
        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Caption = #29289#26009#25551#36848
          Width = 232
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #21333#20301
          Width = 36
        end
        Item
          EditButtons = <>
          FieldName = 'StArtDate'
          Footers = <>
          Title.Caption = #36215#22987#26085#26399
          Width = 88
        end
        Item
          EditButtons = <>
          FieldName = 'endDate'
          Footers = <>
          Title.Caption = #32456#27490#26085#26399
          Width = 96
        end
        Item
          EditButtons = <>
          FieldName = 'StArtQty'
          Footers = <>
          Title.Caption = #36215#22987#25968#37327
          Width = 56
        end
        Item
          EditButtons = <>
          FieldName = 'endQty'
          Footers = <>
          Title.Caption = #32456#27490#25968#37327
        end
        Item
          EditButtons = <>
          FieldName = 'NoTaxPrice'
          Footers = <>
          Title.Caption = #26410#31246#20215
        end
        Item
          EditButtons = <>
          FieldName = 'TaxPrice'
          Footers = <>
          Title.Caption = #21547#31246#20215
        end
        Item
          EditButtons = <>
          FieldName = 'ReferencedPrice'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            '0 '#38750#26631#20934
            '1 '#26631#20934)
          Title.Caption = #20215#26684#31867#22411
        end
        Item
          EditButtons = <>
          FieldName = 'Linestatus'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            '0 '#26410#25209#20934
            '1 '#25209#20934)
          Title.Caption = #21512#21516#34892#29366#24577
        end
        Item
          EditButtons = <>
          FieldName = 'SlcLineRemArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 197
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 309
    Top = 211
  end
  inherited ActionList: TActionList
    Top = 312
    inherited Act_Filter: TAction
      Enabled = True
      Visible = True
    end
    inherited Act_Order: TAction
      Enabled = True
      Visible = True
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdysjmrm;Data Source=192.168.0.1' +
      '51;Use procedure for Prepare=1;Auto Translate=True;Packet Size=4' +
      '096;Workstation ID=XYB'
    SQL.Strings = (
      'Select Sa_SaleContractLine.* ,Item.ItemName,Uom.UomName'
      'From Sa_SaleContractLine'
      'Join Item'
      '  On Item.ItemCode=Sa_SaleContractLine.ItemCode'
      'Join Uom'
      '  On Item.UomCode=Uom.UomCode')
    Left = 384
    Top = 241
    object AdoQry_BodySlcNo: TStringField
      FieldName = 'SlcNo'
      Size = 16
    end
    object AdoQry_BodySlcLineNo: TIntegerField
      FieldName = 'SlcLineNo'
    end
    object AdoQry_BodyItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_BodyStArtDate: TDateTimeField
      FieldName = 'StArtDate'
    end
    object AdoQry_BodyendDate: TDateTimeField
      FieldName = 'endDate'
    end
    object AdoQry_BodyStArtQty: TFloatField
      FieldName = 'StArtQty'
    end
    object AdoQry_BodyendQty: TFloatField
      FieldName = 'endQty'
    end
    object AdoQry_BodyNoTaxPrice: TFloatField
      FieldName = 'NoTaxPrice'
    end
    object AdoQry_BodyTaxPrice: TFloatField
      FieldName = 'TaxPrice'
    end
    object AdoQry_BodyReferencedPrice: TIntegerField
      FieldName = 'ReferencedPrice'
    end
    object AdoQry_BodyLinestatus: TIntegerField
      FieldName = 'Linestatus'
    end
    object AdoQry_BodySlcLineRemArk: TStringField
      FieldName = 'SlcLineRemArk'
      Size = 60
    end
    object AdoQry_BodyLastOperationTime: TDateTimeField
      FieldName = 'LastOperationTime'
    end
    object AdoQry_BodyCheckFlag: TIntegerField
      FieldName = 'CheckFlag'
    end
    object AdoQry_BodyItemName: TStringField
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_BodyUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
  end
  inherited DataSource: TDataSource
    Left = 448
    Top = 289
  end
  object ActionList1: TActionList [9]
    Left = 200
    Top = 241
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 112
    Top = 345
  end
end