You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
637 lines
14 KiB
Plaintext
637 lines
14 KiB
Plaintext
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 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_seae ')
|
|
Left = 96
|
|
Top = 144
|
|
end
|
|
object conAdoServer: TADOConnection
|
|
CommandTimeout = 120000
|
|
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
|