sjrc_un.dfm

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

      Height = 20
      TabOrder = 6
      SkinData = bsSkinData1
      SkinDataName = 'combobox'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 20
      UseSkinFont = True
      DataField = 'fhyd'
      DataSource = dsbaseinfo
      ListBoxDefaultItemHeight = 20
      ListBoxUseSkinFont = True
      ListBoxUseSkinItemHeight = True
      KeyField = 'fid'
      ListField = 'fna'
      ListSource = ds_hyd
    end
    object bsSkinButton1: TbsSkinButton
      Left = 448
      Top = 56
      Width = 81
      Height = 73
      TabOrder = 7
      SkinData = bsSkinData1
      SkinDataName = 'resizebutton'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      RepeatMode = False
      RepeatInterval = 100
      AllowAllUp = False
      TabStop = True
      CanFocused = True
      Down = False
      GroupIndex = 0
      Caption = #28155#21152#25163#26426#20018#21495
      NumGlyphs = 1
      Spacing = 1
      OnClick = bsSkinButton1Click
    end
    object bsSkinDBLookupComboBox5: TbsSkinDBLookupComboBox
      Left = 90
      Top = 38
      Width = 121
      Height = 20
      TabOrder = 8
      SkinData = bsSkinData1
      SkinDataName = 'combobox'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 20
      UseSkinFont = True
      DataField = 'fsjcsid'
      DataSource = dstemp
      ListBoxDefaultItemHeight = 20
      ListBoxUseSkinFont = True
      ListBoxUseSkinItemHeight = True
      KeyField = 'fid'
      ListField = 'fna'
      ListSource = ds_sjcs
    end
    object bsSkinDBLookupComboBox6: TbsSkinDBLookupComboBox
      Left = 90
      Top = 38
      Width = 121
      Height = 20
      TabOrder = 9
      SkinData = bsSkinData1
      SkinDataName = 'combobox'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 20
      UseSkinFont = True
      ListBoxDefaultItemHeight = 20
      ListBoxUseSkinFont = True
      ListBoxUseSkinItemHeight = True
      KeyField = 'fid'
      ListField = 'fna'
      ListSource = ds_sjcs2
    end
    object bsSkinDBLookupComboBox7: TbsSkinDBLookupComboBox
      Left = 90
      Top = 59
      Width = 121
      Height = 20
      TabOrder = 10
      SkinData = bsSkinData1
      SkinDataName = 'combobox'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 20
      UseSkinFont = True
      DataField = 'fsjxh'
      DataSource = dsbaseinfo
      ListBoxDefaultItemHeight = 20
      ListBoxUseSkinFont = True
      ListBoxUseSkinItemHeight = True
      KeyField = 'fid'
      ListField = 'fmodel'
      ListSource = ds_sjxh2
    end
  end
  object bsSkinGroupBox4: TbsSkinGroupBox [3]
    Left = 0
    Top = 195
    Width = 554
    Height = 208
    TabOrder = 2
    SkinData = bsSkinData1
    SkinDataName = 'groupbox'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    RealHeight = -1
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvFrame
    CaptionMode = True
    RollUpMode = False
    RollUpState = False
    NumGlyphs = 1
    Spacing = 2
    Caption = #25163#26426#20837#24211#21333#25454#65306
    Align = alBottom
    object bsSkinDBGrid2: TbsSkinDBGrid
      Left = 1
      Top = 23
      Width = 533
      Height = 165
      TabOrder = 2
      SkinData = bsSkinData1
      SkinDataName = 'grid'
      UseSkinFont = True
      UseSkinCellHeight = True
      HScrollBar = bsSkinScrollBar4
      VScrollBar = bsSkinScrollBar3
      GridLineColor = clWindowText
      DefaultCellHeight = 20
      UseColumnsFont = False
      DefaultRowHeight = 17
      MouseWheelSupport = False
      SaveMultiSelection = False
      PickListBoxSkinDataName = 'listbox'
      PickListBoxCaptionMode = False
      Align = alClient
      DataSource = dstemp
      ReadOnly = True
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = bsSkinDBGrid2CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'fid'
          Title.Caption = #36827#36135#27969#27700#21495
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fsjxh'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fjbpz'
          Title.Caption = #22522#26412#37197#32622
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fnum'
          Title.Caption = #36827#36135#25968#37327'('#21488')'
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fmon'
          Title.Caption = #36827#36135#20215#26684'('#20803'/'#21488')'
          Width = 78
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fhylx'
          Title.Caption = #36135#28304#31867#22411
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fhyd'
          Title.Caption = #36135#28304#22320
          Width = 47
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fmemo'
          Title.Caption = #22791#27880
          Width = 90
          Visible = True
        end>
    end
    object bsSkinScrollBar3: TbsSkinScrollBar
      Left = 534
      Top = 23
      Width = 19
      Height = 165
      TabOrder = 0
      Visible = False
      SkinData = bsSkinData1
      SkinDataName = 'vscrollbar'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 19
      DefaultHeight = 0
      UseSkinFont = True
      Both = False
      BothMarkerWidth = 19
      BothSkinDataName = 'bothhscrollbar'
      CanFocused = False
      Align = alRight
      Kind = sbVertical
      PageSize = 1
      Min = 1
      Max = 25
      Position = 1
      SmallChange = 1
      LargeChange = 1
    end
    object bsSkinScrollBar4: TbsSkinScrollBar
      Left = 1
      Top = 188
      Width = 552
      Height = 19
      TabOrder = 1
      Visible = False
      SkinData = bsSkinData1
      SkinDataName = 'hscrollbar'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 19
      UseSkinFont = True
      Both = False
      BothMarkerWidth = 19
      BothSkinDataName = 'bothhscrollbar'
      CanFocused = False
      Align = alBottom
      Kind = sbHorizontal
      PageSize = 0
      Min = 0
      Max = 0
      Position = 0
      SmallChange = 127
      LargeChange = 127
    end
  end
  inherited ALToolbar: TActionList
    OnChange = ALToolbarChange
  end
  inherited bsSkinMessage1: TbsSkinMessage
    Left = 96
  end
  inherited wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'fsjxh'#9'20'#9#25163#26426#22411#21495#9'F')
    LookupTable = qtemp
  end
  inherited spgetid: TADOStoredProc
    Left = 392
  end
  inherited qbaseinfo: TADOTable
    IndexFieldNames = 'fid'
    MasterFields = 'fid'
    MasterSource = dstemp
    TableName = 'thrc'
  end
  inherited qtemp: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      
        'select tsjxh.fid as fsjxhid,tsjcs.fid as fsjcsid,thyd.fna as fhy' +
        'd,thrc.fid,ltrim(rtrim(tsjcs.fna))+ltrim(rtrim(tsjxh.fmodel)) as' +
        ' fsjxh,thrc.fnum,tjbpz.fname as fjbpz,thrc.fmon,thylx.fname as f' +
        'hylx,thrc.fdate,thrc.fmemo'
      'from thrc,tsjcs,tsjxh,tjbpz,thylx,thyd'
      
        'where tsjcs.fid=tsjxh.fsjcs and thrc.fsjxh=tsjxh.fid and tjbpz.f' +
        'id=thrc.fjbpz and thylx.fid=thrc.fhylx and thyd.fid=thrc.fhyd an' +
        'd fnum>1'
      'order by thrc.fid desc')
  end
  object qry_sjcs: TADOQuery
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    BeforeRefresh = qtempBeforeRefresh
    AfterRefresh = qtempAfterRefresh
    Parameters = <>
    SQL.Strings = (
      'select * from tsjcs'
      'where fuse='#39'T'#39
      'order by tsjcs.fid')
    Left = 48
    Top = 320
  end
  object ds_sjxh: TDataSource
    DataSet = ado_sjxh
    Left = 168
    Top = 304
  end
  object tjbpz: TADOQuery
    Active = True
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    BeforeRefresh = qtempBeforeRefresh
    AfterRefresh = qtempAfterRefresh
    Parameters = <>
    SQL.Strings = (
      'select * from tjbpz'
      'where tjbpz.fuse='#39'T'#39
      'order by fid')
    Left = 96
    Top = 312
  end
  object ds_jbpz: TDataSource
    DataSet = tjbpz
    Left = 144
    Top = 384
  end
  object thylx: TADOQuery
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    BeforeRefresh = qtempBeforeRefresh
    AfterRefresh = qtempAfterRefresh
    Parameters = <>
    SQL.Strings = (
      'select * from thylx'
      'order by thylx.fid')
    Left = 208
    Top = 320
  end
  object ds_hylx: TDataSource
    DataSet = thylx
    Left = 224
    Top = 384
  end
  object thyd: TADOQuery
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    BeforeRefresh = qtempBeforeRefresh
    AfterRefresh = qtempAfterRefresh
    Parameters = <>
    SQL.Strings = (
      'select * from thyd'
      'where thyd.fuse='#39'T'#39' and thyd.fid>'#39'HY02'#39
      'order by thyd.fid')
    Left = 256
    Top = 320
  end
  object ds_hyd: TDataSource
    DataSet = thyd
    Left = 304
    Top = 384
  end
  object ado_sjxh: TADOTable
    Active = True
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'fsjcs'
    MasterFields = 'fid'
    MasterSource = ds_sjcs
    TableName = 'tsjxh'
    Left = 136
    Top = 308
  end
  object ds_sjcs: TDataSource
    DataSet = tblsjcs
    Left = 104
    Top = 356
  end
  object tblsjcs: TADOTable
    Connection = dm.ADOConnection1
    IndexFieldNames = 'fid'
    MasterFields = 'fsjcsid'
    MasterSource = dstemp
    TableName = 'tsjcs'
    Left = 72
    Top = 360
  end
  object tblsjcs2: TADOTable
    Connection = dm.ADOConnection1
    Filter = 'fuse='#39'T'#39
    Filtered = True
    IndexFieldNames = 'fid'
    TableName = 'tsjcs'
    Left = 224
    Top = 40
  end
  object ds_sjcs2: TDataSource
    DataSet = tblsjcs2
    Left = 264
    Top = 44
  end
  object tblsjxh2: TADOTable
    Active = True
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'fsjcs'
    MasterFields = 'fid'
    MasterSource = ds_sjcs2
    TableName = 'tsjxh'
    Left = 424
    Top = 156
  end
  object ds_sjxh2: TDataSource
    DataSet = tblsjxh2
    Left = 456
    Top = 152
  end
end