transactionunit.~dfm

Delphi 编写的"会员销售管理系统",源码全,数据库全,未经测试,请有兴趣的朋友自己测试!

object frm_transaction: Tfrm_transaction
  Left = 248
  Top = 161
  BorderStyle = bsDialog
  Caption = #36141#20080#21830#21697'......'
  ClientHeight = 527
  ClientWidth = 718
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 353
    Height = 169
    Caption = #22635#20889#36141#20080#30340#20449#24687
    TabOrder = 0
    object Label2: TLabel
      Left = 8
      Top = 36
      Width = 60
      Height = 13
      Caption = #20250#21592#32534#21495':   '
    end
    object Label3: TLabel
      Left = 4
      Top = 123
      Width = 72
      Height = 13
      Caption = #32463#25163#20154#32534#21495':   '
    end
    object Label4: TLabel
      Left = 160
      Top = 40
      Width = 60
      Height = 13
      Caption = #36141#20080#25968#37327':   '
    end
    object Label5: TLabel
      Left = 160
      Top = 80
      Width = 63
      Height = 13
      Caption = #20132#26131#26085#26399':    '
    end
    object Label1: TLabel
      Left = 8
      Top = 80
      Width = 60
      Height = 13
      Caption = #21830#21697#32534#21495':   '
    end
    object memberid: TEdit
      Left = 72
      Top = 36
      Width = 81
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 0
      Text = 'memberid'
      OnDblClick = memberidDblClick
    end
    object employeeid: TEdit
      Left = 80
      Top = 120
      Width = 89
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 1
      Text = 'employeeid'
      OnDblClick = employeeidDblClick
    end
    object buynum: TEdit
      Left = 224
      Top = 40
      Width = 33
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 2
      Text = '0'
    end
    object time: TDateTimePicker
      Left = 224
      Top = 80
      Width = 97
      Height = 21
      Date = 38684.411336805560000000
      Time = 38684.411336805560000000
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 3
    end
    object b_js: TButton
      Left = 184
      Top = 120
      Width = 75
      Height = 25
      Caption = #32467#31639
      TabOrder = 4
      OnClick = b_jsClick
    end
    object b_clear: TButton
      Left = 272
      Top = 120
      Width = 75
      Height = 25
      Caption = #28165#23631
      TabOrder = 5
      OnClick = b_clearClick
    end
    object UpDown1: TUpDown
      Left = 257
      Top = 40
      Width = 15
      Height = 21
      Associate = buynum
      TabOrder = 6
    end
    object articleid: TEdit
      Left = 72
      Top = 76
      Width = 81
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 7
      Text = 'articleid'
      OnDblClick = articleidDblClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 536
    Top = 8
    Width = 169
    Height = 169
    Caption = #20132#26131#26126#32454
    TabOrder = 1
    object Label6: TLabel
      Left = 23
      Top = 24
      Width = 60
      Height = 13
      Caption = #21830#21697#21517#31216#65306
    end
    object articleName: TLabel
      Left = 88
      Top = 24
      Width = 56
      Height = 13
      Caption = 'articleName'
    end
    object employeeName: TLabel
      Left = 88
      Top = 48
      Width = 73
      Height = 13
      Caption = 'employeeName'
    end
    object Label12: TLabel
      Left = 23
      Top = 72
      Width = 60
      Height = 13
      Caption = #21830#21697#37329#39069#65306
    end
    object payment: TLabel
      Left = 88
      Top = 72
      Width = 40
      Height = 13
      Caption = 'payment'
    end
    object Label14: TLabel
      Left = 23
      Top = 96
      Width = 60
      Height = 13
      Caption = #20248#24800#37329#39069#65306
    end
    object discount: TLabel
      Left = 88
      Top = 96
      Width = 40
      Height = 13
      Caption = 'discount'
    end
    object Label16: TLabel
      Left = 23
      Top = 120
      Width = 60
      Height = 13
      Caption = #24212#20184#37329#39069#65306
    end
    object needPay: TLabel
      Left = 88
      Top = 120
      Width = 42
      Height = 13
      Caption = 'needPay'
    end
    object Label7: TLabel
      Left = 35
      Top = 48
      Width = 48
      Height = 13
      Caption = #32463#25163#20154#65306
    end
  end
  object GroupBox3: TGroupBox
    Left = 368
    Top = 8
    Width = 169
    Height = 169
    Caption = #20250#21592#36164#26009
    TabOrder = 2
    object Label8: TLabel
      Left = 24
      Top = 24
      Width = 63
      Height = 13
      Caption = #22995'         '#21517#65306
    end
    object memberName: TLabel
      Left = 96
      Top = 24
      Width = 65
      Height = 13
      Caption = 'memberName'
    end
    object Label18: TLabel
      Left = 24
      Top = 48
      Width = 60
      Height = 13
      Caption = #36164#37329#32467#20313#65306
    end
    object balance: TLabel
      Left = 96
      Top = 48
      Width = 38
      Height = 13
      Caption = 'balance'
    end
    object Label20: TLabel
      Left = 24
      Top = 72
      Width = 60
      Height = 13
      Caption = #27424#27454#37329#39069#65306
    end
    object deficiency: TLabel
      Left = 96
      Top = 72
      Width = 48
      Height = 13
      Caption = 'deficiency'
    end
    object Label22: TLabel
      Left = 24
      Top = 96
      Width = 60
      Height = 13
      Caption = #20250#21592#28857#25968#65306
    end
    object dot: TLabel
      Left = 96
      Top = 96
      Width = 15
      Height = 13
      Caption = 'dot'
    end
    object Label24: TLabel
      Left = 24
      Top = 120
      Width = 60
      Height = 13
      Caption = #20250#21592#32423#21035#65306
    end
    object level: TLabel
      Left = 96
      Top = 120
      Width = 22
      Height = 13
      Caption = 'level'
    end
  end
  object DBGrid2: TDBGrid
    Left = 16
    Top = 184
    Width = 689
    Height = 241
    DataSource = ds_jiaoyi
    ImeName = #26497#21697#20116#31508#36755#20837#27861
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object aidname: TPanel
    Left = 224
    Top = 312
    Width = 233
    Height = 265
    Caption = 'midname'
    TabOrder = 4
    Visible = False
    object DBGrid3: TDBGrid
      Left = 17
      Top = 9
      Width = 231
      Height = 263
      Color = clAppWorkSpace
      DataSource = ds_article1
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid3DblClick
      Columns = <
        item
          Expanded = False
          FieldName = #21830#21697#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21830#21697#22995#21517
          Visible = True
        end>
    end
  end
  object midname: TPanel
    Left = 461
    Top = 310
    Width = 233
    Height = 265
    Caption = 'midname'
    TabOrder = 5
    Visible = False
    object DBGrid1: TDBGrid
      Left = 9
      Top = 17
      Width = 231
      Height = 263
      Color = clAppWorkSpace
      DataSource = ds_member1
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = #20250#21592#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20250#21592#22995#21517
          Visible = True
        end>
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=hxms'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 152
  end
  object ds_jiaoyi: TDataSource
    DataSet = q_jiaoyi
    Top = 208
  end
  object q_jiaoyi: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select j.'#20250#21592#32534#21495',m.'#20250#21592#22995#21517',j.'#21830#21697#32534#21495',a.'#21830#21697#22995#21517',j.'#21592#24037#32534#21495',e.'#21592#24037#22995#21517',j.'#26085#26399',j.'#25968#37327',j.'#37329#39069
      'from member as m,employee as e,foods as a,mytransaction as j'
      'where j.'#20250#21592#32534#21495'=m.'#20250#21592#32534#21495' and j.'#21830#21697#32534#21495'=a.'#21830#21697#32534#21495' and j.'#21592#24037#32534#21495'=e.'#21592#24037#32534#21495)
    Top = 184
  end
  object t_article1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'foods'
    Top = 80
  end
  object t_member1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'member'
    Left = 65528
    Top = 40
  end
  object ds_article1: TDataSource
    DataSet = t_article1
    Top = 96
  end
  object ds_member1: TDataSource
    DataSet = t_member1
    Top = 8
  end
  object t_transaction: TADOTable
    Connection = ADOConnection1
    TableName = 'mytransaction'
    Left = 208
  end
  object t_discount: TADOTable
    Connection = ADOConnection1
    TableName = 'discount'
    Left = 120
  end
end