cooipf.~dfm

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

object FormCOOIPF: TFormCOOIPF
  Left = 192
  Top = 105
  Width = 537
  Height = 390
  Caption = #25104#26412#26680#31639
  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 Label11: TLabel
    Left = 312
    Top = 8
    Width = 48
    Height = 13
    Caption = #32534#21495'        '
  end
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 69
    Height = 13
    Caption = #23458#25143#20195#30721'       '
  end
  object Label2: TLabel
    Left = 8
    Top = 30
    Width = 45
    Height = 13
    Caption = #21517#31216'       '
  end
  object Shape2: TShape
    Left = 8
    Top = 25
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Shape1: TShape
    Left = 8
    Top = 45
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Label12: TLabel
    Left = 312
    Top = 30
    Width = 57
    Height = 13
    Caption = #36807#24080#26085#26399'   '
  end
  object Label13: TLabel
    Left = 312
    Top = 49
    Width = 60
    Height = 13
    Caption = #36215#24687#26085'        '
  end
  object Label14: TLabel
    Left = 312
    Top = 70
    Width = 45
    Height = 13
    Caption = #21442#32771'       '
  end
  object Label15: TLabel
    Left = 312
    Top = 89
    Width = 66
    Height = 13
    Caption = #35746#21333#32534#21495'      '
  end
  object Shape14: TShape
    Left = 312
    Top = 105
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Shape6: TShape
    Left = 312
    Top = 85
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Shape12: TShape
    Left = 312
    Top = 65
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Shape11: TShape
    Left = 312
    Top = 45
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Shape10: TShape
    Left = 312
    Top = 25
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Image1: TImage
    Left = 257
    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 Label6: TLabel
    Left = 48
    Top = 120
    Width = 32
    Height = 13
    Caption = 'Label6'
  end
  object DBEdit2: TDBEdit
    Left = 104
    Top = 28
    Width = 152
    Height = 18
    BorderStyle = bsNone
    DataField = 'SuppName'
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBEdit1: TDBEdit
    Left = 104
    Top = 8
    Width = 152
    Height = 18
    BorderStyle = bsNone
    DataField = 'CardCode'
    DataSource = DataSource1
    TabOrder = 1
    OnChange = DBEdit1Change
    OnExit = DBEdit1Exit
  end
  object DBEdit10: TDBEdit
    Left = 400
    Top = 8
    Width = 121
    Height = 18
    BorderStyle = bsNone
    DataField = 'DocNum'
    DataSource = DataSource1
    Enabled = False
    TabOrder = 2
  end
  object DBEdit11: TDBEdit
    Left = 400
    Top = 28
    Width = 121
    Height = 18
    BorderStyle = bsNone
    DataField = 'DocDate'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit12: TDBEdit
    Left = 400
    Top = 48
    Width = 121
    Height = 18
    BorderStyle = bsNone
    DataField = 'DocDueDate'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit13: TDBEdit
    Left = 400
    Top = 68
    Width = 121
    Height = 18
    BorderStyle = bsNone
    DataField = 'Ref1'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit14: TDBEdit
    Left = 400
    Top = 88
    Width = 121
    Height = 18
    BorderStyle = bsNone
    DataField = 'SlNum'
    DataSource = DataSource1
    TabOrder = 6
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 112
    Width = 513
    Height = 217
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 7
    object TabSheet1: TTabSheet
      Caption = '    '#29289#26009'  '
      object Label3: TLabel
        Left = 264
        Top = 132
        Width = 66
        Height = 13
        Caption = #31246#21069#24635#35745'      '
      end
      object Shape13: TShape
        Left = 264
        Top = 188
        Width = 129
        Height = 1
        Pen.Color = clWhite
      end
      object Label4: TLabel
        Left = 264
        Top = 150
        Width = 33
        Height = 13
        Caption = #31246#39069'   '
      end
      object Shape3: TShape
        Left = 264
        Top = 148
        Width = 129
        Height = 1
        Pen.Color = clWhite
      end
      object Label5: TLabel
        Left = 264
        Top = 170
        Width = 36
        Height = 13
        Caption = #24635#35745'    '
      end
      object Shape15: TShape
        Left = 264
        Top = 168
        Width = 129
        Height = 1
        Pen.Color = clWhite
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 8
        Width = 489
        Height = 121
        DataSource = DataSource3
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ItemCode'
            Title.Caption = #29289#26009#32534#21495'  '
            Width = 69
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Dscription'
            Title.Caption = #29289#26009#25551#36848
            Width = 125
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Quantity'
            Title.Caption = #25968#37327
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Price'
            Title.Caption = #20215#26684
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TaxCode'
            Title.Caption = #31246#25910#20195#30721
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TotInclTax'
            Title.Caption = #24635#35745
            Width = 108
            Visible = True
          end>
      end
      object Edit1: TEdit
        Left = 376
        Top = 131
        Width = 121
        Height = 18
        BorderStyle = bsNone
        Enabled = False
        TabOrder = 1
        Text = '0.00'
      end
      object Edit2: TEdit
        Left = 376
        Top = 151
        Width = 121
        Height = 18
        BorderStyle = bsNone
        Enabled = False
        TabOrder = 2
        Text = '0.00'
      end
      object Edit3: TEdit
        Left = 376
        Top = 171
        Width = 121
        Height = 18
        BorderStyle = bsNone
        Enabled = False
        TabOrder = 3
        Text = '0.00'
      end
    end
    object TabSheet2: TTabSheet
      Caption = '    '#24037#26102#25104#26412'  '
      ImageIndex = 1
      OnExit = TabSheet2Exit
      OnShow = TabSheet2Show
      object Label7: TLabel
        Left = 160
        Top = 154
        Width = 36
        Height = 13
        Caption = #24635#35745'    '
      end
      object Shape4: TShape
        Left = 160
        Top = 172
        Width = 129
        Height = 1
        Pen.Color = clWhite
      end
      object DBGrid2: TDBGrid
        Left = 8
        Top = 8
        Width = 385
        Height = 137
        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 = 'AlcCode'
            PickList.Strings = (
              #26009#25104#26412)
            Title.Caption = #25104#26412#21517#31216
            Width = 99
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CustSum'
            Title.Caption = #37329#39069
            Width = 96
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Factor'
            Title.Caption = #31995#25968
            Width = 86
            Visible = True
          end>
      end
      object Button3: TButton
        Left = 416
        Top = 128
        Width = 75
        Height = 23
        Caption = #28165#38500#34920
        TabOrder = 1
      end
      object Button4: TButton
        Left = 416
        Top = 152
        Width = 75
        Height = 23
        Caption = #26032#25104#26412
        TabOrder = 2
        OnClick = Button4Click
      end
      object DBEdit3: TDBEdit
        Left = 272
        Top = 155
        Width = 121
        Height = 18
        BorderStyle = bsNone
        DataField = 'DocTotal1'
        DataSource = DataSource1
        TabOrder = 3
      end
    end
    object TabSheet3: TTabSheet
      Caption = '    '#26085#35760#24080'  '
      ImageIndex = 2
      TabVisible = False
    end
    object TabSheet4: TTabSheet
      Caption = #26448#26009#25104#26412
      ImageIndex = 3
      OnExit = TabSheet4Exit
      OnShow = TabSheet4Show