unit_stock_in.~dfm

学习程序,用于初学进销存的参考代码学习程序,用于初学进销存的参考代码

      Caption = #26126#32454#20449#24687
      ImageIndex = 1
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 836
        Height = 98
        Align = alTop
        Color = clBtnFace
        ParentColor = False
        TabOrder = 0
        object Label19: TLabel
          Left = 9
          Top = 18
          Width = 54
          Height = 12
          Caption = #36827#36135#21333#21495':'
        end
        object Label20: TLabel
          Left = 537
          Top = 42
          Width = 54
          Height = 12
          Caption = #24212#20184#37329#39069':'
        end
        object Label23: TLabel
          Left = 368
          Top = 18
          Width = 54
          Height = 12
          Caption = #23458#25143#21517#31216':'
        end
        object Label24: TLabel
          Left = 191
          Top = 42
          Width = 54
          Height = 12
          Caption = #23454#20184#37329#39069':'
        end
        object Label27: TLabel
          Left = 184
          Top = 18
          Width = 54
          Height = 12
          Caption = #36827#36135#31867#22411':'
        end
        object Label34: TLabel
          Left = 15
          Top = 77
          Width = 30
          Height = 12
          Caption = #22791#27880':'
        end
        object Label1: TLabel
          Left = 369
          Top = 42
          Width = 42
          Height = 12
          Caption = #24405#20837#20154':'
        end
        object Label2: TLabel
          Left = 224
          Top = 74
          Width = 30
          Height = 12
          Caption = #29366#24577':'
          Visible = False
        end
        object Label8: TLabel
          Left = 7
          Top = 42
          Width = 54
          Height = 12
          Caption = #36827#36135#26085#26399':'
        end
        object Cb_InType: TComboBox
          Left = 246
          Top = 10
          Width = 103
          Height = 20
          ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
          ItemHeight = 12
          TabOrder = 0
          Text = #26222#36890#36827#36135
          OnChange = Cb_InTypeChange
          OnEnter = Cb_InTypeEnter
          OnExit = Cb_InTypeExit
        end
        object Cb_CName: TComboBox
          Left = 422
          Top = 10
          Width = 282
          Height = 20
          ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
          ItemHeight = 12
          TabOrder = 1
          Text = 'ComboBox1'
          OnChange = Cb_InTypeChange
          OnEnter = Cb_InTypeEnter
          OnExit = Cb_CNameExit
        end
        object Cb_UserName: TComboBox
          Left = 422
          Top = 34
          Width = 106
          Height = 20
          Color = clSilver
          Enabled = False
          ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
          ItemHeight = 12
          TabOrder = 2
        end
        object Cb_State: TComboBox
          Left = 262
          Top = 66
          Width = 106
          Height = 20
          ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
          ItemHeight = 12
          TabOrder = 3
          Text = #24453#23450
          Visible = False
          Items.Strings = (
            #30830#23450
            #24453#23450)
        end
        object Ed_PayMoeny: TEdit
          Left = 245
          Top = 34
          Width = 103
          Height = 20
          ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
          TabOrder = 4
          Text = '0'
          OnChange = Cb_InTypeChange
          OnEnter = Cb_InTypeEnter
        end
        object Ed_StockNo: TEdit
          Left = 68
          Top = 10
          Width = 109
          Height = 20
          Color = clSilver
          Enabled = False
          ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
          TabOrder = 5
        end
        object Ed_TotalMoney: TEdit
          Left = 596
          Top = 32
          Width = 109
          Height = 20
          Color = clSilver
          Enabled = False
          ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
          TabOrder = 6
          OnChange = Cb_InTypeChange
          OnEnter = Cb_InTypeEnter
        end
        object Memo: TMemo
          Left = 66
          Top = 58
          Width = 637
          Height = 31
          ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
          Lines.Strings = (
            'Memo')
          TabOrder = 7
          OnChange = Cb_InTypeChange
          OnEnter = Cb_InTypeEnter
        end
        object DT_StockDate: TDateTimePicker
          Left = 68
          Top = 33
          Width = 112
          Height = 20
          Date = 38436.000000000000000000
          Time = 38436.000000000000000000
          DateFormat = dfLong
          ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
          TabOrder = 8
          OnChange = Cb_InTypeChange
          OnEnter = Cb_InTypeEnter
        end
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 98
        Width = 836
        Height = 74
        Align = alTop
        Caption = #20135#21697#20449#24687
        TabOrder = 1
        object Label3: TLabel
          Left = 9
          Top = 21
          Width = 54
          Height = 12
          Caption = #20135#21697#31867#22411':'
        end
        object Label4: TLabel
          Left = 7
          Top = 49
          Width = 54
          Height = 12
          Caption = #36827#36135#20215#26684':'
        end
        object Label5: TLabel
          Left = 181
          Top = 20
          Width = 54
          Height = 12
          Caption = #20135#21697#21517#31216':'
        end
        object Label6: TLabel
          Left = 177
          Top = 49
          Width = 54
          Height = 12
          Caption = #36827#36135#25968#37327':'
        end
        object Label7: TLabel
          Left = 387
          Top = 49
          Width = 54
          Height = 12
          Caption = #36827#36135#25240#25187':'
          Visible = False
        end
        object Cb_PType: TComboBox
          Left = 67
          Top = 13
          Width = 110
          Height = 20
          ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
          ItemHeight = 12
          TabOrder = 0
          OnChange = Cb_PTypeChange
        end
        object Cb_PName: TComboBox
          Left = 235
          Top = 13
          Width = 142
          Height = 20
          ImeName = #32418#21494#20116#31508'('#31616#20307#29256')'
          ItemHeight = 12
          TabOrder = 1
          OnChange = Cb_PNameChange
        end
        object Cb_Unit: TComboBox
          Left = 331
          Top = 41
          Width = 46
          Height = 20