DONGSHENG6/旧系统升级空运出口/Unit1.dfm

object Form1: TForm1
  Left = 203
  Top = 144
  Width = 660
  Height = 458
  Caption = #20986#21475#25968#25454#23548#20837
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Button1: TButton
    Left = 484
    Top = 296
    Width = 129
    Height = 30
    Caption = #23548#20837#19994#21153#25968#25454
    TabOrder = 0
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 69
    Width = 437
    Height = 331
    Align = alLeft
    Caption = 'Panel1'
    TabOrder = 1
    object Memo1: TMemo
      Left = 1
      Top = 212
      Width = 435
      Height = 118
      Align = alBottom
      Lines.Strings = (
        'Memo1')
      PopupMenu = PopupMenu1
      TabOrder = 0
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 435
      Height = 211
      Align = alClient
      DataSource = DataSource1
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 652
    Height = 69
    Align = alTop
    TabOrder = 2
    object Memo2: TMemo
      Left = 1
      Top = 1
      Width = 436
      Height = 67
      Align = alLeft
      Lines.Strings = (
        
          'select * from busicard where tradetype='#39'EXP'#39' and transportation=' +
          '2 AND '
        'PERIOD='#39'200801'#39)
      TabOrder = 0
    end
    object Button2: TButton
      Left = 484
      Top = 20
      Width = 125
      Height = 29
      Caption = #26597' '#35810
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object ProgressBar1: TProgressBar
    Left = 0
    Top = 400
    Width = 652
    Height = 24
    Align = alBottom
    Min = 0
    Max = 100
    TabOrder = 3
  end
  object Button3: TButton
    Left = 484
    Top = 124
    Width = 129
    Height = 30
    Caption = #23548#20837#23458#25143#36164#26009
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button5: TButton
    Left = 484
    Top = 164
    Width = 129
    Height = 30
    Caption = #23548#20837#33322#32447#36164#26009
    TabOrder = 5
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 484
    Top = 207
    Width = 129
    Height = 30
    Caption = #23548#20837#36153#29992#21517#31216
    TabOrder = 6
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 484
    Top = 254
    Width = 129
    Height = 30
    Caption = #23548#20837#19994#21153#20998#26512#36164#26009
    TabOrder = 7
    OnClick = Button7Click
  end
  object Button4: TButton
    Left = 480
    Top = 82
    Width = 129
    Height = 30
    Caption = #23548#20837#37096#38376#20154#21592
    TabOrder = 8
    Visible = False
    OnClick = Button4Click
  end
  object Button8: TButton
    Left = 484
    Top = 336
    Width = 129
    Height = 30
    Caption = #23548#20837#21457#31080#25968#25454
    TabOrder = 9
    OnClick = Button8Click
  end
  object Database1: TDatabase
    AliasName = 'fmis85'
    DatabaseName = 'dbfmis'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sealong'
      'PASSWORD=sl')
    SessionName = 'Default'
    Left = 96
    Top = 84
  end
  object busicard: TQuery
    DatabaseName = 'dbfmis'
    Left = 68
    Top = 300
  end
  object t_op_seae: TADOQuery
    Connection = conAdoServer
    Parameters = <>
    SQL.Strings = (
      'select * from t_op_aire')
    Left = 96
    Top = 144
  end
  object conAdoServer: TADOConnection
    CommandTimeout = 120000
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=dongshengys;Data Source=.'
    ConnectionTimeout = 1000
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    BeforeConnect = conAdoServerBeforeConnect
    Left = 72
    Top = 259
  end
  object DataSource1: TDataSource
    DataSet = busicard
    Left = 24
    Top = 140
  end
  object t_ch_fee: TADOQuery
    Connection = conAdoServer
    DataSource = t_op_seae1
    Parameters = <
      item
        Name = #32534#21495
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select * from t_ch_fee where '#32534#21495'=:'#32534#21495)
    Left = 216
    Top = 144
  end
  object t_ch_fee_do: TADOQuery
    Connection = conAdoServer
    Parameters = <>
    SQL.Strings = (
      'select top 0 *  from t_ch_fee_do')
    Left = 276
    Top = 144
  end
  object carriage: TQuery
    DatabaseName = 'dbfmis'
    DataSource = DataSource1
    SQL.Strings = (
      'select * from carriage where bsno=:bsno')
    Left = 120
    Top = 300
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'bsno'
        ParamType = ptUnknown
      end>
  end
  object stlitems: TQuery
    DatabaseName = 'dbfmis'
    DataSource = carriage1
    SQL.Strings = (
      'select * from stlitems where ordno=:ordno')
    Left = 180
    Top = 300
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ordno'
        ParamType = ptUnknown
      end>
  end
  object temp: TADOQuery
    Connection = conAdoServer
    Parameters = <>
    SQL.Strings = (
      'select top 0 *  from t_ch_fee_do')
    Left = 388
    Top = 148
  end
  object p_id: TADOStoredProc
    Connection = conAdoServer
    ProcedureName = 'p_id;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = 'str'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 12
        Value = Null
      end>
    Left = 248
    Top = 76
  end
  object p_no_get: TADOStoredProc
    Connection = conAdoServer
    ProcedureName = 'p_no_get;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = 'Code'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = 'SE200508'
      end
      item
        Name = 'Num'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 12
        Value = Null
      end>
    Left = 300
    Top = 80
  end
  object t_sum_ctn: TRxMemoryData
    FieldDefs = <
      item
        Name = #20195#30721
        DataType = ftString
        Size = 4
      end
      item
        Name = #34920#29616#24418#24335
        DataType = ftString
        Size = 20
      end
      item
        Name = #25968#37327
        DataType = ftInteger
      end>
    Left = 397
    Top = 232
  end
  object t_code_ctn_de: TADOQuery
    Connection = conAdoServer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from t_code_ctn_de'
      'order by id')
    Left = 176
    Top = 24
  end
  object t_code_ctn: TADOQuery
    Connection = conAdoServer
    CursorType = ctStatic
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      'select * from t_code_ctn'
      'order by '#20195#30721)
    Left = 97
    Top = 20
  end
  object t_code_ctn_kind: TADOQuery
    Connection = conAdoServer
    CursorType = ctStatic
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      'select * from t_code_ctn_kind'
      'order by '#20195#30721)
    Left = 21
    Top = 20
  end
  object bscntrqty: TQuery
    DatabaseName = 'dbfmis'
    DataSource = DataSource1
    SQL.Strings = (
      'select * from bscntrqty where bsno=:bsno')
    Left = 244
    Top = 300
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'bsno'
        ParamType = ptUnknown
      end>
  end
  object t_op_ctn: TADOQuery
    Connection = conAdoServer
    DataSource = t_op_seae1
    Parameters = <
      item
        Name = #32534#21495
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 12
        Value = Null
      end>
    SQL.Strings = (
      'select *  from t_op_ctn where '#32534#21495'=:'#32534#21495)
    Left = 336
    Top = 144
  end
  object qrytemp: TQuery
    DatabaseName = 'dbfmis'
    Left = 300
    Top = 300
  end
  object t_op_seae1: TDataSource
    DataSet = t_op_seae
    Left = 156
    Top = 144
  end
  object t_crm_client: TADOQuery
    Connection = conAdoServer
    AfterInsert = t_crm_clientAfterInsert
    Parameters = <>
    SQL.Strings = (
      'select * from t_crm_client')
    Left = 36
    Top = 84
  end
  object PopupMenu1: TPopupMenu
    Left = 188
    Top = 348
    object N1: TMenuItem
      Caption = #20445#23384
      OnClick = N1Click
    end
  end
  object SaveDialog1: TSaveDialog
    Left = 400
    Top = 340
  end
  object t_code_fee: TADOQuery
    Connection = conAdoServer
    Parameters = <>
    SQL.Strings = (
      'select * from t_code_fee')
    Left = 180
    Top = 92
  end
  object p_op_gain: TADOStoredProc
    Connection = conAdoServer
    ProcedureName = 'p_op_gain;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@con_no'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = #39'00005'#39
      end>
    Left = 368
    Top = 72
  end
  object qrytemp2: TQuery
    DatabaseName = 'dbfmis'
    Left = 352
    Top = 300
  end
  object t_code_trade: TADOQuery
    Connection = conAdoServer
    Parameters = <>
    SQL.Strings = (
      'select * from t_code_trade')
    Left = 196
    Top = 200
  end
  object t_code_source: TADOQuery
    Connection = conAdoServer
    Parameters = <>
    SQL.Strings = (
      'select * from t_code_source')
    Left = 24
    Top = 200
  end
  object t_code_source_dl: TADOQuery
    Connection = conAdoServer
    Parameters = <>
    SQL.Strings = (
      'select * from t_code_source_dl')
    Left = 108
    Top = 200
  end
  object t_sys_employee: TADOQuery
    Connection = conAdoServer
    Parameters = <>
    SQL.Strings = (
      'select * from t_sys_employee')
    Left = 300
    Top = 12
  end
  object t_sys_employee1: TDataSource
    DataSet = t_sys_employee
    Left = 364
    Top = 20
  end
  object t_sys_code: TADOQuery
    Connection = conAdoServer
    CursorType = ctStatic
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      'select * from t_sys_code')
    Left = 27
    Top = 452
  end
  object t_sys_code_data_all: TADOQuery
    Connection = conAdoServer
    CursorType = ctStatic
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      'select distinct '#23646#24615' from t_sys_code_data '
      'where '#23646#24615'<>'#39'3006'#39)
    Left = 115
    Top = 452
  end
  object t_sys_code_data: TADOQuery
    Connection = conAdoServer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select top 0 * from t_sys_code_data')
    Left = 212
    Top = 452
  end
  object t_sys_code_emp: TADOQuery
    Connection = conAdoServer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select top 0 * from t_sys_code_emp')
    Left = 308
    Top = 452
  end
  object carriage1: TDataSource
    DataSet = carriage
    Left = 120
    Top = 356
  end
  object memtblDetail: TkbmMemTable
    DesignActivation = True
    AttachedAutoRefresh = True
    AttachMaxCount = 1
    FieldDefs = <>
    IndexDefs = <>
    SortOptions = []
    PersistentBackup = False
    ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
    FilterOptions = []
    Version = '3.05'
    LanguageID = 0
    SortID = 0
    SubLanguageID = 1
    LocaleID = 1024
    FormFormat = kbmBinaryStreamFormat1
    Left = 392
    Top = 444
    object memtblDetailField: TStringField
      FieldName = #23646#24615
      Size = 10
    end
  end
  object kbmThreadDataSet1: TkbmThreadDataSet
    Left = 464
    Top = 440
  end
  object kbmBinaryStreamFormat1: TkbmBinaryStreamFormat
    Version = '3.00'
    sfUsingIndex = [sfSaveUsingIndex]
    sfData = [sfSaveData, sfLoadData]
    sfCalculated = []
    sfLookup = []
    sfNonVisible = [sfSaveNonVisible, sfLoadNonVisible]
    sfBlobs = [sfSaveBlobs, sfLoadBlobs]
    sfDef = [sfSaveDef, sfLoadDef]
    sfIndexDef = [sfSaveIndexDef, sfLoadIndexDef]
    sfFiltered = [sfSaveFiltered]
    sfIgnoreRange = [sfSaveIgnoreRange]
    sfIgnoreMasterDetail = [sfSaveIgnoreMasterDetail]
    sfDeltas = []
    sfDontFilterDeltas = []
    sfAppend = []
    sfFieldKind = [sfSaveFieldKind]
    sfFromStart = [sfLoadFromStart]
    BufferSize = 16384
    Left = 524
    Top = 444
  end
  object t_sys_department: TADOQuery
    Connection = conAdoServer
    Parameters = <>
    SQL.Strings = (
      'select * from t_sys_department')
    Left = 424
    Top = 16
  end
  object t_sys_code_sql: TADOQuery
    Connection = conAdoServer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select top 0 * from t_sys_code_sql')
    Left = 348
    Top = 404
  end
  object DataSource2: TDataSource
    DataSet = memtblDetail
    Left = 312
    Top = 260
  end
  object t_ch_balance: TADOQuery
    Connection = conAdoServer
    Parameters = <>
    SQL.Strings = (
      'select *  from t_ch_balance')
    Left = 284
    Top = 220
  end
  object t_ch_invoice: TADOQuery
    Connection = conAdoServer
    Parameters = <>
    SQL.Strings = (
      'select * from t_ch_invoice')
    Left = 20
    Top = 360
  end
  object invitem: TQuery
    DatabaseName = 'dbfmis'
    DataSource = DataSource1
    SQL.Strings = (
      'select * from invitem where ordno=:ordno')
    Left = 256
    Top = 364
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ordno'
        ParamType = ptUnknown
      end>
  end
  object DataSource3: TDataSource
    DataSet = t_ch_invoice
    Left = 72
    Top = 384
  end
end