安装完成后

源代码在线查看: querybassunit.dfm

软件大小: 2239 K
上传用户: stzwsy
关键词:
下载地址: 免注册下载 普通下载 VIP

相关代码

				object QueryBassForm: TQueryBassForm
				  Left = 251
				  Top = 199
				  Width = 693
				  Height = 348
				  Caption = #36890#29992#25968#25454#26597#35810
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'MS Sans Serif'
				  Font.Style = []
				  OldCreateOrder = False
				  OnClose = FormClose
				  OnCloseQuery = FormCloseQuery
				  OnCreate = FormCreate
				  OnResize = FormResize
				  OnShow = FormShow
				  PixelsPerInch = 96
				  TextHeight = 13
				  object L_title: TLabel
				    Left = 0
				    Top = 0
				    Width = 685
				    Height = 15
				    Align = alTop
				    Alignment = taCenter
				    AutoSize = False
				    Caption = #36890#29992#25968#25454#26597#35810#32479#35745#23545#35805#26694
				    Font.Charset = GB2312_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -15
				    Font.Name = #23435#20307
				    Font.Style = [fsBold]
				    ParentFont = False
				    Transparent = True
				  end
				  object P_back: TPanel
				    Left = 0
				    Top = 15
				    Width = 685
				    Height = 306
				    Align = alClient
				    BevelOuter = bvNone
				    BorderWidth = 3
				    Ctl3D = False
				    ParentCtl3D = False
				    TabOrder = 0
				    object P_main: TPanel
				      Left = 3
				      Top = 3
				      Width = 679
				      Height = 300
				      Align = alClient
				      BevelOuter = bvNone
				      BorderStyle = bsSingle
				      TabOrder = 0
				      object Panel_down: TPanel
				        Left = 0
				        Top = 262
				        Width = 677
				        Height = 36
				        Align = alBottom
				        BevelOuter = bvNone
				        ParentColor = True
				        TabOrder = 0
				        object Bevel_bass: TBevel
				          Left = 0
				          Top = 0
				          Width = 677
				          Height = 2
				          Align = alTop
				        end
				        object L_count: TLabel
				          Left = 12
				          Top = 12
				          Width = 120
				          Height = 13
				          Caption = #21512#35745#37329#39069#65306'  '#65509'0.00'
				          Font.Charset = GB2312_CHARSET
				          Font.Color = clBlue
				          Font.Height = -13
				          Font.Name = #23435#20307
				          Font.Style = []
				          ParentFont = False
				        end
				        object Panel_button: TPanel
				          Left = 517
				          Top = 2
				          Width = 160
				          Height = 34
				          Align = alRight
				          BevelOuter = bvNone
				          ParentColor = True
				          TabOrder = 0
				          object Panel1: TPanel
				            Left = 0
				            Top = 0
				            Width = 160
				            Height = 34
				            Align = alRight
				            BevelOuter = bvNone
				            Color = cl3DLight
				            TabOrder = 0
				            object OKBtn: TButton
				              Left = 6
				              Top = 3
				              Width = 74
				              Height = 27
				              Cursor = crHandPoint
				              Caption = #30830#23450'[&O]'
				              TabOrder = 0
				              Visible = False
				            end
				            object CancelBtn: TButton
				              Left = 81
				              Top = 3
				              Width = 74
				              Height = 27
				              Cursor = crHandPoint
				              Caption = #20851#38381'[&C]'
				              TabOrder = 1
				              OnClick = CancelBtnClick
				            end
				          end
				        end
				      end
				      object DBG_data: TDBGrid
				        Left = 0
				        Top = 36
				        Width = 677
				        Height = 226
				        Align = alClient
				        BorderStyle = bsNone
				        DataSource = DataSource
				        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
				        TabOrder = 1
				        TitleFont.Charset = DEFAULT_CHARSET
				        TitleFont.Color = clWindowText
				        TitleFont.Height = -11
				        TitleFont.Name = 'MS Sans Serif'
				        TitleFont.Style = []
				        OnDrawColumnCell = DBG_dataDrawColumnCell
				        Columns = <
				          item
				            Expanded = False
				            FieldName = 'Name'
				            Title.Alignment = taCenter
				            Title.Caption = #22995#21517
				            Visible = True
				          end
				          item
				            Expanded = False
				            FieldName = 'Depotname'
				            Title.Alignment = taCenter
				            Title.Caption = #21830#22330
				            Visible = True
				          end
				          item
				            Expanded = False
				            FieldName = 'Goodsname'
				            Title.Alignment = taCenter
				            Title.Caption = #21697#21517
				            Visible = True
				          end
				          item
				            Expanded = False
				            FieldName = 'Type'
				            Title.Alignment = taCenter
				            Title.Caption = #22411#21495
				            Visible = True
				          end
				          item
				            Expanded = False
				            FieldName = 'Unit'
				            Title.Alignment = taCenter
				            Title.Caption = #21333#20301
				            Visible = True
				          end
				          item
				            Expanded = False
				            FieldName = 'Number'
				            Title.Alignment = taCenter
				            Title.Caption = #25968#37327
				            Visible = True
				          end
				          item
				            Expanded = False
				            FieldName = 'selldj'
				            Title.Alignment = taCenter
				            Title.Caption = #21333#20215
				            Visible = True
				          end
				          item
				            Expanded = False
				            FieldName = 'Price'
				            Title.Alignment = taCenter
				            Title.Caption = #37329#39069
				            Visible = True
				          end
				          item
				            Expanded = False
				            FieldName = 'MyDate'
				            Title.Caption = #26085#26399
				            Visible = True
				          end
				          item
				            Expanded = False
				            FieldName = 'Memo'
				            Title.Alignment = taCenter
				            Title.Caption = #25688#35201
				            Visible = True
				          end>
				      end
				      object PageScroller1: TPageScroller
				        Left = 0
				        Top = 0
				        Width = 677
				        Height = 36
				        Align = alTop
				        Control = Panel_top
				        TabOrder = 2
				        object Panel_top: TPanel
				          Left = 0
				          Top = 0
				          Width = 680
				          Height = 36
				          TabOrder = 0
				          object Label1: TLabel
				            Left = 6
				            Top = 14
				            Width = 48
				            Height = 13
				            Caption = #19994#21153#21592#65306
				          end
				          object Label2: TLabel
				            Left = 25
				            Top = 6
				            Width = 36
				            Height = 13
				            Caption = #21830#22330#65306
				          end
				          object Label3: TLabel
				            Left = 12
				            Top = 23
				            Width = 36
				            Height = 13
				            Caption = #21830#21697#65306
				          end
				          object Label4: TLabel
				            Left = 184
				            Top = 10
				            Width = 105
				            Height = 13
				            Caption = #26085#26399#65306'                   '#33267
				          end
				          object SB_query: TSpeedButton
				            Left = 472
				            Top = 6
				            Width = 25
				            Height = 20
				            Cursor = crHandPoint
				            Hint = #25191#34892#26597#35810
				            Glyph.Data = {
				              F6000000424DF600000000000000760000002800000010000000100000000100
				              0400000000008000000000000000000000001000000000000000000000000000
				              8000008000000080800080000000800080008080000080808000C0C0C0000000
				              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
				              8888888888888888888800000888880000080F000888880F00080F000888880F
				              0008000000080000000800F000000F00000800F000800F00000800F000800F00
				              00088000000000000088880F00080F0008888800000800000888888000888000
				              88888880F08880F0888888800088800088888888888888888888}
				            ParentShowHint = False
				            ShowHint = True
				            OnClick = SB_queryClick
				          end
				          object DTP_begin: TDateTimePicker
				            Left = 219
				            Top = 6
				            Width = 113
				            Height = 20
				            Date = 37622.836306203700000000
				            Time = 37622.836306203700000000
				            DateFormat = dfLong
				            TabOrder = 0
				            OnChange = DTP_beginChange
				          end
				          object DTP_end: TDateTimePicker
				            Left = 350
				            Top = 6
				            Width = 113
				            Height = 20
				            Date = 37652.836603738400000000
				            Time = 37652.836603738400000000
				            DateFormat = dfLong
				            TabOrder = 1
				            OnChange = DTP_endChange
				          end
				          object Panel_print: TPanel
				            Left = 519
				            Top = 1
				            Width = 160
				            Height = 34
				            Align = alRight
				            BevelOuter = bvNone
				            TabOrder = 2
				            object SB_print: TSpeedButton
				              Left = 2
				              Top = 3
				              Width = 78
				              Height = 25
				              Cursor = crHandPoint
				              Hint = #25171#21360#39044#35272
				              Caption = #25253#34920#36755#20986
				              Glyph.Data = {
				                06030000424D06030000000000003600000028000000100000000F0000000100
				                180000000000D0020000C40E0000C40E00000000000000000000C0C0C0C0C0C0
				                C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
				                C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000000000000000000000000000000
				                0000000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0000000
				                C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0
				                C0000000C0C0C0C0C0C000000000000000000000000000000000000000000000
				                0000000000000000000000000000000000C0C0C0000000C0C0C0000000C0C0C0
				                C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000FFFF00FFFF00FFFFC0C0C0C0C0C00000
				                00000000000000C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000
				                0000000000000000C0C0C0C0C0C0000000C0C0C0000000C0C0C0000000000000
				                0000000000000000000000000000000000000000000000000000000000000000
				                00C0C0C0C0C0C0000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
				                C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0000000C0C0C0000000C0C0C0000000
				                000000000000000000000000000000000000000000000000000000C0C0C00000
				                00C0C0C0000000000000C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFFFFFFFFFF
				                FFFFFFFFFFFFFFFFFFFFFF000000C0C0C0000000C0C0C0000000C0C0C0C0C0C0
				                C0C0C0000000FFFFFF000000000000000000000000000000FFFFFF0000000000
				                00000000000000C0C0C0C0C0C0C0C0C0C0C0C0000000FFFFFFFFFFFFFFFFFFFF
				                FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
				                C0C0C0C0C0C0000000FFFFFF000000000000000000000000000000FFFFFF0000
				                00C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000FFFFFFFFFFFFFF
				                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0C0C0C0C0C0C0C0C0C0
				                C0C0C0C0C0C0C0C0C00000000000000000000000000000000000000000000000
				                00000000C0C0C0C0C0C0}
				              ParentShowHint = False
				              ShowHint = True
				              OnClick = SB_printClick
				            end
				            object SB_chart: TSpeedButton
				              Left = 82
				              Top = 3
				              Width = 64
				              Height = 25
				              Cursor = crHandPoint
				              Caption = #23545#27604#22270
				              Glyph.Data = {
				                76020000424D76020000000000003600000028000000100000000C0000000100
				                18000000000040020000C40E0000C40E00000000000000000000C0C0C0C0C0C0
				                C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
				                C0C0C0C0C0C0C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0
				                C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000000FFFF
				                000000000000000000C0C0C0000000000000000000000000000000C0C0C0C0C0
				                C0C0C0C0C0C0C0C0C0C0000000000000000000FFFF0000000000000000FFFFFF
				                FFFF00FFFFFFFFFF00FFFF000000C0C0C0C0C0C0C0C0C0C0C0C0000000000000
				                000000FFFF0000000000FFFFFFFFFF00FFFFFFFFFF000000000000000000C0C0
				                C0C0C0C0C0C0C0C0C0C0000000000000000000FFFF00000000FFFFFF00FFFFFF
				                FFFF00FFFFFFFFFF00FFFFFFFFFF000000C0C0C0C0C0C0C0C0C0000000000000
				                000000FFFF0000000000FFFFFFFFFF00FFFFFFFFFF0000000000000000000000
				                00000000000000C0C0C0000000000000000000FFFF00000000FFFFFF00FFFFFF
				                FFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF000000000000000000
				                000000FFFF0000000000FFFFFFFFFF0000000000000000000000000000000000
				                00000000000000C0C0C000000000000000000000000000000000000000FFFFFF
				                FFFF00FFFF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
				                C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0
				                C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
				                C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
				            end
				          end
				          object CB_YWY: TComboBox
				            Left = 64
				            Top = 8
				            Width = 113
				            Height = 21
				            Style = csDropDownList
				            ItemHeight = 13
				            TabOrder = 3
				            OnChange = CB_YWYChange
				          end
				          object CB_Depot: TComboBox
				            Left = 64
				            Top = 7
				            Width = 113
				            Height = 21
				            Style = csDropDownList
				            ItemHeight = 13
				            TabOrder = 4
				            OnChange = CB_DepotChange
				          end
				          object CB_Goods: TComboBox
				            Left = 64
				            Top = 7
				            Width = 113
				            Height = 21
				            Style = csDropDownList
				            ItemHeight = 13
				            TabOrder = 5
				            OnChange = CB_GoodsChange
				          end
				        end
				      end
				    end
				  end
				  object Query_data: TQuery
				    AfterOpen = Query_dataAfterOpen
				    AfterClose = Query_dataAfterClose
				    Left = 131
				    Top = 170
				  end
				  object Query_Temp: TQuery
				    Left = 171
				    Top = 170
				  end
				  object DataSource: TDataSource
				    DataSet = Query_data
				    Left = 211
				    Top = 170
				  end
				end
							

相关资源