unitprtmingci.dfm.~77~

初中成绩录入系统网络版(firebird) firebird下的网络编程

        object Line1: TfrxLineView
          Left = 3.779530000000000000
          Top = 52.913420000000000000
          Width = 789.921770000000000000
          Frame.Style = fsDouble
          Frame.Typ = [ftTop]
        end
        object Memo2: TfrxMemoView
          Left = 699.213050000000000000
          Top = 30.236240000000000000
          Width = 94.488250000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            '[Date]')
          ParentFont = False
        end
        object Memo3: TfrxMemoView
          Left = 3.779530000000000000
          Top = 60.472479999999990000
          Width = 64.252010000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #25253#21517#21495)
          ParentFont = False
        end
        object Memo4: TfrxMemoView
          Left = 71.811070000000000000
          Top = 60.472480000000000000
          Width = 34.015770000000010000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #22995#21517)
          ParentFont = False
        end
        object Memo5: TfrxMemoView
          Left = 132.283550000000000000
          Top = 60.472479999999990000
          Width = 34.015770000000010000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #24615#21035)
          ParentFont = False
        end
        object Memo6: TfrxMemoView
          Left = 166.299320000000000000
          Top = 60.472479999999990000
          Width = 60.472480000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #20986#29983#24180#26376)
          ParentFont = False
        end
        object Memo7: TfrxMemoView
          Left = 226.771800000000000000
          Top = 60.472479999999990000
          Width = 30.236240000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #24635#20998)
          ParentFont = False
        end
        object Memo8: TfrxMemoView
          Left = 268.346630000000000000
          Top = 60.472479999999990000
          Width = 37.795300000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #25919#27835)
          ParentFont = False
        end
        object Memo9: TfrxMemoView
          Left = 313.700990000000000000
          Top = 60.472479999999990000
          Width = 37.795300000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #35821#25991)
          ParentFont = False
        end
        object Memo10: TfrxMemoView
          Left = 351.496290000000000000
          Top = 60.472479999999990000
          Width = 37.795300000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #33521#35821)
          ParentFont = False
        end
        object Memo11: TfrxMemoView
          Left = 389.291590000000000000
          Top = 60.472479999999990000
          Width = 34.015770000000010000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #25968#23398)
          ParentFont = False
        end
        object Memo12: TfrxMemoView
          Left = 427.086890000000000000
          Top = 60.472479999999990000
          Width = 37.795300000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #29289#29702)
          ParentFont = False
        end
        object Memo13: TfrxMemoView
          Left = 461.102660000000000000
          Top = 60.472479999999990000
          Width = 37.795300000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #21270#23398)
          ParentFont = False
        end
        object Memo14: TfrxMemoView
          Left = 498.897960000000000000
          Top = 60.472479999999990000
          Width = 37.795300000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #21382#21490)
          ParentFont = False
        end
        object Memo15: TfrxMemoView
          Left = 536.693260000000000000
          Top = 60.472479999999990000
          Width = 34.015770000000010000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #22320#29702)
          ParentFont = False
        end
        object Memo16: TfrxMemoView
          Left = 574.488560000000000000
          Top = 60.472479999999990000
          Width = 34.015770000000010000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #29983#29289)
          ParentFont = False
        end
        object Memo17: TfrxMemoView
          Left = 608.504330000000000000
          Top = 60.472479999999990000
          Width = 37.795300000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #23454#39564)
          ParentFont = False
        end
        object Memo18: TfrxMemoView
          Left = 650.079160000000000000
          Top = 60.472479999999990000
          Width = 34.015770000000010000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #20307#32946)
          ParentFont = False
        end
        object Memo19: TfrxMemoView
          Left = 687.874460000000000000
          Top = 60.472479999999990000
          Width = 37.795300000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            #25805#34892)
          ParentFont = False
        end
        object Line2: TfrxLineView
          Top = 79.370130000000000000
          Width = 793.701300000000000000
          Frame.Style = fsDot
          Frame.Typ = [ftTop]
        end
        object Memo20: TfrxMemoView
          Left = 7.559060000000000000
          Top = 26.456710000000000000
          Width = 124.724490000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #20849'[TotalPages#]'#39029'  '#31532'[Page#]'#39029)
        end
        object Memo38: TfrxMemoView
          Left = 733.228820000000000000
          Top = 60.472479999999990000
          Width = 94.488250000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #31561#32423#36798#26631)
        end
      end
    end
  end
  object frxReport3: TfrxReport
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbExport, pbZoom, pbFind, pbPageSetup, pbNavigator]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = #39044#35774
    ReportOptions.CreateDate = 38544.372171435200000000
    ReportOptions.LastChange = 38544.372171435200000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'var'
      '  dabiao:String;'
      ''
      'procedure Memo39OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  if isDabiao(<frxDBDataset1."ZKZH">)='#39'+'#39' then'
      '    dabiao:='#39#26159#39
      '  else'
      '    dabiao:='#39#21542#39';'
      'end;'
      ''
      'begin'
      ''
      'end.')
    OnUserFunction = frxReport2UserFunction
    Left = 200
    Top = 120
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end>
    Variables = <>
    Style = <>
    object Page1: TfrxReportPage
      PaperWidth = 241.000000000000000000
      PaperHeight = 283.000000000000000000
      PaperSize = 256
      LeftMargin = 20.000000000000000000
      RightMargin = 60.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 15.000000000000000000
      object GroupHeader1: TfrxGroupHeader
        Top = 136.063080000000000000
        Width = 608.504330000000000000
        Condition = 'GetSchool(<frxDBDataset1."BMH">)'
        StartNewPage = True
      end
      object MasterData1: TfrxMasterData
        Height = 56.692913385826770000
        Top = 158.740260000000000000
        Width = 608.504330000000000000
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
        RowCount = 0
        object Memo21: TfrxMemoView
          Top = 26.456710000000020000
          Width = 52.913420000000000000
          Height = 18.897637800000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            '[frxDBDataset1."BMH"]')
          ParentFont = False
        end
        object Memo22: TfrxMemoView
          Left = 52.913420000000000000
          Top = 26.456710000000020000
          Width = 56.692950000000010000
          Height = 18.897637800000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          Memo.Strings = (
            '[frxDBDataset1."STDNAME"]')
          ParentFont = False
        end
        object Memo25: TfrxMemoView
          Left = 107.606370000000000000
          Top = 26.456710000000020000
          Width = 49.133890000000000000
          Height = 18.897637800000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          HAlign = haCenter
          Memo.Strings = (
            '[frxDBDataset1."TOTAL"]')
          ParentFont = False
        end
        object Memo26: TfrxMemoView
          Left = 156.740260000000000000
          Top = 26.456710000000020000
          Width = 34.015748030000000000
          Height = 18.897637800000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          HAlign = haCenter
          Memo.Strings = (