coarct.dfm

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

object FormCOARCT: TFormCOARCT
  Left = 200
  Top = 107
  AutoScroll = False
  Caption = #25910#27454
  ClientHeight = 399
  ClientWidth = 536
  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 = 280
    Top = 8
    Width = 48
    Height = 13
    Caption = #32534#21495'        '
  end
  object Label12: TLabel
    Left = 280
    Top = 29
    Width = 57
    Height = 13
    Caption = #36807#24080#26085#26399'   '
  end
  object Label13: TLabel
    Left = 280
    Top = 50
    Width = 66
    Height = 13
    Caption = #35745#31246#26085#26399'      '
  end
  object Label14: TLabel
    Left = 280
    Top = 70
    Width = 78
    Height = 13
    Caption = #21442#29031#32534#21495'          '
  end
  object Label15: TLabel
    Left = 280
    Top = 89
    Width = 48
    Height = 13
    Caption = #31246#20195#30721'    '
  end
  object Shape14: TShape
    Left = 280
    Top = 105
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Label3: TLabel
    Left = 280
    Top = 109
    Width = 69
    Height = 13
    Caption = #25152#23646#39033#30446'       '
  end
  object Shape15: TShape
    Left = 280
    Top = 125
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Shape12: TShape
    Left = 280
    Top = 65
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Shape11: TShape
    Left = 280
    Top = 45
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Shape10: TShape
    Left = 280
    Top = 25
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 69
    Height = 13
    Caption = #23458#25143#20195#30721'       '
  end
  object Label2: TLabel
    Left = 8
    Top = 29
    Width = 45
    Height = 13
    Caption = #21517#31216'       '
  end
  object Shape1: TShape
    Left = 8
    Top = 45
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Shape2: TShape
    Left = 8
    Top = 25
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Shape3: TShape
    Left = 8
    Top = 80
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Label4: TLabel
    Left = 8
    Top = 50
    Width = 42
    Height = 13
    Caption = #24320#31080#21040'  '
  end
  object Label6: TLabel
    Left = 280
    Top = 320
    Width = 33
    Height = 13
    Caption = #31246#39069'   '
  end
  object Shape4: TShape
    Left = 280
    Top = 337
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Shape5: TShape
    Left = 280
    Top = 357
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Label7: TLabel
    Left = 280
    Top = 341
    Width = 66
    Height = 13
    Caption = #24212#20184#37329#39069'      '
  end
  object Shape6: TShape
    Left = 280
    Top = 85
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Label8: TLabel
    Left = 8
    Top = 336
    Width = 90
    Height = 13
    Caption = #26085#35760#24080#22791#27880'          '
  end
  object Shape7: TShape
    Left = 8
    Top = 353
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Label9: TLabel
    Left = 8
    Top = 280
    Width = 36
    Height = 13
    Caption = #22791#27880'    '
  end
  object Shape8: TShape
    Left = 8
    Top = 312
    Width = 129
    Height = 1
    Pen.Color = clWhite
  end
  object Label5: TLabel
    Left = 8
    Top = 104
    Width = 128
    Height = 12
    Caption = #20184#27454#30340#21457#31080'         '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  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 DBEdit11: TDBEdit
    Left = 408
    Top = 28
    Width = 121
    Height = 18
    BorderStyle = bsNone
    DataField = 'DocDate'
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBEdit10: TDBEdit
    Left = 408
    Top = 8
    Width = 121
    Height = 18
    BorderStyle = bsNone
    DataField = 'DocNum'
    DataSource = DataSource1
    TabOrder = 1
  end
  object DBEdit12: TDBEdit
    Left = 408
    Top = 48
    Width = 121
    Height = 18
    BorderStyle = bsNone
    DataField = 'TaxDate'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit15: TDBEdit
    Left = 407
    Top = 108
    Width = 121
    Height = 18
    BorderStyle = bsNone
    TabOrder = 3
  end
  object DBEdit14: TDBEdit
    Left = 407
    Top = 88
    Width = 121
    Height = 18
    BorderStyle = bsNone
    DataField = 'VatGroup'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit13: TDBEdit
    Left = 408
    Top = 68
    Width = 121
    Height = 18
    BorderStyle = bsNone
    DataField = 'TransId'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit1: TDBEdit
    Left = 104
    Top = 8
    Width = 152
    Height = 18
    BorderStyle = bsNone
    DataField = 'CardCode'
    DataSource = DataSource1
    TabOrder = 6
    OnExit = DBEdit1Exit
  end
  object DBEdit2: TDBEdit
    Left = 104
    Top = 28
    Width = 152
    Height = 18
    BorderStyle = bsNone
    DataField = 'CardName'
    DataSource = DataSource1
    TabOrder = 7
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 128
    Width = 521
    Height = 145
    DataSource = DataSource2
    TabOrder = 8
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnExit = DBGrid1Exit
    Columns = <
      item
        Expanded = False
        FieldName = 'DocNum'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'DocEntry'
        Title.Caption = #21457#31080#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InstId'
        Title.Caption = #20998#26399#20184#27454
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LinkDate'
        Title.Caption = #26085#26399'  '
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BfDcntSum'
        Title.Caption = #24635#35745
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Rounddiff'
        Title.Caption = #20313#39069
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Dcount'
        Title.Caption = #25240#25187'%'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PaidSum'
        Title.Caption = #24635#35745#20184#27454'  '
        Visible = True
      end>
  end
  object DBEdit4: TDBEdit
    Left = 287
    Top = 280
    Width = 114
    Height = 18
    BorderStyle = bsNone
    TabOrder = 9
  end
  object DBEdit5: TDBEdit
    Left = 407
    Top = 340
    Width = 121
    Height = 18
    BorderStyle = bsNone
    TabOrder = 10
  end
  object DBEdit6: TDBEdit
    Left = 407
    Top = 320
    Width = 121
    Height = 18
    BorderStyle = bsNone
    DataField = 'VatSum'
    DataSource = DataSource1
    TabOrder = 11
  end
  object Button1: TButton
    Left = 8
    Top = 370
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 12
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 88
    Top = 370
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 13
    OnClick = Button2Click
  end
  object DBMemo1: TDBMemo
    Left = 104
    Top = 48
    Width = 152
    Height = 33
    BorderStyle = bsNone
    DataField = 'PayToCode'
    DataSource = DataSource1
    TabOrder = 14
  end
  object DBEdit3: TDBEdit
    Left = 104
    Top = 336
    Width = 152
    Height = 18
    BorderStyle = bsNone
    DataField = 'JrnlMemo'
    DataSource = DataSource1
    TabOrder = 15
  end
  object DBMemo2: TDBMemo
    Left = 104
    Top = 280
    Width = 152
    Height = 33
    BorderStyle = bsNone
    DataField = 'Comments'
    DataSource = DataSource1
    TabOrder = 16
  end
  object Button3: TButton
    Left = 424
    Top = 371
    Width = 97
    Height = 23
    Caption = #20381#27425#28155#21152
    TabOrder = 17
    OnClick = Button3Click
  end
  object DBEdit7: TDBEdit
    Left = 407
    Top = 280
    Width = 122
    Height = 18
    BorderStyle = bsNone
    TabOrder = 18
  end
  object Button4: TButton
    Left = 320
    Top = 371
    Width = 97
    Height = 23
    Caption = #20184#27454#26041#24335
    TabOrder = 19
    OnClick = Button4Click
  end
  object DataSource1: TDataSource
    DataSet = ADOQuP1
    Left = 88
    Top = 88
  end
  object DataSource2: TDataSource
    DataSet = ADOQuP2
    Left = 192
    Top = 168
  end
  object ADOQuP1: TADOQuery
    Connection = DataModHJ.ADOCon
    Parameters = <
      item
        Name = 'P0'
        DataType = ftVariant
        Value = 0c
      end>
    SQL.Strings = (
      '')
    Left = 216
    Top = 88
  end
  object ADOQuP2: TADOQuery
    OnNewRecord = ADOQuP2NewRecord
    Parameters = <
      item
        Name = 'P0'
        DataType = ftVariant
        Value = 0c
      end>
    Left = 264
    Top = 176
  end
end