hwdb.dfm

药品进销存系统 delphi V6开发,入门级参考源代码

    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 246
    Width = 768
    Height = 37
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 4
    object Label5: TLabel
      Left = 254
      Top = 13
      Width = 56
      Height = 14
      Caption = '物品编码'
    end
    object Label4: TLabel
      Left = 456
      Top = 13
      Width = 42
      Height = 14
      Caption = '数  量'
    end
    object Label1: TLabel
      Left = 24
      Top = 13
      Width = 56
      Height = 14
      Caption = '选择仓库'
    end
    object Edit_bm: TEdit
      Left = 326
      Top = 7
      Width = 115
      Height = 22
      ImeMode = imAlpha
      TabOrder = 0
      OnChange = Edit_bmChange
      OnKeyPress = Edit_bmKeyPress
    end
    object Edit_sl: TEdit
      Left = 518
      Top = 7
      Width = 115
      Height = 22
      ImeMode = imAlpha
      TabOrder = 1
      OnKeyPress = Edit_slKeyPress
    end
    object ComboBox1: TComboBox
      Left = 96
      Top = 7
      Width = 129
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 3
      OnChange = ComboBox1Change
    end
    object BitBtn4: TBitBtn
      Left = 664
      Top = 6
      Width = 75
      Height = 25
      Caption = '&X添加'
      TabOrder = 2
      OnClick = BitBtn4Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      NumGlyphs = 2
    end
  end
  object DateTimePicker2: TDateTimePicker
    Left = 496
    Top = 32
    Width = 129
    Height = 20
    CalAlignment = dtaLeft
    CalColors.BackColor = 100
    CalColors.TitleBackColor = 100
    Date = 37107.6377033565
    Time = 37107.6377033565
    DateFormat = dfLong
    DateMode = dmComboBox
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Kind = dtkDate
    ParseInput = False
    ParentFont = False
    TabOrder = 5
  end
  object DataSource_tmp: TDataSource
    DataSet = tmp_Table
    Left = 120
    Top = 296
  end
  object tmp_Table: TTable
    Left = 152
    Top = 296
  end
  object tmp_Query: TQuery
    OnCalcFields = tmp_QueryCalcFields
    RequestLive = True
    Left = 208
    Top = 296
    object tmp_Querypm: TStringField
      FieldName = 'pm'
    end
    object tmp_Querycd: TStringField
      FieldName = 'cd'
    end
    object tmp_Querygg: TStringField
      FieldName = 'gg'
      Size = 10
    end
    object tmp_Querydw: TStringField
      FieldName = 'dw'
      Size = 4
    end
    object tmp_Queryjj: TFloatField
      FieldName = 'jj'
    end
    object tmp_Queryph: TStringField
      FieldName = 'ph'
    end
    object tmp_Querydbsl: TFloatField
      FieldName = 'dbsl'
    end
    object tmp_Queryje: TFloatField
      FieldName = 'je'
    end
    object tmp_Querypzwh: TStringField
      FieldName = 'pzwh'
      Size = 40
    end
    object tmp_Queryyxq: TFloatField
      FieldName = 'yxq'
    end
    object tmp_Queryjs: TFloatField
      FieldName = 'js'
    end
    object tmp_Queryck_bh: TStringField
      FieldName = 'ck_bh'
      Required = True
      Size = 1
    end
    object tmp_Queryhsj: TFloatField
      FieldKind = fkCalculated
      FieldName = 'hsj'
      DisplayFormat = '#,##0.00'
      Calculated = True
    end
  end
  object Query_sum: TQuery
    Left = 272
    Top = 304
  end
  object Query_db: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 472
    Top = 112
    object Query_dbdb_bh: TStringField
      FieldName = 'db_bh'
      Origin = 'YYGL.dbxxb.db_bh'
      Size = 22
    end
    object Query_dbcd: TStringField
      FieldName = 'cd'
      Origin = 'YYGL.dbxxb.cd'
    end
    object Query_dbpm: TStringField
      FieldName = 'pm'
      Origin = 'YYGL.dbxxb.pm'
    end
    object Query_dbgg: TStringField
      FieldName = 'gg'
      Origin = 'YYGL.dbxxb.gg'
      Size = 10
    end
    object Query_dbdw2: TStringField
      FieldName = 'dw'
      Origin = 'YYGL.dbxxb.dw'
      Size = 4
    end
    object Query_dbph: TStringField
      FieldName = 'ph'
      Origin = 'YYGL.dbxxb.ph'
    end
    object Query_dbjj: TFloatField
      FieldName = 'jj'
      Origin = 'YYGL.dbxxb.jj'
    end
    object Query_dbdbsl: TFloatField
      FieldName = 'dbsl'
      Origin = 'YYGL.dbxxb.dbsl'
    end
    object Query_dbje: TFloatField
      FieldName = 'je'
      Origin = 'YYGL.dbxxb.je'
    end
    object Query_dbdbrq: TDateTimeField
      FieldName = 'dbrq'
      Origin = 'YYGL.dbxxb.dbrq'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object Query_dbdbdw: TStringField
      FieldName = 'dbdw'
      Origin = 'YYGL.dbxxb.dbdw'
    end
    object Query_dbfpph: TStringField
      FieldName = 'fpph'
      Origin = 'YYGL.dbxxb.fpph'
      Size = 14
    end
    object Query_dbck_bh: TStringField
      FieldName = 'ck_bh'
      Origin = 'YYGL.dbxxb.ck_bh'
      Size = 1
    end
    object Query_dbwp_bm: TStringField
      FieldName = 'wp_bm'
      Origin = 'YYGL.dbxxb.wp_bm'
      Size = 5
    end
    object Query_dbpzwh: TStringField
      FieldName = 'pzwh'
      Origin = 'YYGL.dbxxb.pzwh'
      Size = 40
    end
    object Query_dbyxq: TFloatField
      FieldName = 'yxq'
      Origin = 'YYGL.dbxxb.yxq'
    end
  end
  object Query_kc: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 208
    Top = 112
  end
  object DataSource_kc: TDataSource
    DataSet = Query_kc
    Left = 288
    Top = 120
  end
  object Query_ckxx: TQuery
    DatabaseName = 'yygl'
    RequestLive = True
    Left = 160
    Top = 184
  end
  object Database: TDatabase
    AliasName = 'yygl'
    Connected = True
    DatabaseName = 'yygl'
    LoginPrompt = False
    Params.Strings = (
      'user name='#39#39
      'password='#39#39)
    SessionName = 'Default'
    TransIsolation = tiRepeatableRead
    Left = 344
    Top = 88
  end
end