zhangdianquery.dfm

小管理程序主要管理的小咖啡厅我是从网上下的经测试可用

object Frmzhangdianquery: TFrmzhangdianquery
  Left = 154
  Top = 152
  Width = 799
  Height = 392
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #24080#21333#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 4
    Top = 52
    Width = 205
    Height = 298
    Caption = #20256#31080#21015#34920
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 6
      Top = 15
      Width = 187
      Height = 274
      DataSource = QueryMastDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'chuanbiaohao'
          Title.Alignment = taCenter
          Title.Caption = #25163#24037#20256#31080#21495
          Width = 178
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 213
    Top = 52
    Width = 572
    Height = 298
    Caption = #25152#28857#33756#21697#21015#34920
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 6
      Top = 16
      Width = 555
      Height = 275
      DataSource = QueryDetailDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Caipinid'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipinname'
          Title.Alignment = taCenter
          Title.Caption = #33756#21697#21517#31216
          Width = 140
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipincount'
          Title.Alignment = taCenter
          Title.Caption = #25968#37327
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipinunit'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'caipinprice'
          Title.Alignment = taCenter
          Title.Caption = #20215#26684
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'dianliexing'
          Title.Alignment = taCenter
          Title.Caption = #33756#21697#31867#21035
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'heji'
          Title.Alignment = taCenter
          Title.Caption = #21512#35745
          Visible = True
        end>
    end
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 0
    Width = 277
    Height = 49
    Caption = #26597#35810#26465#20214
    TabOrder = 2
    object Label1: TLabel
      Left = 10
      Top = 23
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #27969#27700#24080#21495#65306
    end
    object SpeedButton1: TSpeedButton
      Left = 216
      Top = 14
      Width = 55
      Height = 24
      Caption = #26597#35810
      Glyph.Data = {
        9A020000424D9A020000000000009A0100002800000010000000100000000100
        08000000000000010000120B0000120B0000590000005900000000000000FFFF
        FF00FF00FF00AB00AB008B008B0079017900FF03FF00FA2FFA00FA95FA00F75F
        F4003C133900D7B48C00C2A07200D7A56000E7961100EB9F2200D08A0A00C495
        4100D1921200E7CC6200F0DD8F00F3E39E00FFFFEE007D8F0A00748904001566
        0000146801000087000000830000008200000081000000740000006E0000006A
        000000690000005E0000004C0000004B0000004400000473040000510200018A
        0300038A0600046606004370440000530300025E050004910B0001760800067A
        0E00077F1200468C4D000A9E1A000C9E1D0012811E0014A628002A9A3A000DA1
        230019962D0021A737000AAA27000F8E2700209635001BA138002CD8510016B5
        3A0018B23C0019B8420025BD50002CC6550025CB580027CB59002BD15E0036DA
        67003AE76F0039E9720045F680004DFF880040D7760055D4810078C79E00005F
        4F0005817F003ACCCB0000C4CE000D9AA40036EBFF0038EDFF0000D8FF000202
        02020202022525020202020202020202020202022E4C1E250202020202020202
        020202022E4C1E250202020202020202020202022E4C1E250202020202020202
        020202022E4C1E250202020202020202020202022E4437250202020202020202
        0202022E4843392F250202020202020202022E4A4742352A1D25020202020202
        022E4D4B464134291C1B2502020202022E49453F3D32272122201F250202022E
        2B191A30385354523E3B3A3125022E23180F0E173C4F5658554E40503624022E
        0D1513102D28335751262C090A0202020B161412020202020202080603050202
        020C11020202020202020807040202020202020202020202020202080202}
      OnClick = SpeedButton1Click
    end
    object Edit1: TEdit
      Left = 71
      Top = 17
      Width = 140
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      TabOrder = 0
    end
  end
  object GroupBox4: TGroupBox
    Left = 283
    Top = 0
    Width = 502
    Height = 49
    Caption = #24403#21069#29366#24577
    TabOrder = 3
    object Label2: TLabel
      Left = 8
      Top = 20
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #23454#25910#37329#39069#65306
      Transparent = True
    end
    object Label3: TLabel
      Left = 136
      Top = 21
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #24212#25910#37329#39069#65306
      Transparent = True
    end
    object Label4: TLabel
      Left = 266
      Top = 22
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #32467#31639#26041#24335#65306
      Transparent = True
    end
    object DBText1: TDBText
      Left = 67
      Top = 19
      Width = 65
      Height = 15
      DataField = 'shishou'
      DataSource = DataSource1
      Transparent = True
    end
    object DBText2: TDBText
      Left = 196
      Top = 21
      Width = 65
      Height = 16
      DataField = 'yingshou'
      DataSource = DataSource1
      Transparent = True
    end
    object DBText3: TDBText
      Left = 324
      Top = 22
      Width = 61
      Height = 15
      DataField = 'fangshi'
      DataSource = DataSource1
      Transparent = True
    end
    object Label5: TLabel
      Left = 377
      Top = 22
      Width = 48
      Height = 13
      Caption = #25240#25187#29575#65306
      Transparent = True
    end
    object DBText4: TDBText
      Left = 425
      Top = 21
      Width = 65
      Height = 16
      DataField = 'zhekou'
      DataSource = DataSource1
      Transparent = True
    end
  end
  object QueryMaster: TADOQuery
    Connection = dm.conn
    Parameters = <>
    SQL.Strings = (
      'select zhanghao,chuanbiaohao from Q_customertemp')
    Left = 120
    Top = 93
  end
  object QueryMastDataSource: TDataSource
    DataSet = QueryMaster
    Left = 120
    Top = 128
  end
  object QueryDetail: TADOQuery
    Connection = dm.conn
    AfterOpen = QueryDetailAfterOpen
    Parameters = <>
    SQL.Strings = (
      
        'select Caipinid,caipinname,caipincount,caipinunit,caipinprice,di' +
        'anliexing,caipinprice*caipincount as heji from Q_customertemp')
    Left = 408
    Top = 112
  end
  object QueryDetailDataSource: TDataSource
    DataSet = QueryDetail
    Left = 408
    Top = 152
  end
  object ADOQuery1: TADOQuery
    Connection = dm.conn
    AfterOpen = ADOQuery1AfterOpen
    Parameters = <>
    SQL.Strings = (
      'select * from q_custpay')
    Left = 304
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 344
    Top = 40
  end
end