unit1.dfm

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

object Form1: TForm1
  Left = 25
  Top = 91
  Width = 800
  Height = 519
  BorderIcons = [biSystemMenu]
  Caption = #25353#38190#35774#32622
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel22: TBevel
    Left = 128
    Top = 2
    Width = 393
    Height = 50
  end
  object Bevel2: TBevel
    Left = 527
    Top = 280
    Width = 259
    Height = 75
  end
  object Bevel1: TBevel
    Left = 527
    Top = 360
    Width = 259
    Height = 84
  end
  object Label1: TLabel
    Left = 138
    Top = 32
    Width = 72
    Height = 12
    Caption = #24744#36873#25321#30340#38190#20540
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 306
    Top = 16
    Width = 60
    Height = 12
    Caption = #23545#24212#30340#21697#21517
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 549
    Top = 299
    Width = 113
    Height = 22
    Caption = #23383#20307'/'#23383#21495'/'#39068#33394#36873#25321
    OnClick = SpeedButton1Click
  end
  object Label3: TLabel
    Left = 685
    Top = 284
    Width = 24
    Height = 12
    Caption = #23383#20307
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 685
    Top = 311
    Width = 24
    Height = 12
    Caption = #23383#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 719
    Top = 337
    Width = 24
    Height = 12
    Caption = #39068#33394
  end
  object SpeedButton2: TSpeedButton
    Left = 541
    Top = 379
    Width = 113
    Height = 22
    Caption = #22270#26631#36873#25321
    OnClick = SpeedButton2Click
  end
  object Image1: TImage
    Left = 709
    Top = 363
    Width = 65
    Height = 49
  end
  object Label6: TLabel
    Left = 669
    Top = 379
    Width = 24
    Height = 12
    Caption = #22270#26631
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 589
    Top = 427
    Width = 48
    Height = 12
    Caption = #22270#26631#20301#32622
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 687
    Top = 338
    Width = 24
    Height = 12
    Caption = #39068#33394
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Bevel21: TBevel
    Left = 0
    Top = 56
    Width = 521
    Height = 388
  end
  object Label9: TLabel
    Left = 138
    Top = 8
    Width = 72
    Height = 12
    Caption = #24744#36873#25321#30340#21306#22495
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 218
    Top = 28
    Width = 67
    Height = 20
    ReadOnly = True
    TabOrder = 0
  end
  object Edit2: TEdit
    Left = 717
    Top = 284
    Width = 45
    Height = 20
    Enabled = False
    TabOrder = 1
  end
  object Edit3: TEdit
    Left = 717
    Top = 308
    Width = 46
    Height = 20
    Enabled = False
    TabOrder = 2
  end
  object Edit4: TEdit
    Left = 645
    Top = 419
    Width = 121
    Height = 20
    Enabled = False
    TabOrder = 3
  end
  object BitBtn1: TBitBtn
    Left = 632
    Top = 459
    Width = 75
    Height = 25
    Caption = #30830#35748
    TabOrder = 4
    OnClick = BitBtn1Click
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000C40E0000C40E00000000000000000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
      00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FF00
      00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFF0000FF0000FF0000FF0000FF0000FFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FF0000FFFFFFFF00
      00FF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      0000FF0000FF0000FFFFFFFFFFFFFF0000FF0000FF0000FFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFF0000FF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFF8080800000FF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
      FF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object Edit5: TEdit
    Left = 386
    Top = 13
    Width = 121
    Height = 20
    TabOrder = 5
  end
  object DBGrid1: TDBGrid
    Left = 526
    Top = 115
    Width = 261
    Height = 158
    Hint = #21452#20987#36873#23450#33756#21697
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 6
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'mc'
        Title.Caption = #21517#31216
        Width = 123
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ywmc'
        Title.Caption = #33521#25991#21517#31216
        Width = 118
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dj'
        Title.Caption = #21333#20215
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gg'
        Title.Caption = #35268#26684
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'tcbz'
        Title.Caption = #22871#39184#26631#24535
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bh'
        Title.Caption = #32534#21495
        Visible = True
      end>
  end
  object pagecontrol1: TPageControl
    Left = 6
    Top = 63
    Width = 513
    Height = 377
    ActivePage = TabSheet1
    HotTrack = True
    MultiLine = True
    RaggedRight = True
    Style = tsButtons
    TabHeight = 35
    TabIndex = 0
    TabOrder = 7
    TabWidth = 80
    object TabSheet1: TTabSheet
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnShow = TabSheet1Show
      object Bevel3: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet2: TTabSheet
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Bevel4: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet3: TTabSheet
      ImageIndex = 2
      OnShow = TabSheet3Show
      object Bevel5: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet4: TTabSheet
      ImageIndex = 3
      OnShow = TabSheet4Show
      object Bevel6: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet5: TTabSheet
      ImageIndex = 4
      OnShow = TabSheet5Show
      object Bevel7: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet6: TTabSheet
      ImageIndex = 5
      OnShow = TabSheet6Show
      object Bevel8: TBevel
        Left = 0
        Top = 0
        Width = 505
        Height = 256
      end
    end
    object TabSheet7: TTabSheet
      ImageIndex = 6
      OnShow = TabSheet7Show
      object Bevel9: TBevel
        Left = 0