unitprtchuxuan.dfm.~50~

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

object fmprtChuxuan: TfmprtChuxuan
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #25171#21360#21508#26657#25307#29983#21021#36873#33457#21517#20876
  ClientHeight = 285
  ClientWidth = 355
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn1: TBitBtn
    Left = 32
    Top = 144
    Width = 75
    Height = 25
    Caption = #25171#21360
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      88888800000000000888808888888880808800000000000008080888888BBB88
      0008088888877788080800000000000008800888888888808080800000000008
      0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
      088888880FFFFFFFF08888888000000000888888888888888888}
  end
  object ListBox1: TListBox
    Left = 160
    Top = 16
    Width = 169
    Height = 241
    ItemHeight = 13
    TabOrder = 1
  end
  object frxReport1: 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 = 38543.548750138900000000
    ReportOptions.LastChange = 38543.548750138900000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'var'
      '  sex,beizhu:String;'
      ''
      'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  if <frxDBDataset1."SEX">='#39'F'#39' then'
      '    sex:='#39#22899#39
      '  else'
      '    sex:='#39#30007#39';'
      'end;'
      ''
      'procedure Memo12OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  if <frxDBDataset1."YX">='#39'T'#39' then'
      '    beizhu:='#39#20248#20808#39
      
        '  else if (<frxDBDataset1."BXZGF">>0) or (<frxDBDataset1."TYZGF"' +
        '>>0) then'
      '    beizhu:='#39#21152#20998#39
      '  else'
      '    beizhu:='#39#39';'
      'end;'
      ''
      'begin'
      ''
      'end.')
    OnUserFunction = frxReport1UserFunction
    Left = 64
    Top = 40
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end>
    Variables = <>
    Style = <>
    object Page1: TfrxReportPage
      PaperWidth = 241.000000000000000000
      PaperHeight = 283.000000000000000000
      PaperSize = 256
      LeftMargin = 15.000000000000000000
      RightMargin = 15.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 20.000000000000000000
      Columns = 2
      ColumnWidth = 105.500000000000000000
      ColumnPositions.Strings = (
        '0'
        '112')
      object GroupHeader1: TfrxGroupHeader
        Top = 185.196970000000000000
        Width = 797.480830000000000000
        Condition = 'GetSpecialty(<frxDBDataset1."LQZY">)'
        StartNewPage = True
      end
      object GroupFooter1: TfrxGroupFooter
        Top = 249.448980000000000000
        Width = 797.480830000000000000
      end
      object MasterData1: TfrxMasterData
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        Height = 18.897650000000000000
        ParentFont = False
        Top = 207.874150000000000000
        Width = 797.480830000000000000
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
        RowCount = 0
        object Memo2: TfrxMemoView
          Width = 56.692950000000010000
          Height = 18.897650000000000000
          Memo.Strings = (
            '[frxDBDataset1."BMH"]')
        end
        object Memo19: TfrxMemoView
          Left = 56.692950000000010000
          Width = 56.692950000000010000
          Height = 18.897650000000000000
          Memo.Strings = (
            '[frxDBDataset1."STDNAME"]')
        end
        object Memo20: TfrxMemoView
          Left = 113.385900000000000000
          Width = 26.456710000000000000
          Height = 18.897650000000000000
          OnBeforePrint = 'Memo20OnBeforePrint'
          Memo.Strings = (
            '[sex]')
        end
        object Memo21: TfrxMemoView
          Left = 139.842610000000000000
          Width = 56.692950000000010000
          Height = 18.897650000000000000
          Memo.Strings = (
            
              '[YearOf(<frxDBDataset1."BIRTH">)].[MonthOf(<frxDBDataset1."BIRTH' +
              '">)]')
        end
        object Memo22: TfrxMemoView
          Left = 200.315090000000000000
          Width = 64.252010000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            '[GetSchool(<frxDBDataset1."BMH">)]')
        end
        object Memo23: TfrxMemoView
          Left = 264.567100000000000000
          Width = 37.795300000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            '[frxDBDataset1."TOTAL"]')
        end
        object Memo24: TfrxMemoView
          Left = 302.362400000000000000
          Width = 34.015770000000010000
          Height = 18.897650000000000000
          Memo.Strings = (
            '[frxDBDataset1."TDF"]')
        end
        object Memo12: TfrxMemoView
          Left = 336.378170000000000000
          Width = 34.015770000000010000
          Height = 18.897650000000000000
          OnBeforePrint = 'Memo12OnBeforePrint'
          Memo.Strings = (
            '[beizhu]')
        end
      end
      object PageHeader1: TfrxPageHeader
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        Height = 105.826840000000000000
        ParentFont = False
        Top = 18.897650000000000000
        Width = 797.480830000000000000
        object Memo1: TfrxMemoView
          Left = 15.118120000000000000
          Top = 11.338590000000000000
          Width = 782.362710000000000000
          Height = 18.897650000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          HAlign = haCenter
          Memo.Strings = (
            '2005'#24180#20013#25307#12304'[GetSpecialty(<frxDBDataset1."LQZY">)]'#12305#21021#36873#33457#21517#20876)
          ParentFont = False
        end
        object Memo3: TfrxMemoView
          Left = 75.590600000000000000
          Top = 49.133889999999990000
          Width = 71.811070000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #31532'[Page]'#39029)
        end
        object Memo4: TfrxMemoView
          Left = 699.213050000000000000
          Top = 45.354360000000000000
          Width = 94.488250000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            '[Date]')
        end
        object Line1: TfrxLineView
          Top = 71.811070000000000000
          Width = 793.700787401575000000
          Frame.Style = fsDouble
          Frame.Typ = [ftTop]
        end
        object Memo5: TfrxMemoView
          Left = 3.779530000000000000
          Top = 79.370130000000000000
          Width = 49.133890000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #25253#21517#21495)
        end
        object Memo6: TfrxMemoView
          Left = 60.472480000000000000
          Top = 79.370130000000000000
          Width = 34.015770000000010000
          Height = 18.897650000000000000
          Memo.Strings = (
            #22995#21517)
        end
        object Memo7: TfrxMemoView
          Left = 113.385900000000000000
          Top = 79.370130000000000000
          Width = 30.236240000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #24615#21035)
        end
        object Memo8: TfrxMemoView
          Left = 143.622140000000000000
          Top = 79.370130000000000000
          Width = 60.472480000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #20986#29983#24180#26376)
        end
        object Memo9: TfrxMemoView
          Left = 204.094620000000000000
          Top = 79.370130000000000000
          Width = 60.472480000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #27605#19994#23398#26657)
        end
        object Memo10: TfrxMemoView
          Left = 268.346630000000000000
          Top = 79.370130000000000000
          Width = 30.236240000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #24635#20998)
        end
        object Memo11: TfrxMemoView
          Left = 302.362400000000000000
          Top = 79.370130000000000000
          Width = 30.236240000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #25237#26723)
        end
        object Line2: TfrxLineView
          Top = 102.047310000000000000
          Width = 370.393940000000000000
          Frame.Style = fsDot
          Frame.Typ = [ftTop]
        end
        object Memo25: TfrxMemoView
          Left = 3.779530000000000000
          Top = 49.133889999999990000
          Width = 68.031540000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #20849'[TotalPages#]'#39029)
        end
        object Memo26: TfrxMemoView
          Left = 336.378170000000000000
          Top = 79.370130000000000000
          Width = 30.236240000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #22791#27880)
        end
        object Memo13: TfrxMemoView
          Left = 427.086890000000000000
          Top = 79.370130000000000000
          Width = 49.133890000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #25253#21517#21495)
        end
        object Memo14: TfrxMemoView
          Left = 480.000310000000000000
          Top = 79.370130000000000000
          Width = 34.015770000000010000
          Height = 18.897650000000000000
          Memo.Strings = (
            #22995#21517)
        end
        object Memo15: TfrxMemoView
          Left = 536.693260000000000000
          Top = 79.370130000000000000
          Width = 30.236240000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #24615#21035)
        end
        object Memo16: TfrxMemoView
          Left = 566.929499999999900000
          Top = 79.370130000000000000
          Width = 60.472480000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #20986#29983#24180#26376)
        end
        object Memo17: TfrxMemoView
          Left = 627.401980000000000000
          Top = 79.370130000000000000
          Width = 60.472480000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #27605#19994#23398#26657)
        end
        object Memo18: TfrxMemoView
          Left = 691.653990000000000000
          Top = 79.370130000000000000
          Width = 30.236240000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #24635#20998)
        end
        object Memo27: TfrxMemoView
          Left = 725.669760000000000000
          Top = 79.370130000000000000
          Width = 30.236240000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #25237#26723)
        end
        object Line3: TfrxLineView
          Left = 423.307360000000000000
          Top = 102.047310000000000000
          Width = 370.393940000000000000
          Frame.Style = fsDot
          Frame.Typ = [ftTop]
        end
        object Memo28: TfrxMemoView
          Left = 759.685530000000000000
          Top = 79.370130000000000000
          Width = 30.236240000000000000
          Height = 18.897650000000000000
          Memo.Strings = (
            #22791#27880)
        end
      end
    end
  end
  object frxDBDataset1: TfrxDBDataset
    UserName = 'frxDBDataset1'
    CloseDataSource = False
    DataSet = dm.Query1
    Left = 104
    Top = 40
  end
  object frxIBXComponents1: TfrxIBXComponents
    DefaultDatabase = dm.IBDB
    Left = 144
    Top = 40
  end
  object frxRTFExport1: TfrxRTFExport
    ShowProgress = True
    Left = 72
    Top = 80
  end
end