📄 udmpublish.dfm

📁 一个功能较全的图书进销存软件,功能还算完备
💻 DFM
📖 第 1 页 / 共 2 页
字号:
12 下一页
object dmpublish: Tdmpublish
  OldCreateOrder = False
  Left = 470
  Top = 175
  Height = 305
  Width = 258
  object adsJh: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from PUBLISH_STORAGE_IN where STATUS='#39'1'#39
    Parameters = <>
    Left = 32
    Top = 80
    object adsJhOPERATE_ORDER: TStringField
      DisplayLabel = #25805#20316#27969#27700#21495
      DisplayWidth = 13
      FieldName = 'OPERATE_ORDER'
    end
    object adsJhBOOK_CODE: TStringField
      DisplayLabel = #26631#20934#21495
      DisplayWidth = 20
      FieldName = 'BOOK_CODE'
      Size = 100
    end
    object adsJhCN_NAME: TStringField
      DisplayLabel = #20070#31821#21517#31216
      DisplayWidth = 20
      FieldName = 'CN_NAME'
      Size = 255
    end
    object adsJhEN_NAME: TStringField
      DisplayLabel = #20070#31821#33521#25991#21517
      DisplayWidth = 20
      FieldName = 'EN_NAME'
      Size = 255
    end
    object adsJhBOOK_BARCODE: TStringField
      DisplayLabel = #26465#24418#30721
      DisplayWidth = 20
      FieldName = 'BOOK_BARCODE'
      Size = 50
    end
    object adsJhISBN_CODE: TStringField
      DisplayLabel = 'ISBN'
      DisplayWidth = 20
      FieldName = 'ISBN_CODE'
      Size = 50
    end
    object adsJhGET_ID: TStringField
      DisplayLabel = #32034#21462#21495
      DisplayWidth = 20
      FieldName = 'GET_ID'
      Size = 50
    end
    object adsJhSHOW_PRICE: TBCDField
      DisplayLabel = #26631#20215
      DisplayWidth = 10
      FieldName = 'SHOW_PRICE'
      Precision = 18
      Size = 2
    end
    object adsJhIN_PRICE: TBCDField
      DisplayLabel = #36827#20215
      DisplayWidth = 10
      FieldName = 'IN_PRICE'
      Precision = 18
      Size = 2
    end
    object adsJhQUANTITY: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'QUANTITY'
    end
    object adsJhALERT_QUANTITY: TIntegerField
      DisplayLabel = #39044#35686#25968#37327
      FieldName = 'ALERT_QUANTITY'
    end
    object adsJhPAGES: TIntegerField
      DisplayLabel = #39029#25968
      FieldName = 'PAGES'
    end
    object adsJhSUPPLIER_ID: TIntegerField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'SUPPLIER_ID'
    end
    object adsJhOPERATOR: TStringField
      DisplayLabel = #25805#20316#20154#21592
      DisplayWidth = 10
      FieldName = 'OPERATOR'
    end
    object adsJhOPERATE_DATE: TStringField
      DisplayLabel = #25805#20316#26085#26399
      DisplayWidth = 10
      FieldName = 'OPERATE_DATE'
      FixedChar = True
      Size = 19
    end
    object adsJhSTATUS2: TStringField
      DisplayLabel = #26356#26032#29366#24577
      FieldName = 'STATUS2'
      FixedChar = True
      Size = 1
    end
    object adsJhBOOK_TYPE: TStringField
      DisplayLabel = #25991#29486#31867#22411
      FieldName = 'BOOK_TYPE'
      FixedChar = True
    end
    object adsJhMONEY_TYPE: TStringField
      DisplayLabel = #24065#31181
      FieldName = 'MONEY_TYPE'
      FixedChar = True
      Size = 50
    end
    object adsJhZAITI: TStringField
      DisplayLabel = #36733#20307
      FieldName = 'ZAITI'
      FixedChar = True
      Size = 50
    end
    object adsJhSTATUS1: TStringField
      DisplayLabel = #26377#25928#29366#24577
      FieldName = 'STATUS'
      FixedChar = True
      Size = 1
    end
    object adsJhSTATUS3: TStringField
      DisplayLabel = #25805#20316#29366#24577
      FieldName = 'STATUS3'
      FixedChar = True
      Size = 1
    end
  end
  object adsShare: TADODataSet
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 152
  end
  object l_store: TADOStoredProc
    Connection = ADOConnection1
    Parameters = <>
    Left = 104
    Top = 152
  end
  object adsPubBook: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from PUBLISH_BOOK where STATUS='#39'1'#39
    Parameters = <>
    Left = 104
    Top = 80
    object adsPubBookID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object adsPubBookBOOK_TYPE: TStringField
      DisplayLabel = #25991#29486#31867#22411
      FieldName = 'BOOK_TYPE'
      FixedChar = True
    end
    object adsPubBookBOOK_CODE: TStringField
      DisplayLabel = #26631#20934#21495
      DisplayWidth = 20
      FieldName = 'BOOK_CODE'
      Size = 100
    end
    object adsPubBookCN_NAME: TStringField
      DisplayLabel = #20070#31821#21517#31216
      DisplayWidth = 20
      FieldName = 'CN_NAME'
      Size = 255
    end
    object adsPubBookEN_NAME: TStringField
      DisplayLabel = #33521#25991#21517#31216
      DisplayWidth = 20
      FieldName = 'EN_NAME'
      Size = 255
    end
    object adsPubBookISBN_CODE: TStringField
      DisplayLabel = #20070#21495'ISBN'
      DisplayWidth = 20
      FieldName = 'ISBN_CODE'
      Size = 50
    end
    object adsPubBookBOOK_BARCODE: TStringField
      DisplayLabel = #26465#24418#30721
      DisplayWidth = 20
      FieldName = 'BOOK_BARCODE'
      Size = 50
    end
    object adsPubBookGET_ID: TStringField
      DisplayLabel = #32034#21462#21495
      DisplayWidth = 20
      FieldName = 'GET_ID'
      Size = 50
    end
    object adsPubBookDATAFILE_ID: TIntegerField
      DisplayLabel = #25968#25454#25991#20214#24207#21495
      FieldName = 'DATAFILE_ID'
    end
    object adsPubBookZAITI: TStringField
      DisplayLabel = #36733#20307
      DisplayWidth = 20
      FieldName = 'ZAITI'
      FixedChar = True
      Size = 50
    end
    object adsPubBookIN_PRICE: TBCDField
      DisplayLabel = #36827#20215
      DisplayWidth = 10
      FieldName = 'IN_PRICE'
      Precision = 18
      Size = 2
    end
    object adsPubBookSHOW_PRICE: TBCDField
      DisplayLabel = #26631#20215
      DisplayWidth = 10
      FieldName = 'SHOW_PRICE'
      Precision = 18
      Size = 2
    end
    object adsPubBookMONEY_TYPE: TStringField
      DisplayLabel = #24065#31181
      DisplayWidth = 10
      FieldName = 'MONEY_TYPE'
      FixedChar = True
      Size = 50
    end
    object adsPubBookPAGES: TIntegerField
      DisplayLabel = #39029#25968
      FieldName = 'PAGES'
    end
    object adsPubBookSTORE_QUANTITY: TIntegerField
      DisplayLabel = #39302#34255#25968#37327
      FieldName = 'STORE_QUANTITY'
    end
    object adsPubBookSTORE_INFO: TStringField
      DisplayLabel = #39302#34255#20449#24687
      DisplayWidth = 20
      FieldName = 'STORE_INFO'
      Size = 255
    end
    object adsPubBookALERT_QUANTITY: TIntegerField
      DisplayLabel = #39044#35686#25968#37327
      FieldName = 'ALERT_QUANTITY'
    end
    object adsPubBookSUPPLIER_ID: TIntegerField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'SUPPLIER_ID'
    end
    object adsPubBookOPERATOR: TStringField
      DisplayLabel = #25805#20316#20154#21592
      FieldName = 'OPERATOR'
    end
    object adsPubBookOPERATE_DATE: TStringField
      DisplayLabel = #25805#20316#26102#38388
      FieldName = 'OPERATE_DATE'
      FixedChar = True
      Size = 10
    end
    object adsPubBookSTATUS: TStringField
      DisplayLabel = #26377#25928#24615
      FieldName = 'STATUS'
      FixedChar = True
      Size = 1
    end
  end
  object q_share: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 176
    Top = 152
  end
  object adsAlert: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'select * from PUBLISH_BOOK where STATUS='#39'1'#39' and Store_quantity<=' +
      'Alert_quantity'
    Parameters = <>
    Left = 112
    Top = 16
    object AutoIncField1: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object StringField12: TStringField
      DisplayLabel = #25991#29486#31867#22411
      FieldName = 'BOOK_TYPE'
      FixedChar = True
    end
    object StringField13: TStringField
      DisplayLabel = #26631#20934#21495
      DisplayWidth = 20
      FieldName = 'BOOK_CODE'
      Size = 100
    end
    object StringField14: TStringField
      DisplayLabel = #20070#31821#21517#31216
      DisplayWidth = 20
      FieldName = 'CN_NAME'
      Size = 255
    end
    object StringField15: TStringField
      DisplayLabel = #33521#25991#21517#31216
      DisplayWidth = 20
      FieldName = 'EN_NAME'
      Size = 255
    end
    object StringField16: TStringField
      DisplayLabel = #20070#21495'ISBN'
      DisplayWidth = 20
      FieldName = 'ISBN_CODE'
      Size = 50
    end
    object StringField17: TStringField
      DisplayLabel = #26465#24418#30721
      DisplayWidth = 20
      FieldName = 'BOOK_BARCODE'
      Size = 50
    end
    object StringField18: TStringField
      DisplayLabel = #32034#21462#21495
      DisplayWidth = 20
      FieldName = 'GET_ID'
      Size = 50
    end
    object IntegerField4: TIntegerField
      DisplayLabel = #25968#25454#25991#20214#24207#21495
      FieldName = 'DATAFILE_ID'
    end
    object StringField19: TStringField
      DisplayLabel = #36733#20307
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -