zcfz_datamodel.dfm

本程序功能是将银行系统的月计表转换为所需要的资产负债表

object ZCFZ_DM: TZCFZ_DM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 325
  Top = 126
  Height = 332
  Width = 606
  object ZCFZ0: TZConnection
    Protocol = 'mysql-4.1'
    HostName = 'localhost'
    Port = 0
    User = 'root'
    AutoCommit = False
    ReadOnly = True
    TransactIsolationLevel = tiNone
    Connected = False
    BeforeConnect = ZCFZ0BeforeConnect
    AfterConnect = ZCFZ0AfterConnect
    SQLHourGlass = False
    Left = 40
    Top = 24
  end
  object ZCFZ_Qry: TZReadOnlyQuery
    Connection = ZCFZ0
    ParamCheck = True
    Params = <>
    Options = [doCalcDefaults]
    Left = 24
    Top = 104
  end
  object ZCFZ_Qry1: TZReadOnlyQuery
    Connection = ZCFZ0
    ParamCheck = True
    Params = <>
    Options = [doCalcDefaults]
    Left = 96
    Top = 104
  end
  object ZCFZ_Qry2: TZReadOnlyQuery
    Connection = ZCFZ0
    ParamCheck = True
    Params = <>
    Options = [doCalcDefaults]
    Left = 160
    Top = 104
  end
  object ZCFZ_QryEdit: TZQuery
    Connection = ZCFZ0
    CachedUpdates = False
    RequestLive = True
    ParamCheck = True
    Params = <>
    ShowRecordTypes = [usUnmodified, usModified, usInserted]
    UpdateMode = umUpdateChanged
    WhereMode = wmWhereKeyOnly
    Options = [doCalcDefaults]
    Left = 24
    Top = 160
  end
  object ZCFZ_SQLPrc: TZSQLProcessor
    Connection = ZCFZ0
    Delimiter = ';'
    Left = 152
    Top = 32
  end
  object ZCFZ_QueryEdit1: TZQuery
    Connection = ZCFZ0
    Filtered = True
    CachedUpdates = False
    RequestLive = True
    SQL.Strings = (
      'select * from yjb')
    ParamCheck = True
    Params = <>
    ShowRecordTypes = [usUnmodified, usModified, usInserted]
    UpdateMode = umUpdateChanged
    WhereMode = wmWhereKeyOnly
    Options = [doCalcDefaults]
    Left = 112
    Top = 160
  end
  object bsSkinData1: TbsSkinData
    EnableSkinEffects = True
    Left = 304
    Top = 32
  end
  object bsSkinMessage1: TbsSkinMessage
    ShowAgainFlag = False
    ShowAgainFlagValue = False
    AlphaBlend = False
    AlphaBlendAnimation = False
    AlphaBlendValue = 200
    SkinData = bsSkinData1
    CtrlSkinData = bsSkinData1
    ButtonSkinDataName = 'button'
    MessageLabelSkinDataName = #25552#31034#20449#24687
    DefaultFont.Charset = GB2312_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = -14
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    DefaultButtonFont.Charset = GB2312_CHARSET
    DefaultButtonFont.Color = clWindowText
    DefaultButtonFont.Height = -14
    DefaultButtonFont.Name = #23435#20307
    DefaultButtonFont.Style = []
    UseSkinFont = True
    Left = 400
    Top = 32
  end
  object RMReport1: TRMReport
    ThreadPrepareReport = True
    InitialZoom = pzPageWidth
    PreviewButtons = [pbPrint, pbExit]
    ShowProgress = False
    DefaultCollate = False
    ShowPrintDialog = False
    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
    PreviewOptions.RulerUnit = rmutScreenPixels
    PreviewOptions.RulerVisible = False
    PreviewOptions.DrawBorder = False
    PreviewOptions.BorderPen.Color = clBlue
    PreviewOptions.BorderPen.Style = psDash
    Dataset = RMDBDataSet1
    CompressLevel = rmzcFastest
    CompressThread = False
    LaterBuildEvents = True
    OnlyOwnerDataSet = False
    Left = 283
    Top = 112
    ReportData = {}
  end
  object RMDBDataSet1: TRMDBDataSet
    Visible = True
    DataSet = ZCFZ_QueryEdit1
    Left = 251
    Top = 112
  end
  object DataSource1: TDataSource
    DataSet = ZCFZ_QueryEdit1
    Left = 264
    Top = 176
  end
  object RMXLSExport1: TRMXLSExport
    ShowAfterExport = True
    ExportPrecision = 1
    PagesOfSheet = 10
    ExportImages = False
    ExportFrames = True
    ExportImageFormat = ifBMP
    JPEGQuality = 0
    PixelFormat = pfCustom
    ScaleX = 1.000000000000000000
    ScaleY = 1.000000000000000000
    CompressFile = False
    Left = 323
    Top = 112
  end
  object OD: TbsOpenSkinDialog
    DialogWidth = 0
    DialogHeight = 0
    DialogMinWidth = 0
    DialogMinHeight = 0
    CompressedFilterIndex = 1
    UnCompressedFilterIndex = 2
    AlphaBlend = False
    AlphaBlendValue = 200
    AlphaBlendAnimation = False
    CtrlAlphaBlend = False
    CtrlAlphaBlendValue = 225
    CtrlAlphaBlendAnimation = False
    LVHeaderSkinDataName = 'resizebutton'
    SkinData = bsSkinData1
    CtrlSkinData = bsSkinData1
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    Title = #36873#25321#30382#32932
    Filter = 'Compressed skin (*.skn)|*.skn|UnCompressed skin (*.ini)|*.ini'
    FilterIndex = 1
    Left = 472
    Top = 33
  end
  object bsOpenDialog: TbsSkinOpenDialog
    OverwritePromt = False
    DialogWidth = 0
    DialogHeight = 0
    DialogMinWidth = 0
    DialogMinHeight = 0
    CheckFileExists = True
    MultiSelection = True
    AlphaBlend = False
    AlphaBlendValue = 225
    AlphaBlendAnimation = False
    CtrlAlphaBlend = False
    CtrlAlphaBlendValue = 225
    CtrlAlphaBlendAnimation = False
    LVHeaderSkinDataName = 'resizebutton'
    SkinData = bsSkinData1
    CtrlSkinData = bsSkinData1
    DefaultFont.Charset = GB2312_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    Title = #36873#25321#35201#24674#22797#30340#25991#20214
    Filter = #22791#20221#25991#20214'|*.txt'
    FilterIndex = 1
    Left = 416
    Top = 112
  end
  object bsSkinSelectDirectoryDialog1: TbsSkinSelectDirectoryDialog
    DialogWidth = 0
    DialogHeight = 0
    DialogMinWidth = 0
    DialogMinHeight = 0
    AlphaBlend = False
    AlphaBlendValue = 200
    AlphaBlendAnimation = False
    SkinData = bsSkinData1
    CtrlSkinData = bsSkinData1
    DefaultFont.Charset = GB2312_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    Title = #36873#25321#22791#20221#25991#20214#36335#24452
    ShowToolBar = False
    Left = 408
    Top = 176
  end
  object bsknptdlg1: TbsSkinInputDialog
    AlphaBlend = False
    AlphaBlendValue = 200
    AlphaBlendAnimation = False
    SkinData = bsSkinData1
    CtrlSkinData = bsSkinData1
    ButtonSkinDataName = 'button'
    LabelSkinDataName = 'stdlabel'
    EditSkinDataName = #36755#20837#35201#23621#22797#25968#25454#30340#24180#26376#65288'YYYYMM'#65289
    DefaultLabelFont.Charset = GB2312_CHARSET
    DefaultLabelFont.Color = clWindowText
    DefaultLabelFont.Height = -14
    DefaultLabelFont.Name = #23435#20307
    DefaultLabelFont.Style = []
    DefaultButtonFont.Charset = GB2312_CHARSET
    DefaultButtonFont.Color = clWindowText
    DefaultButtonFont.Height = -14
    DefaultButtonFont.Name = #23435#20307
    DefaultButtonFont.Style = []
    DefaultEditFont.Charset = GB2312_CHARSET
    DefaultEditFont.Color = clBlack
    DefaultEditFont.Height = -14
    DefaultEditFont.Name = #23435#20307
    DefaultEditFont.Style = []
    UseSkinFont = True
    Left = 320
    Top = 232
  end
end