cssz1.dfm

思微POS连锁超市管理系统 (商业代码),几年前的东西了

object cssz: Tcssz
  Left = 369
  Top = 143
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '初始设置'
  ClientHeight = 249
  ClientWidth = 351
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 49
    Top = 210
    Width = 240
    Height = 36
    Caption = 
      '注意：POS机ID号不能与其它收银机重复。'#13#10#13#10'      修改POS机ID号后请' +
      '更新POS销售单号。'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 9
    Top = 8
    Width = 153
    Height = 84
    Caption = 'POS机ID号'
    TabOrder = 0
    object dxDBEdit1: TdxDBEdit
      Left = 16
      Top = 24
      Width = 121
      TabOrder = 0
      DataField = 'posid'
      DataSource = DataSource1
    end
    object wwDBNavigator1: TwwDBNavigator
      Left = 16
      Top = 50
      Width = 120
      Height = 28
      AutosizeStyle = asSizeNavButtons
      DataSource = DataSource1
      Flat = False
      RepeatInterval.InitialDelay = 500
      RepeatInterval.Interval = 100
      object wwDBNavigator1Edit: TwwNavButton
        Left = 0
        Top = 0
        Width = 40
        Height = 28
        Hint = 'Edit current record'
        ImageIndex = 4
        NumGlyphs = 2
        ShowText = True
        Spacing = 4
        Transparent = False
        Caption = '修改&E'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 0
        Style = nbsEdit
      end
      object wwDBNavigator1Post: TwwNavButton
        Left = 40
        Top = 0
        Width = 40
        Height = 28
        Hint = 'Post changes of current record'
        ImageIndex = 8
        NumGlyphs = 2
        ShowText = True
        Spacing = 4
        Transparent = False
        Caption = '保存&S'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 1
        Style = nbsPost
      end
      object wwDBNavigator1Cancel: TwwNavButton
        Left = 80
        Top = 0
        Width = 40
        Height = 28
        Hint = 'Cancel changes made to current record'
        ImageIndex = 10
        NumGlyphs = 2
        ShowText = True
        Spacing = 4
        Transparent = False
        Caption = '取消&C'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 2
        Style = nbsCancel
      end
    end
  end
  object Memo1: TMemo
    Left = 384
    Top = 314
    Width = 153
    Height = 71
    Lines.Strings = (
      'posserver'
      'server'
      'DATABASE NAME=server'
      'SERVER NAME=.'
      'USER NAME=sa'
      'PASSWORD=sa')
    TabOrder = 1
    Visible = False
  end
  object GroupBox2: TGroupBox
    Left = 185
    Top = 8
    Width = 153
    Height = 84
    Caption = 'POS销售单号'
    TabOrder = 2
    object dxDBEdit2: TdxDBEdit
      Left = 16
      Top = 24
      Width = 121
      TabOrder = 0
      DataField = 'xsid'
      DataSource = DataSource2
      ReadOnly = True
      StoredValues = 64
    end
    object BitBtn1: TBitBtn
      Left = 87
      Top = 50
      Width = 50
      Height = 28
      Caption = '更新'
      TabOrder = 1
      OnClick = BitBtn1Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 9
    Top = 104
    Width = 328
    Height = 89
    Caption = '门店档案'
    TabOrder = 3
    object dxDBEdit3: TdxDBEdit
      Left = 16
      Top = 24
      Width = 121
      TabOrder = 0
      DataField = 'code'
      DataSource = DataSource3
      ReadOnly = True
      StoredValues = 64
    end
    object BitBtn2: TBitBtn
      Left = 263
      Top = 17
      Width = 50
      Height = 28
      Caption = '更新'
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object dxDBEdit4: TdxDBEdit
      Left = 16
      Top = 56
      Width = 297
      TabOrder = 2
      DataField = 'name'
      DataSource = DataSource3
      ReadOnly = True
      StoredValues = 64
    end
  end
  object Memo2: TMemo
    Left = 310
    Top = 210
    Width = 177
    Height = 63
    Lines.Strings = (
      'posserver'
      'server'
      'DATABASE NAME=server'
      'SERVER NAME=.'
      'USER NAME=sa'
      'PASSWORD=sa')
    TabOrder = 4
    Visible = False
  end
  object AliasEditor1: TAliasEditor
    Left = 488
    Top = 352
  end
  object Table1: TTable
    AfterPost = Table1AfterPost
    DatabaseName = 'pos'
    TableName = 'dbo.posid'
    Left = 80
    object Table1posid: TStringField
      FieldName = 'posid'
      FixedChar = True
      Size = 10
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 120
  end
  object Table2: TTable
    DatabaseName = 'pos'
    TableName = 'dbo.xsid'
    Left = 248
    object Table2xsid: TStringField
      FieldName = 'xsid'
      Size = 10
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 288
  end
  object Table3: TTable
    DatabaseName = 'pos'
    TableName = 'dbo.mdda'
    Left = 64
    Top = 88
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 104
    Top = 88
  end
  object Table19: TTable
    DatabaseName = 'server'
    TableName = 'dbo.QYDA'
    Left = 160
    Top = 120
    object Table19code: TStringField
      FieldName = 'code'
    end
    object Table19name: TStringField
      FieldName = 'name'
      Size = 200
    end
  end
  object BatchMove10: TBatchMove
    Destination = Table20
    Mode = batCopy
    Source = Table19
    Left = 192
    Top = 120
  end
  object Table20: TTable
    DatabaseName = 'pos'
    FieldDefs = <
      item
        Name = 'code'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'name'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'dz'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'dh'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'cz'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'lxr'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'qylx'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'bz'
        DataType = ftString
        Size = 200
      end>
    StoreDefs = True
    TableName = 'dbo.mdda'
    Left = 224
    Top = 120
  end
  object Query1: TQuery
    DatabaseName = 'server'
    Left = 209
    Top = 64
  end
  object Database1: TDatabase
    AliasName = 'posserver'
    DatabaseName = 'server'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME=lxf'
      'SERVER NAME=.'
      'USER NAME=sa'
      'PASSWORD=sa')
    SessionName = 'Default'
    Left = 168
    Top = 32
  end
end