sdoctr.dfm

阀门厂的合同管理含销售 等

object FormSDOCTR: TFormSDOCTR
  Left = 195
  Top = 125
  Width = 544
  Height = 409
  Caption = #38144#21806#21512#21516
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 69
    Height = 13
    Caption = #23458#25143#20195#30721'       '
  end
  object Label2: TLabel
    Left = 8
    Top = 28
    Width = 45
    Height = 13
    Caption = #21517#31216'       '
  end
  object Shape2: TShape
    Left = 8
    Top = 45
    Width = 105
    Height = 1
    Pen.Color = clWhite
  end
  object Shape1: TShape
    Left = 8
    Top = 25
    Width = 105
    Height = 1
    Pen.Color = clWhite
  end
  object Label8: TLabel
    Left = 8
    Top = 48
    Width = 57
    Height = 13
    Caption = #32852#31995#20154'       '
  end
  object Shape8: TShape
    Left = 8
    Top = 65
    Width = 105
    Height = 1
    Pen.Color = clWhite
  end
  object Shape3: TShape
    Left = 8
    Top = 85
    Width = 105
    Height = 1
    Pen.Color = clWhite
  end
  object Label4: TLabel
    Left = 320
    Top = 8
    Width = 57
    Height = 13
    Caption = #21512#21516#21495'       '
  end
  object Label5: TLabel
    Left = 320
    Top = 28
    Width = 66
    Height = 13
    Caption = #36215#22987#26085#26399'      '
  end
  object Shape4: TShape
    Left = 320
    Top = 45
    Width = 105
    Height = 1
    Pen.Color = clWhite
  end
  object Shape5: TShape
    Left = 320
    Top = 25
    Width = 105
    Height = 1
    Pen.Color = clWhite
  end
  object Label6: TLabel
    Left = 320
    Top = 48
    Width = 66
    Height = 13
    Caption = #32456#27490#26085#26399'      '
  end
  object Shape6: TShape
    Left = 320
    Top = 65
    Width = 105
    Height = 1
    Pen.Color = clWhite
  end
  object Shape7: TShape
    Left = 320
    Top = 85
    Width = 105
    Height = 1
    Pen.Color = clWhite
  end
  object Label7: TLabel
    Left = 320
    Top = 68
    Width = 75
    Height = 13
    Caption = #38144#21806#20154#21592'         '
  end
  object Shape9: TShape
    Left = 320
    Top = 105
    Width = 105
    Height = 1
    Pen.Color = clWhite
  end
  object Label9: TLabel
    Left = 320
    Top = 88
    Width = 36
    Height = 13
    Caption = #25968#37327'    '
  end
  object Label10: TLabel
    Left = 8
    Top = 132
    Width = 45
    Height = 13
    Caption = #25551#36848'       '
  end
  object Shape10: TShape
    Left = 8
    Top = 149
    Width = 105
    Height = 1
    Pen.Color = clWhite
  end
  object Label11: TLabel
    Left = 8
    Top = 104
    Width = 69
    Height = 13
    Caption = #21512#21516#31867#22411'       '
  end
  object Label12: TLabel
    Left = 8
    Top = 69
    Width = 72
    Height = 13
    Caption = #38144#21806#35746#21333#21495'    '
  end
  object Image1: TImage
    Left = 217
    Top = 8
    Width = 16
    Height = 17
    Picture.Data = {
      055449636F6E0000010001001010000001000800680500001600000028000000
      1000000020000000010008000000000000010000000000000000000000010000
      0000000000000000000080000080000000808000800000008000800080800000
      C0C0C000C0DCC000F0CAA600D4F0FF00B1E2FF008ED4FF006BC6FF0048B8FF00
      25AAFF0000AAFF000092DC00007AB90000629600004A730000325000D4E3FF00
      B1C7FF008EABFF006B8FFF004873FF002557FF000055FF000049DC00003DB900
      003196000025730000195000D4D4FF00B1B1FF008E8EFF006B6BFF004848FF00
      2525FF000000FF000000DC000000B900000096000000730000005000E3D4FF00
      C7B1FF00AB8EFF008F6BFF007348FF005725FF005500FF004900DC003D00B900
      310096002500730019005000F0D4FF00E2B1FF00D48EFF00C66BFF00B848FF00
      AA25FF00AA00FF009200DC007A00B900620096004A00730032005000FFD4FF00
      FFB1FF00FF8EFF00FF6BFF00FF48FF00FF25FF00FF00FF00DC00DC00B900B900
      960096007300730050005000FFD4F000FFB1E200FF8ED400FF6BC600FF48B800
      FF25AA00FF00AA00DC009200B9007A009600620073004A0050003200FFD4E300
      FFB1C700FF8EAB00FF6B8F00FF487300FF255700FF005500DC004900B9003D00
      960031007300250050001900FFD4D400FFB1B100FF8E8E00FF6B6B00FF484800
      FF252500FF000000DC000000B9000000960000007300000050000000FFE3D400
      FFC7B100FFAB8E00FF8F6B00FF734800FF572500FF550000DC490000B93D0000
      963100007325000050190000FFF0D400FFE2B100FFD48E00FFC66B00FFB84800
      FFAA2500FFAA0000DC920000B97A000096620000734A000050320000FFFFD400
      FFFFB100FFFF8E00FFFF6B00FFFF4800FFFF2500FFFF0000DCDC0000B9B90000
      969600007373000050500000F0FFD400E2FFB100D4FF8E00C6FF6B00B8FF4800
      AAFF2500AAFF000092DC00007AB90000629600004A73000032500000E3FFD400
      C7FFB100ABFF8E008FFF6B0073FF480057FF250055FF000049DC00003DB90000
      319600002573000019500000D4FFD400B1FFB1008EFF8E006BFF6B0048FF4800
      25FF250000FF000000DC000000B90000009600000073000000500000D4FFE300
      B1FFC7008EFFAB006BFF8F0048FF730025FF570000FF550000DC490000B93D00
      009631000073250000501900D4FFF000B1FFE2008EFFD4006BFFC60048FFB800
      25FFAA0000FFAA0000DC920000B97A000096620000734A0000503200D4FFFF00
      B1FFFF008EFFFF006BFFFF0048FFFF0025FFFF0000FFFF0000DCDC0000B9B900
      009696000073730000505000F2F2F200E6E6E600DADADA00CECECE00C2C2C200
      B6B6B600AAAAAA009E9E9E0092929200868686007A7A7A006E6E6E0062626200
      565656004A4A4A003E3E3E0032323200262626001A1A1A000E0E0E00F0FBFF00
      A4A0A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
      FFFFFF00000000F2F2F2F2F2F2F2F2F2F20000000000F2EBE7E4E4E4E4E4E4E5
      F2F3F30000F2E2F0E7E3E3E3E3E3E3EE1D0F1FF3F2EBF0EEE3E3E2E2E2E2EE1D
      0C241DF3F2E4E3E3E3E3E4E8E8EE1D0C241DF300F2E3E3E3E6EDF0F0F0F00C24
      1DF30000F2E3E3E6ED85858586791B1DF3000000F2E3E6EDE8839090858679F0
      F2000000F2E3E6ED838E8F90908586F0F2000000F2E3E6ED838E8F8F909086F0
      F2000000F2E3E6ED838E8F8F8F9086F0F2000000F2E3E4EDE6838E8F8F83E8F0
      F2000000F2E3E4E6EDE6838383E8F3E6F2000000F2E3E4E4E6EDEDEDEDEDE6E3
      F2000000F2E2E3E3E3E3E6E6E6E6E3E3F2000000F2F2F2F2F2F2F2F2F2F2F2F2
      F2000000E007FFFFC001FFFF8000FFFF0000FFFF0001FFFF0003FFFF0007FFFF
      0007FFFF0007FFFF0007FFFF0007FFFF0007FFFF0007FFFF0007FFFF0007FFFF
      0007FFFF}
    OnClick = Image1Click
  end
  object Label3: TLabel
    Left = 320
    Top = 108
    Width = 39
    Height = 13
    Caption = #37329#39069'     '
  end
  object Shape11: TShape
    Left = 320
    Top = 125
    Width = 105
    Height = 1
    Pen.Color = clWhite
  end
  object Label13: TLabel
    Left = 320
    Top = 128
    Width = 54
    Height = 13
    Caption = #26631#20934#20215'      '
  end
  object Shape12: TShape
    Left = 320
    Top = 145
    Width = 105
    Height = 1
    Pen.Color = clWhite
  end
  object DBEdit1: TDBEdit
    Left = 112
    Top = 8
    Width = 105
    Height = 18
    BorderStyle = bsNone
    DataField = 'CstmrCode'
    DataSource = DataSource1
    TabOrder = 0
    OnExit = DBEdit1Exit
  end
  object DBEdit2: TDBEdit
    Left = 112
    Top = 28
    Width = 105
    Height = 18
    BorderStyle = bsNone
    DataField = 'CstmrName'
    DataSource = DataSource1
    TabOrder = 1
  end
  object DBEdit3: TDBEdit
    Left = 112
    Top = 48
    Width = 105
    Height = 18
    BorderStyle = bsNone
    DataField = 'CntctCode'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit4: TDBEdit
    Left = 112
    Top = 68
    Width = 105
    Height = 18
    BorderStyle = bsNone
    DataField = 'DocNum'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit5: TDBEdit
    Left = 424
    Top = 8
    Width = 105
    Height = 18
    BorderStyle = bsNone
    DataField = 'ContractID'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit6: TDBEdit
    Left = 424
    Top = 28
    Width = 105
    Height = 18
    BorderStyle = bsNone
    DataField = 'StartDate'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit7: TDBEdit
    Left = 424
    Top = 48
    Width = 105
    Height = 18
    BorderStyle = bsNone
    DataField = 'EndDate'
    DataSource = DataSource1
    TabOrder = 6
  end
  object DBEdit8: TDBEdit
    Left = 424
    Top = 68
    Width = 105
    Height = 18
    BorderStyle = bsNone
    DataField = 'Owner'
    DataSource = DataSource1
    TabOrder = 7
  end
  object DBEdit9: TDBEdit
    Left = 111
    Top = 132
    Width = 194
    Height = 18
    BorderStyle = bsNone
    DataField = 'Descriptio'
    DataSource = DataSource1
    TabOrder = 8
  end
  object DBRadioGroup1: TDBRadioGroup
    Left = 112
    Top = 96
    Width = 193
    Height = 33
    Columns = 2
    Ctl3D = True
    DataField = 'CntrcType'
    DataSource = DataSource1
    Items.Strings = (
      #23458#25143
      #29289#26009#32452)
    ParentCtl3D = False
    TabOrder = 9
    Values.Strings = (
      'C'
      'O')
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 152
    Width = 521
    Height = 193
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 10
    object TabSheet1: TTabSheet
      Caption = #29289#26009
      object DBGrid1: TDBGrid
        Left = 0
        Top = 5
        Width = 513
        Height = 156
        DataSource = DataSource2
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ContractID'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'ItemCode'
            Title.Caption = #29289#26009#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ItemName'
            Title.Caption = #29289#26009#25551#36848
            Width = 108
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ManufSN'
            Title.Caption = #21046#36896#21830#24207#21015#21495
            Width = 82
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'StartDate'
            Title.Caption = #24320#22987#26085#26399
            Width = 93
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'EndDate'
            Title.Caption = #32456#27490#26085#26399
            Width = 69
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #38468#20214
      ImageIndex = 1
      object Image2: TImage
        Left = 464
        Top = 128
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {
          055449636F6E0000010001002020040000000000E80200001600000028000000
          2000000040000000010004000000000000020000000000000000000000000000
          0000000000000000000080000080000000808000800000008000800080800000
          C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
          FFFFFF0000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000044444444444444444
          0000000004444440000555555555000044440000478888000280000000008000
          0028400087888800280088888884080000288400878888028048888888884080
          0028804087888808448880000088840800288004878888080888064444088848
          0028800487888808288066644440884800288004878888082880E66644408848
          00288004878888082780EE666660884800288004878888088780EE6666608848
          002880048788880887806EEE666088480028800487888808878806EEE6088848
          0028800487888808887880000088800800288004878888088887888888880008
          0028800487888800888877788880008000288004878888088888222220000080
          0028800488887777788282220000887777778004088888888888888888888888
          8888000400080000008878888800800000000040000007888008788888008007
          8880040000000078008887888888888078000000000000000000088888000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE0000FF8000000F
          0000000700000003000000010000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          80000000E0000001F0000003F800000FFC783F1FFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFF}
        OnClick = Image2Click
      end
      object DBImage1: TDBImage
        Left = 0
        Top = 0
        Width = 433
        Height = 161
        BorderStyle = bsNone
        Ctl3D = True
        DataField = 'Attachment'
        DataSource = DataSource1
        ParentCtl3D = False
        TabOrder = 0
      end
    end
  end
  object Button1: TButton
    Left = 8
    Top = 352
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 11
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 88
    Top = 352
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 12
    OnClick = Button2Click
  end
  object Button4: TButton
    Left = 448
    Top = 353
    Width = 75
    Height = 21
    Caption = #20381#27425#28155#21152
    TabOrder = 13
    OnClick = Button4Click
  end
  object DBEdit10: TDBEdit
    Left = 424
    Top = 88
    Width = 105
    Height = 18
    BorderStyle = bsNone
    DataField = 'CTR1Count'
    DataSource = DataSource1
    TabOrder = 14
  end
  object DBEdit11: TDBEdit
    Left = 423
    Top = 108
    Width = 105
    Height = 18
    BorderStyle = bsNone
    DataField = 'DocTotal'
    DataSource = DataSource1
    TabOrder = 15
  end
  object DBEdit12: TDBEdit
    Left = 423
    Top = 128
    Width = 105
    Height = 18
    BorderStyle = bsNone
    DataField = 'DocTotal'
    DataSource = DataSource1
    TabOrder = 16
  end
  object DataSource1: TDataSource
    DataSet = ADOQuP1
    Left = 240
    Top = 32
  end
  object DataSource2: TDataSource
    DataSet = ADOQuP2
    Left = 296
    Top = 224
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 464
    Top = 208
  end
  object ADOQuP1: TADOQuery
    Connection = DataModHJ.ADOCon
    Parameters = <
      item
        Name = 'P0'
        DataType = ftVariant
        Value = 0c
      end>
    SQL.Strings = (
      '')
    Left = 272
    Top = 48
  end
  object ADOQuP2: TADOQuery
    Connection = DataModHJ.ADOCon
    Parameters = <
      item
        Name = 'P0'
        DataType = ftVariant
        Value = 0c
      end>
    Left = 400
    Top = 168
  end
end