main.dfm

药店GSP源码

object form5: Tform5
  Left = 1
  Top = 3
  AutoScroll = False
  Caption = #33647#24215#31649#29702#31995#32479
  ClientHeight = 529
  ClientWidth = 788
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFF9999FFFFFFFFFFFFF00FFF
    FFFFFFFFFF9999FFFFFFFFFFFFF00FFFFFFFFFFFFF9999FFFFFFFFFFFFF00FFF
    FFFFFFFFFF9999FFFFFFFFFFFFF00FFFFFFFFFFFFF9999FFFFFFFFFFFFF00FFF
    FFFFF99999999999999FFFFFFFF00FFFFFFFF99999999999999FFFFFFFF00FFF
    FFFFF99999999999999FFFFFFFF00FFFFFFFF99999999999999FFFFFFFF00FFF
    FFFFFFFFFF9999FFFFFFFFFFFFF00FFFFFFFFFFFFF9999FFFFFFFFFFFFF00FFF
    FFFFFFFFFF9999FFFFFFFFFFFFF00FFFFFFFFFFFFF9999FFFFFFFFFFFFF00FFF
    FFFFFFFFFF9999FFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 507
    Width = 788
    Height = 22
    Panels = <
      item
        Alignment = taRightJustify
        Width = 200
      end
      item
        Alignment = taRightJustify
        Width = 200
      end
      item
        Alignment = taRightJustify
        Width = 200
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 788
    Height = 65
    ButtonHeight = 51
    ButtonWidth = 55
    Caption = 'ToolBar1'
    Images = ImageList3
    ShowCaptions = True
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Width = 9
      Caption = 'ToolButton1'
      Style = tbsDivider
    end
    object ToolButton2: TToolButton
      Left = 9
      Top = 2
      Caption = #26032' '#22788' '#26041
      ImageIndex = 4
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 64
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 1
      Style = tbsDivider
    end
    object ToolButton4: TToolButton
      Left = 72
      Top = 2
      Caption = #21024' '#38500
      ImageIndex = 3
      OnClick = ToolButton4Click
    end
    object ToolButton11: TToolButton
      Left = 127
      Top = 2
      Width = 8
      Caption = 'ToolButton11'
      ImageIndex = 5
      Style = tbsDivider
    end
    object ToolButton6: TToolButton
      Left = 135
      Top = 2
      Caption = #20445' '#23384
      ImageIndex = 2
      OnClick = ToolButton6Click
    end
    object ToolButton7: TToolButton
      Left = 190
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 3
      Style = tbsDivider
    end
    object ToolButton8: TToolButton
      Left = 198
      Top = 2
      Caption = #25171' '#21360
      ImageIndex = 8
      OnClick = ToolButton8Click
    end
    object ToolButton9: TToolButton
      Left = 253
      Top = 2
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 5
      Style = tbsDivider
    end
    object ToolButton10: TToolButton
      Left = 261
      Top = 2
      Caption = #36864' '#20986
      ImageIndex = 9
      OnClick = ToolButton10Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 229
    Width = 788
    Height = 278
    Align = alBottom
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'DATE'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GUIGE'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BASICUNIT'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SHU'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SALEPRICE'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'INPRICE'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SUM_XS'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'KEHU'
        Title.Alignment = taCenter
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 64
    Width = 633
    Height = 153
    Caption = #38144#21806#21333
    TabOrder = 3
    object Label1: TLabel
      Left = 8
      Top = 30
      Width = 60
      Height = 12
      Caption = #26085'    '#26399#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 52
      Width = 60
      Height = 12
      Caption = #32534'    '#30721#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 76
      Width = 60
      Height = 12
      Caption = #25968'    '#37327#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 8
      Top = 101
      Width = 60
      Height = 12
      Caption = #38646' '#21806' '#20215#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText