utpickstoreform.dfm

DELPHI DFM资源文件内码批量转换程序

inherited PickStoreForm: TPickStoreForm
  Left = 198
  Top = 167
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #36873#25321#20179#24211
  ClientHeight = 257
  ClientWidth = 471
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 12
    Width = 60
    Height = 12
    Caption = #20179#24211#32534#21495#65306
  end
  object Label2: TLabel
    Left = 198
    Top = 11
    Width = 60
    Height = 12
    Caption = #20179#24211#21517#31216#65306
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 35
    Width = 371
    Height = 215
    DataSource = dsStore
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'Terminal'
    TitleFont.Style = []
    OnDblClick = btnOkClick
    Columns = <
      item
        Expanded = False
        FieldName = 'CODE'
        Title.Alignment = taCenter
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Alignment = taCenter
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LOCATION'
        Title.Alignment = taCenter
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'REMARK'
        Title.Alignment = taCenter
        Width = 120
        Visible = True
      end>
  end
  object btnOk: TButton
    Left = 388
    Top = 6
    Width = 75
    Height = 21
    Caption = #30830#23450
    Default = True
    TabOrder = 3
    OnClick = btnOkClick
  end
  object btnCancel: TButton
    Left = 388
    Top = 33
    Width = 75
    Height = 21
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 4
  end
  object Edit1: TEdit
    Left = 65
    Top = 7
    Width = 121
    Height = 20
    TabOrder = 0
    OnChange = Edit2Change
  end
  object Edit2: TEdit
    Left = 255
    Top = 7
    Width = 123
    Height = 20
    TabOrder = 1
    OnChange = Edit2Change
  end
  object qryStore: TClientQuery
    Connection = StartupDB.DBStartup
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from L_Store where 1=1 and (shopid is null or shopid=0)')
    Left = 391
    Top = 64
    object qryStoreSTOREID: TIntegerField
      FieldName = 'STOREID'
      Origin = 'L_STORE.STOREID'
      Required = True
    end
    object qryStoreCODE: TStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'CODE'
      Origin = 'L_STORE.CODE'
      Required = True
      Size = 32
    end
    object qryStoreNAME: TStringField
      DisplayLabel = #20179#24211#21517#31216
      FieldName = 'NAME'
      Origin = 'L_STORE.NAME'
      Required = True
      Size = 64
    end
    object qryStoreLOCATION: TStringField
      DisplayLabel = #20301#32622
      FieldName = 'LOCATION'
      Origin = 'L_STORE.LOCATION'
      Size = 64
    end
    object qryStoreREMARK: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'REMARK'
      Origin = 'L_STORE.REMARK'
      Size = 255
    end
    object qryStoreUPFLAG: TIntegerField
      FieldName = 'UPFLAG'
      Origin = 'L_STORE.UPFLAG'
    end
  end
  object dsStore: TDataSource
    DataSet = qryStore
    Left = 392
    Top = 111
  end
end