📄 unit1.dfm

📁 ceshixitongzhuceshifouwanshan
💻 DFM
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
object Form1: TForm1
  Left = 65
  Top = 155
  Width = 656
  Height = 345
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 122
    Top = 30
    Width = 89
    Height = 13
    AutoSize = False
    Caption = #28436#31034#31867#21035':'
  end
  object DBGrid2: TDBGrid
    Left = 10
    Top = 56
    Width = 607
    Height = 239
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #24207#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #33258#26377#25110#21512#21516
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31867#21035
        Width = 43
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32500#20462#20225#19994#21517#31216
        Width = 183
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21512#21516#36215#35755#24180#38480
        Width = 106
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21512#21516#21495
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = #35774#22791#21488#25968
        Width = 92
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24180#32500#20462#37327
        Width = 59
        Visible = True
      end
      item
        Alignment = taRightJustify
        Expanded = False
        FieldName = #22266#23450#36164#20135
        Width = 76
        Visible = True
      end>
  end
  object Button4: TButton
    Left = 528
    Top = 22
    Width = 75
    Height = 25
    Caption = #35774#32622
    TabOrder = 1
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 440
    Top = 22
    Width = 75
    Height = 25
    Caption = #39044#35272
    TabOrder = 2
    OnClick = Button3Click
  end
  object ComboBox1: TComboBox
    Left = 218
    Top = 24
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 3
    Text = #20027#32454#34920
    Items.Strings = (
      #20027#32454#34920
      #22810#34920#22836
      #32508#21512#21151#33021#28436#31034
      #27599#34892#25171#21360#21015#26631#39064
      #32437#21521#25171#21360)
  end
  object ADOTable1: TADOTable
    Left = 134
    Top = 225
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Extended Properti' +
      'es="DSN=aa;DBQ=H:\sailprint\demo\db1.mdb;DefaultDir=H:\sailprint' +
      '\demo;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5' +
      ';UID=admin;"'
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 158
    Top = 225
  end
  object ADODataSet2: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'SELECT id as '#24207#21495', '#33258#26377#25110#21512#21516', '#32500#20462#20225#19994#21517#31216', '#31867#21035', '#21512#21516#36215#35755#24180#38480', '#21512#21516#21495', '#35774#22791#21488#25968', '#24180#32500#20462#37327', '#22266#23450#36164 +
      #20135' from '#32500#20462#20225#19994#26723#26696
    Parameters = <>
    Left = 214
    Top = 225
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet2
    Left = 186
    Top = 225
  end
  object DBGridSource1: TDBGridSource
    DBGrid = DBGrid2
    Left = 46
    Top = 56
  end
  object SailReport1: TSailReport
    Page.LeftMargin = 10.000000000000000000
    Page.RightMargin = 10.000000000000000000
    Page.TopMargin = 10.000000000000000000
    Page.BottomMargin = 10.000000000000000000
    Page.PageSize = A4
    Page.Height = 297.000000000000000000
    Page.Width = 210.000000000000000000
    Page.Orientation = poPortrait
    ReportSource = DBGridSource1
    Detail.Arrange = Horizontal
    Detail.Rowspace = 5.000000000000000000
    Detail.Font.Charset = DEFAULT_CHARSET
    Detail.Font.Color = clWindowText
    Detail.Font.Height = -11
    Detail.Font.Name = 'MS Sans Serif'
    Detail.Font.Style = []
    Detail.Frame.Shape = FBottomLine
    Detail.ColsLine.Style = psClear
    Detail.RowsLine.Style = psClear
    Bands = <
      item
        Text = '|recordcount|'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Alignment = taCenter
        Space = 2.000000000000000000
        BandType = PageFooter
      end
      item
        Text = #20027#32454#34920#28436#31034
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = #38582#20070
        Font.Style = [fsBold]
        Alignment = taCenter
        Space = 2.000000000000000000
        BandType = ReportTitle
      end
      item
        Text = 'sailprint'#25253#34920#28436#31034
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold, fsUnderline]
        Alignment = taRightJustify
        Space = 2.000000000000000000
        BandType = PageHeader
      end>
    ColsTitle.Font.Charset = DEFAULT_CHARSET
    ColsTitle.Font.Color = clWindowText
    ColsTitle.Font.Height = -11
    ColsTitle.Font.Name = 'MS Sans Serif'
    ColsTitle.Font.Style = []
    ColsTitle.Print = True
    ColsTitle.Rowspace = 5.000000000000000000
    ColsTitle.EveryPage = True
    ColsTitle.EveryRow = False
    ColsTitle.Frame.Shape = FBottomLine
    ColsTitle.ColsLine.Style = psClear
    ColsTitle.RowsLine.Style = psClear
    Columns = <
      item
        Autoreturn.Enabled = True
        Autoreturn.Pagination = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Color = clWhite
        Width = 183
        Title.Color = clWhite
        Title.Text.Strings = (
          #32500#20462#20225#19994#21517#31216)
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Title.Alignment = taLeftJustify
        FieldName = #32500#20462#20225#19994#21517#31216
        Alignment = taLeftJustify
        MasterOption.Master = True
        MasterOption.SingleRow = True
      end
      item
        Autoreturn.Enabled = False
        Autoreturn.Pagination = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Color = clWhite
        Width = 106
        Title.Color = clWhite
        Title.Text.Strings = (
          #21512#21516#36215#35755#24180#38480)
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Title.Alignment = taLeftJustify
        FieldName = #21512#21516#36215#35755#24180#38480
        Alignment = taLeftJustify
        MasterOption.Master = False
        MasterOption.SingleRow = False
      end
      item
        Autoreturn.Enabled = False
        Autoreturn.Pagination = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Color = clWhite
        Width = 81
        Title.Color = clWhite
        Title.Text.Strings = (
          #21512#21516#21495)
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Title.Alignment = taLeftJustify
        FieldName = #21512#21516#21495
        Alignment = taLeftJustify
        MasterOption.Master = False
        MasterOption.SingleRow = False
      end
      item
        Autoreturn.Enabled = False
        Autoreturn.Pagination = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Color = clWhite
        Width = 92
        Title.Color = clWhite
        Title.Text.Strings = (
          #35774#22791#21488#25968)
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Title.Alignment = taLeftJustify
        FieldName = #35774#22791#21488#25968
        Alignment = taLeftJustify
        MasterOption.Master = False
        MasterOption.SingleRow = False
      end
      item
        Autoreturn.Enabled = False
        Autoreturn.Pagination = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Color = clWhite
        Width = 59
        Title.Color = clWhite
        Title.Text.Strings = (
          #24180#32500#20462#37327)
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Title.Alignment = taLeftJustify
        FieldName = #24180#32500#20462#37327
        Alignment = taLeftJustify
        MasterOption.Master = False
        MasterOption.SingleRow = False
      end
      item
        Autoreturn.Enabled = False
        Autoreturn.Pagination = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Color = clWhite
        Width = 76
        Title.Color = clWhite
        Title.Text.Strings = (
          #22266#23450#36164#20135)
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Title.Alignment = taLeftJustify
        FieldName = #22266#23450#36164#20135
        Format = #65509'0.00'
        Alignment = taRightJustify
        MasterOption.Master = False
        MasterOption.SingleRow = False
      end
      item
        Autoreturn.Enabled = False
        Autoreturn.Pagination = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Color = clWhite
        Width = 80
        Title.Color = clWhite
        Title.Text.Strings = (
          #36164#20135#21512#35745)
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Title.Alignment = taCenter
        FieldName = #32500#20462#20225#19994#21517#31216
        Format = #65509'0.00'
        Alignment = taCenter
        MasterOption.Master = True
        MasterOption.SingleRow = True
        MasterOption.Expression = 'sum(['#22266#23450#36164#20135'])'
      end>
    OnPrintDetail = SailReport1PrintDetail
    Left = 74
    Top = 56
  end
  object SailReport2: TSailReport
    Page.LeftMargin = 10.000000000000000000
    Page.RightMargin = 10.000000000000000000
    Page.TopMargin = 10.000000000000000000
    Page.BottomMargin = 10.000000000000000000
    Page.PageSize = A4
    Page.Height = 297.000000000000000000
    Page.Width = 210.000000000000000000
    Page.Orientation = poPortrait
    ReportSource = DBGridSource1
    Detail.Arrange = Horizontal
    Detail.Rowspace = 5.000000000000000000
    Detail.Font.Charset = DEFAULT_CHARSET
    Detail.Font.Color = clWindowText
    Detail.Font.Height = -11
    Detail.Font.Name = 'MS Sans Serif'
    Detail.Font.Style = []
    Detail.Frame.Shape = FBox
    Bands = <
      item
        Text = 'sailprint'#25253#34920#28436#31034
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold, fsUnderline]
        Alignment = taRightJustify
        Space = 2.000000000000000000
        BandType = PageHeader
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -