saleunit.dfm
上传用户:bjkrmsxy
上传日期:2010-01-31
资源大小:9004k
文件大小:11k
源码类别:

百货/超市行业

开发平台:

Delphi

  1. object Sale_Form: TSale_Form
  2.   Left = -11
  3.   Top = -8
  4.   Align = alClient
  5.   BorderStyle = bsNone
  6.   Caption = #25910#38134#21488
  7.   ClientHeight = 714
  8.   ClientWidth = 1028
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = False
  16.   PopupMenu = PopupMenu1
  17.   OnActivate = FormActivate
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Panel1: TPanel
  21.     Left = 0
  22.     Top = 0
  23.     Width = 1028
  24.     Height = 57
  25.     Align = alTop
  26.     TabOrder = 0
  27.     object Label1: TLabel
  28.       Left = 208
  29.       Top = 24
  30.       Width = 42
  31.       Height = 13
  32.       Caption = #26465#24418#30721
  33.       Font.Charset = ANSI_CHARSET
  34.       Font.Color = clWindowText
  35.       Font.Height = -13
  36.       Font.Name = #23435#20307
  37.       Font.Style = [fsBold]
  38.       ParentFont = False
  39.     end
  40.     object Label2: TLabel
  41.       Left = 456
  42.       Top = 24
  43.       Width = 56
  44.       Height = 13
  45.       Caption = #21830#21697#21517#31216
  46.       Font.Charset = ANSI_CHARSET
  47.       Font.Color = clWindowText
  48.       Font.Height = -13
  49.       Font.Name = #23435#20307
  50.       Font.Style = [fsBold]
  51.       ParentFont = False
  52.     end
  53.     object Edit1: TEdit
  54.       Left = 272
  55.       Top = 24
  56.       Width = 121
  57.       Height = 21
  58.       ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
  59.       TabOrder = 0
  60.     end
  61.     object Button1: TButton
  62.       Left = 656
  63.       Top = 24
  64.       Width = 75
  65.       Height = 25
  66.       Caption = #25552#20132
  67.       TabOrder = 2
  68.       TabStop = False
  69.       Visible = False
  70.       OnClick = Button1Click
  71.     end
  72.     object Button2: TButton
  73.       Left = 752
  74.       Top = 24
  75.       Width = 75
  76.       Height = 25
  77.       Caption = #32467#31639
  78.       TabOrder = 3
  79.       TabStop = False
  80.       Visible = False
  81.       OnClick = Button2Click
  82.     end
  83.     object Button3: TButton
  84.       Left = 936
  85.       Top = 24
  86.       Width = 75
  87.       Height = 25
  88.       Caption = #31163#24320
  89.       TabOrder = 4
  90.       TabStop = False
  91.       Visible = False
  92.       OnClick = Button3Click
  93.     end
  94.     object Edit2: TEdit
  95.       Left = 544
  96.       Top = 24
  97.       Width = 121
  98.       Height = 21
  99.       ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
  100.       TabOrder = 1
  101.     end
  102.     object Button6: TButton
  103.       Left = 848
  104.       Top = 24
  105.       Width = 75
  106.       Height = 25
  107.       Caption = #21024#38500#20840#37096
  108.       TabOrder = 5
  109.       Visible = False
  110.       OnClick = Button6Click
  111.     end
  112.   end
  113.   object DBGrid1: TDBGrid
  114.     Left = 0
  115.     Top = 57
  116.     Width = 1028
  117.     Height = 508
  118.     TabStop = False
  119.     Align = alClient
  120.     Color = clInfoBk
  121.     DataSource = DataSource1
  122.     Font.Charset = GB2312_CHARSET
  123.     Font.Color = clBlue
  124.     Font.Height = -15
  125.     Font.Name = #23435#20307
  126.     Font.Style = [fsBold]
  127.     ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
  128.     ParentFont = False
  129.     ReadOnly = True
  130.     TabOrder = 2
  131.     TitleFont.Charset = DEFAULT_CHARSET
  132.     TitleFont.Color = clWindowText
  133.     TitleFont.Height = -11
  134.     TitleFont.Name = 'MS Sans Serif'
  135.     TitleFont.Style = []
  136.     Columns = <
  137.       item
  138.         Expanded = False
  139.         FieldName = 's_p_id'
  140.         Font.Charset = ANSI_CHARSET
  141.         Font.Color = clBlue
  142.         Font.Height = -15
  143.         Font.Name = #23435#20307
  144.         Font.Style = [fsBold]
  145.         Title.Caption = #26465#24418#30721
  146.         Width = 175
  147.         Visible = True
  148.       end
  149.       item
  150.         Expanded = False
  151.         FieldName = 's_p_name'
  152.         Font.Charset = ANSI_CHARSET
  153.         Font.Color = clBlue
  154.         Font.Height = -15
  155.         Font.Name = #23435#20307
  156.         Font.Style = [fsBold]
  157.         Title.Caption = #21830#21697#21517#31216
  158.         Width = 220
  159.         Visible = True
  160.       end
  161.       item
  162.         Expanded = False
  163.         FieldName = 's_p_price'
  164.         Font.Charset = ANSI_CHARSET
  165.         Font.Color = clBlue
  166.         Font.Height = -15
  167.         Font.Name = #23435#20307
  168.         Font.Style = [fsBold]
  169.         Title.Caption = #24212#20184#37329#39069#65288#21333#20301#65306#20803#65289
  170.         Width = 255
  171.         Visible = True
  172.       end
  173.       item
  174.         Expanded = False
  175.         FieldName = 's_p_unit'
  176.         Font.Charset = ANSI_CHARSET
  177.         Font.Color = clBlue
  178.         Font.Height = -15
  179.         Font.Name = #23435#20307
  180.         Font.Style = [fsBold]
  181.         Title.Caption = #21333#20301
  182.         Width = 126
  183.         Visible = True
  184.       end
  185.       item
  186.         Expanded = False
  187.         FieldName = 's_p_left'
  188.         Font.Charset = ANSI_CHARSET
  189.         Font.Color = clBlue
  190.         Font.Height = -15
  191.         Font.Name = #23435#20307
  192.         Font.Style = [fsBold]
  193.         Title.Caption = #24211#23384#37327
  194.         Width = 152
  195.         Visible = True
  196.       end>
  197.   end
  198.   object StatusBar1: TStatusBar
  199.     Left = 0
  200.     Top = 677
  201.     Width = 1028
  202.     Height = 37
  203.     Enabled = False
  204.     Panels = <
  205.       item
  206.         Text = #25910#38134#21592#65306
  207.         Width = 200
  208.       end
  209.       item
  210.         Text = #24110#21161#65306'F1'
  211.         Width = 120
  212.       end
  213.       item
  214.         Text = #25552#20132#65306'F2'
  215.         Width = 120
  216.       end
  217.       item
  218.         Text = #32467#31639#65306'F3'
  219.         Width = 120
  220.       end
  221.       item
  222.         Text = #21024#38500#20840#37096#65306'Del'
  223.         Width = 120
  224.       end
  225.       item
  226.         Text = #31163#24320#65306'Esc'
  227.         Width = 120
  228.       end
  229.       item
  230.         Text = #31995#32479#26102#38388#65306
  231.         Width = 120
  232.       end>
  233.   end
  234.   object RichEdit1: TRichEdit
  235.     Left = 0
  236.     Top = 565
  237.     Width = 1028
  238.     Height = 112
  239.     TabStop = False
  240.     Align = alBottom
  241.     Color = clMenuText
  242.     Font.Charset = GB2312_CHARSET
  243.     Font.Color = clRed
  244.     Font.Height = -32
  245.     Font.Name = 'MS Sans Serif'
  246.     Font.Style = [fsBold]
  247.     ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
  248.     Lines.Strings = (
  249.       #12288#12288#12288#12288#27426#36814#24744#26469#21040#19975#23478#31119)
  250.     ParentFont = False
  251.     ReadOnly = True
  252.     TabOrder = 3
  253.   end
  254.   object Panel2: TPanel
  255.     Left = 368
  256.     Top = 232
  257.     Width = 273
  258.     Height = 233
  259.     TabOrder = 4
  260.     Visible = False
  261.     object GroupBox1: TGroupBox
  262.       Left = 16
  263.       Top = 8
  264.       Width = 241
  265.       Height = 217
  266.       TabOrder = 0
  267.       object Label3: TLabel
  268.         Left = 16
  269.         Top = 120
  270.         Width = 68
  271.         Height = 15
  272.         Caption = #24212#25910#37329#39069
  273.         Font.Charset = GB2312_CHARSET
  274.         Font.Color = clRed
  275.         Font.Height = -15
  276.         Font.Name = #26999#20307'_GB2312'
  277.         Font.Style = [fsBold]
  278.         ParentFont = False
  279.       end
  280.       object Label4: TLabel
  281.         Left = 16
  282.         Top = 48
  283.         Width = 68
  284.         Height = 15
  285.         Caption = #23454#25910#37329#39069
  286.         Font.Charset = GB2312_CHARSET
  287.         Font.Color = clRed
  288.         Font.Height = -15
  289.         Font.Name = #26999#20307'_GB2312'
  290.         Font.Style = [fsBold]
  291.         ParentFont = False
  292.       end
  293.       object Label5: TLabel
  294.         Left = 192
  295.         Top = 120
  296.         Width = 17
  297.         Height = 15
  298.         Caption = #20803
  299.         Font.Charset = GB2312_CHARSET
  300.         Font.Color = clRed
  301.         Font.Height = -15
  302.         Font.Name = #26999#20307'_GB2312'
  303.         Font.Style = [fsBold]
  304.         ParentFont = False
  305.       end
  306.       object Label6: TLabel
  307.         Left = 192
  308.         Top = 48
  309.         Width = 17
  310.         Height = 15
  311.         Caption = #20803
  312.         Font.Charset = GB2312_CHARSET
  313.         Font.Color = clRed
  314.         Font.Height = -15
  315.         Font.Name = #26999#20307'_GB2312'
  316.         Font.Style = [fsBold]
  317.         ParentFont = False
  318.       end
  319.       object Button4: TButton
  320.         Left = 16
  321.         Top = 168
  322.         Width = 81
  323.         Height = 33
  324.         Caption = #25552#20132
  325.         Font.Charset = DEFAULT_CHARSET
  326.         Font.Color = clWindowText
  327.         Font.Height = -11
  328.         Font.Name = 'MS Sans Serif'
  329.         Font.Style = [fsBold]
  330.         ParentFont = False
  331.         TabOrder = 1
  332.         OnClick = Button4Click
  333.       end
  334.       object Edit4: TEdit
  335.         Left = 96
  336.         Top = 24
  337.         Width = 89
  338.         Height = 24
  339.         Font.Charset = GB2312_CHARSET
  340.         Font.Color = clBlue
  341.         Font.Height = -16
  342.         Font.Name = #38582#20070
  343.         Font.Style = [fsBold]
  344.         ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
  345.         ParentFont = False
  346.         TabOrder = 0
  347.       end
  348.       object Edit3: TEdit
  349.         Left = 96
  350.         Top = 104
  351.         Width = 89
  352.         Height = 24
  353.         TabStop = False
  354.         Font.Charset = GB2312_CHARSET
  355.         Font.Color = clBlue
  356.         Font.Height = -16
  357.         Font.Name = #38582#20070
  358.         Font.Style = [fsBold]
  359.         ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
  360.         ParentFont = False
  361.         ReadOnly = True
  362.         TabOrder = 2
  363.       end
  364.       object Button5: TButton
  365.         Left = 128
  366.         Top = 168
  367.         Width = 81
  368.         Height = 33
  369.         Caption = #21462#28040
  370.         TabOrder = 3
  371.         OnClick = Button5Click
  372.       end
  373.     end
  374.   end
  375.   object DataSource1: TDataSource
  376.     DataSet = ADOQuery2
  377.     Left = 72
  378.     Top = 8
  379.   end
  380.   object ADOQuery1: TADOQuery
  381.     Connection = DataModule1.ADOConnection1
  382.     CursorType = ctStatic
  383.     Parameters = <>
  384.     SQL.Strings = (
  385.       'select * from produce_t')
  386.     Left = 40
  387.     Top = 8
  388.     object ADOQuery1id: TAutoIncField
  389.       FieldName = 'id'
  390.       ReadOnly = True
  391.     end
  392.     object ADOQuery1p_id: TSmallintField
  393.       FieldName = 'p_id'
  394.     end
  395.     object ADOQuery1p_name: TWideStringField
  396.       FieldName = 'p_name'
  397.       Size = 50
  398.     end
  399.     object ADOQuery1p_price: TBCDField
  400.       FieldName = 'p_price'
  401.       Precision = 19
  402.     end
  403.     object ADOQuery1p_unit: TWideStringField
  404.       FieldName = 'p_unit'
  405.       Size = 50
  406.     end
  407.     object ADOQuery1p_type: TSmallintField
  408.       FieldName = 'p_type'
  409.     end
  410.     object ADOQuery1p_store: TSmallintField
  411.       FieldName = 'p_store'
  412.     end
  413.     object ADOQuery1p_time: TDateTimeField
  414.       FieldName = 'p_time'
  415.     end
  416.     object ADOQuery1p_sale: TSmallintField
  417.       FieldName = 'p_sale'
  418.     end
  419.   end
  420.   object ADOQuery2: TADOQuery
  421.     Connection = DataModule1.ADOConnection1
  422.     CursorType = ctStatic
  423.     Parameters = <>
  424.     SQL.Strings = (
  425.       'select * from sell_t')
  426.     Left = 8
  427.     Top = 8
  428.   end
  429.   object PopupMenu1: TPopupMenu
  430.     Left = 736
  431.     Top = 24
  432.     object N1: TMenuItem
  433.       Caption = #25552#20132
  434.       ShortCut = 113
  435.       OnClick = Button1Click
  436.     end
  437.     object N2: TMenuItem
  438.       Caption = #32467#31639
  439.       ShortCut = 114
  440.       OnClick = Button2Click
  441.     end
  442.     object N3: TMenuItem
  443.       Caption = #36864#20986
  444.       ShortCut = 27
  445.       OnClick = Button3Click
  446.     end
  447.     object N4: TMenuItem
  448.       Caption = #21024#38500#20840#37096
  449.       ShortCut = 46
  450.       OnClick = Button6Click
  451.     end
  452.     object N5: TMenuItem
  453.       Caption = #24110#21161
  454.       ShortCut = 112
  455.       OnClick = N5Click
  456.     end
  457.   end
  458.   object ADOTable1: TADOTable
  459.     Connection = DataModule1.ADOConnection1
  460.     CursorType = ctStatic
  461.     TableName = 'sell_back_t'
  462.     Left = 8
  463.     Top = 40
  464.   end
  465.   object Timer1: TTimer
  466.     OnTimer = Timer1Timer
  467.     Left = 208
  468.     Top = 136
  469.   end
  470. end