f_findman.dfm

仓库管理系统 仓库管理系统

object dfmfindman: Tdfmfindman
  Left = 167
  Top = 162
  Width = 570
  Height = 367
  Caption = #20154#21592#26597#35810
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 321
    Width = 562
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 262
    Width = 562
    Height = 59
    Align = alBottom
    TabOrder = 1
    object Label1: TLabel
      Left = 24
      Top = 11
      Width = 39
      Height = 17
      AutoSize = False
      Caption = #24215#38138
    end
    object Label2: TLabel
      Left = 150
      Top = 11
      Width = 39
      Height = 17
      AutoSize = False
      Caption = #22995#21517
    end
    object Label3: TLabel
      Left = 289
      Top = 11
      Width = 39
      Height = 17
      AutoSize = False
      Caption = #32844#20301
    end
    object Label4: TLabel
      Left = 846
      Top = 10
      Width = 12
      Height = 12
      Caption = #20849
    end
    object Label5: TLabel
      Left = 861
      Top = 10
      Width = 41
      Height = 16
      Caption = 'Label5'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label6: TLabel
      Left = 899
      Top = 10
      Width = 12
      Height = 12
      Caption = #20154
    end
    object Bevel1: TBevel
      Left = 188
      Top = 31
      Width = 228
      Height = 26
    end
    object Edit1: TEdit
      Left = 64
      Top = 6
      Width = 67
      Height = 20
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 191
      Top = 6
      Width = 77
      Height = 20
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 329
      Top = 6
      Width = 87
      Height = 20
      TabOrder = 2
    end
    object BitBtn1: TBitBtn
      Left = 190
      Top = 31
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 3
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object CheckBox1: TCheckBox
      Left = 22
      Top = 30
      Width = 101
      Height = 21
      Caption = #26174#31034#31163#32844#20154#21592
      TabOrder = 4
      OnClick = CheckBox1Click
    end
    object BitBtn2: TBitBtn
      Left = 340
      Top = 31
      Width = 75
      Height = 25
      Caption = #23548#20986#25968#25454
      TabOrder = 5
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 265
      Top = 31
      Width = 75
      Height = 25
      Caption = #25171#21360
      TabOrder = 6
      OnClick = BitBtn3Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 562
    Height = 262
    Align = alClient
    TabOrder = 2
    object DBGridEh1: TDBGridEh
      Left = 1
      Top = 1
      Width = 560
      Height = 260
      Align = alClient
      AllowedOperations = [alopDeleteEh]
      DataSource = DataSource2
      FooterColor = clYellow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FooterRowCount = 1
      FrozenCols = 2
      SumList.Active = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDrawColumnCell = DBGridEh1DrawColumnCell
      OnTitleClick = DBGridEh1TitleClick
      CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
      CurrencyStyle.CurrencyFont.Color = clWindowText
      CurrencyStyle.CurrencyFont.Height = -11
      CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
      CurrencyStyle.CurrencyFont.Style = []
      CurrencyStyle.CurrencySymbol = #65509
      CurrencyStyle.CompartColor = clSilver
      CurrencyStyle.KilobitColor = clGreen
      CurrencyStyle.RadixColor = clRed
      CurrencyStyle.ShowMinus = True
      CurrencyStyle.ShowZero = False
      CurrencyStyle.MinusColor = clRed
      CurrencyStyle.Layout = tlCenter
      CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
      CurrencyStyle.HeadFont.Color = clWindowText
      CurrencyStyle.HeadFont.Height = -11
      CurrencyStyle.HeadFont.Name = #26999#20307'_GB2312'
      CurrencyStyle.HeadFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'Freno'
          Footer.Value = #24635#20154#25968#65306
          Footer.ValueType = fvtStaticText
          Footers = <>
          Title.Alignment = taCenter
          Width = 51
        end
        item
          EditButtons = <>
          FieldName = 'Fname'
          Footer.ValueType = fvtCount
          Footers = <>
          Title.Alignment = taCenter
          Width = 72
        end
        item
          EditButtons = <>
          FieldName = 'bmh'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #24215#38138
        end
        item
          EditButtons = <>
          FieldName = 'Fgroup'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'Fsite'
          Footers = <>
          Title.Alignment = taCenter
          Width = 96
        end
        item
          EditButtons = <>
          FieldName = 'Fdue'
          Footers = <>
          Title.Alignment = taCenter
          Width = 39
        end
        item
          EditButtons = <>
          FieldName = 'Fbm'
          Footers = <>
          Title.Alignment = taCenter
          Width = 58
        end
        item
          EditButtons = <>
          FieldName = 'Fbirth'
          Footers = <>
          Title.Alignment = taCenter
          Width = 93
        end
        item
          EditButtons = <>
          FieldName = 'Findate'
          Footers = <>
          Title.Alignment = taCenter
          Width = 93
        end
        item
          EditButtons = <>
          FieldName = 'cduedate'
          Footers = <>
          Title.Alignment = taCenter
          Width = 93
        end
        item
          EditButtons = <>
          FieldName = 'Foutdate'
          Footers = <>
          Title.Alignment = taCenter
          Width = 86
        end
        item
          EditButtons = <>
          FieldName = 'Fnote'
          Footers = <>
          Title.Alignment = taCenter
        end>
    end
  end
  object manquery: TADOQuery
    Active = True
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from man'
      'order by fshop,freno')
    Left = 448
    Top = 72
    object manqueryFreno: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'Freno'
      Size = 4
    end
    object manqueryFname: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'Fname'
      Size = 10
    end
    object manqueryFgroup: TWideStringField
      DisplayLabel = #29677#32452
      FieldName = 'Fgroup'
      Size = 6
    end
    object manqueryFbirth: TDateTimeField
      DisplayLabel = #20986#29983#26085#26399
      FieldName = 'Fbirth'
    end
    object manqueryFindate: TDateTimeField
      DisplayLabel = #20837#32844#26085#26399
      FieldName = 'Findate'
    end
    object manqueryFbm: TSmallintField
      DisplayLabel = #22522#26412#24037#36164
      FieldName = 'Fbm'
    end
    object manqueryFoutdate: TDateTimeField
      DisplayLabel = #31163#32844#26085#26399
      FieldName = 'Foutdate'
    end
    object manqueryFsite: TWideStringField
      DisplayLabel = #32844#20301
      FieldName = 'Fsite'
    end
    object manqueryFdue: TWideStringField
      DisplayLabel = #36716#27491
      FieldName = 'Fdue'
      Size = 2
    end
    object manqueryFnote: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'Fnote'
      Size = 50
    end
    object manquerycduedate: TDateTimeField
      DisplayLabel = #36716#27491#26085#26399
      FieldName = 'cduedate'
    end
    object manqueryfduem: TSmallintField
      FieldName = 'fduem'
    end
    object manquerybmh: TWideStringField
      FieldName = 'bmh'
      Size = 6
    end
  end
  object DataSource2: TDataSource
    DataSet = manquery
    Left = 416
    Top = 72
  end
  object ADOTable1: TADOTable
    ConnectionString = 'FILE NAME=C:\VS\outdbf\out.udl'
    TableName = 's_man'
    Left = 520
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 488
    Top = 72
  end
  object ppReport1: TppReport
    AutoStop = False
    DataPipeline = ppDBPipeline1
    PassSetting = psTwoPass
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'A4'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 3810
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 297127
    PrinterSetup.mmPaperWidth = 210079
    PrinterSetup.PaperSize = 9
    DeviceType = 'Screen'
    Left = 448
    Top = 112
    Version = '6.02'
    mmColumnWidth = 197379
    DataPipelineName = 'ppDBPipeline1'
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 24871
      mmPrintPosition = 0
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = #32534#21495
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 12171