unit18.dfm

以学习为目的,使用DIPH开发而成,功能强大,是我们的老师提供的!

object Form18: TForm18
  Left = 311
  Top = 235
  Width = 406
  Height = 353
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '售卡'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 398
    Height = 49
    Align = alTop
    TabOrder = 0
    object Label8: TLabel
      Left = 72
      Top = 24
      Width = 52
      Height = 13
      Caption = '售卡...'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Image1: TImage
      Left = 18
      Top = 8
      Width = 32
      Height = 32
      AutoSize = True
      Picture.Data = {
        055449636F6E0000010001002020000000000000A80800001600000028000000
        2000000040000000010008000000000080040000000000000000000000010000
        000000000000000041A4FF007394FF00417BFF006283FF005273FF00316AFF00
        839CEE003162FF008394FF00738BFF008394EE00738BEE00628BFF006283EE00
        4173FF003173FF0052AC730052A47300527BFF0073B4830062B4830062AC7300
        838BFF002062FF0083BD940083B4940073B49400416AFF00205AFF0094C5A400
        94BDA400105AFF000052FF00A4CDB40083BDA4001052FF00B4D5B400B4D5BD00
        5283EE00004AFF00BDDEC500B4DEC5005283FF00C5DECD00B4D5C500CDE6D500
        CDDED500BDDECD00DEE6DE00D5E6DE001062FF00004AEE00DEEEDE00EEEEEE00
        DEEEEE00EEF6EE00000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        FFFFFF0000000000000000000000000000000000000101010000000000000000
        0000000000000000000000000000000000000101010101010101010000000000
        000000000000000000000000000000000101010101010A010101010101000000
        00000000000000000000000000000101010101010A0A0F0F0F01010101010100
        0000000000000000000000000101010101010A0A0A0A0F0F0F0F0F0101010101
        000000000000000000000001010101010A0A0A0A0A0F0F0F0F0F0F0F0F010101
        00000000000000000000000101010A0A0A0A0A0A010101010101010F0F0F0F01
        0000000000000000000000010A0A0A0A0A0A0A01010A0A040508010F0F0F0100
        00000000000000000000000001010A0A0A010101010A0A040508010F0F010000
        0000000000000000000000000000010101010A010B0101040508010F01000000
        0000000000000000000000000001010A0A0A0A01090A0A010101010100000000
        000000000000000000000001010A0A0A0A0A0A010B0C0D040E011C0601000000
        00000000000000000001010A0A0A0A0A0A1212010B0A040413011C0608010000
        0000000000000001010A0A0A0A0A0A1416161201170A040413011C0608180100
        000000000000010A0A0A0A0A0A191A1B14141601170A040413011C0608181D01
        010000000000010A0A0A0A1E1E1F19191B1B14010A0A040413011C08081D2024
        280100000000010A0A0A22221E1E1E1919191B010A0A040E05011C08081D2024
        280100000000010A0A0A252222221E1E1E1919010A0A040E05011C081D1D2424
        280100000000010A0A0A2626252222221E1E1E010A040427050106081D1D2024
        280100000000010A0A0A292A26262222221E1E010A040413050106081D1D2421
        280100000000010A0A0A2C2C292D2625222222010A0404130F0108081D1D2428
        280100000000010A0A0A2E2E2C302926262522010A0404131C010608181D2421
        280100000000010A0A0A35322E2E2C292A2626010A040E050F0106081D202428
        340100000000010A0A0A353532322E2C2C290101010413050F01081D18202428
        340100000000010A0A0A38373535322E01010A0A0A0101011C01081D18202428
        340100000000010A0A0A3838373501010A0A0A0A0A0A0A0A0101010101010101
        010100000000010A0A0A383801010A0A0A0A0A0A0A0A0A0A01010A0A0A0A0A0A
        010000000000010A0A0A01010A0A0A0A0A0A0A0A0A0A01010A0A0A0A0A0A0A01
        000000000000010A0A0A010A0A0A0A0A0A0A0A0A01010A0A0A0A010101010100
        000000000000010101010A0A0A0A0A0A0A0A0101010101010101000000000000
        000000000000000000000101010101010A010000000000000000000000000000
        0000000000000000000000000000000101000000000000000000000000000000
        00000000FFFF8FFFFFFC01FFFFF0007FFFC0001FFF00000FFE00000FFE00000F
        FE00001FFF00003FFFC0007FFF8000FFFE00007FF800003FE000001FC0000007
        C0000003C0000003C0000003C0000003C0000003C0000003C0000003C0000003
        C0000003C0000003C0000003C0000007C000000FC000001FC00003FFFC03FFFF
        FFE7FFFF}
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 49
    Width = 217
    Height = 277
    Align = alLeft
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 215
      Height = 275
      Align = alClient
      DataSource = DataSource1
      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 = 'Lb'
          Title.Alignment = taCenter
          Title.Caption = '卡类别'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Mz'
          Title.Alignment = taCenter
          Title.Caption = '面值'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Sl'
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Visible = True
        end>
    end
  end
  object Panel4: TPanel
    Left = 217
    Top = 49
    Width = 181
    Height = 277
    Align = alClient
    TabOrder = 2
    object Label1: TLabel
      Left = 11
      Top = 21
      Width = 30
      Height = 12
      Caption = '型 号'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 11
      Top = 53
      Width = 30
      Height = 12
      Caption = '面 值'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 16
      Top = 88
      Width = 53
      Height = 14
      Caption = '出 售：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 86
      Top = 118
      Width = 15
      Height = 14
      Caption = '张'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SpinEdit1: TSpinEdit
      Left = 17
      Top = 117
      Width = 57
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      MaxValue = 0
      MinValue = 0
      ParentFont = False
      TabOrder = 0
      Value = 0
      OnChange = SpinEdit1Change
    end
    object Button1: TButton
      Left = 14
      Top = 155
      Width = 65
      Height = 23
      Caption = '出  售'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 103
      Top = 155
      Width = 65
      Height = 23
      Caption = '挂  帐'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button2: TButton
      Left = 103
      Top = 237
      Width = 65
      Height = 23
      Caption = '取  消'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = Button2Click
    end
    object ComboBox1: TComboBox
      Left = 56
      Top = 16
      Width = 115
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 4
      Items.Strings = (
        '200卡'
        '201卡'
        'IC卡'
        'IP卡'
        '磁卡')
    end
    object ComboBox2: TComboBox
      Left = 56
      Top = 48
      Width = 115
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 5
      Items.Strings = (
        '20'
        '50'
        '100')
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '售卡.DB'
    Left = 208
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 256
    Top = 16
  end
  object Table2: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '销售表.db'
    Left = 296
    Top = 16
  end
  object Table3: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '客户登记表.DB'
    Left = 344
    Top = 16
  end
end