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

百货/超市行业

开发平台:

Delphi

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