unit3.dfm

这是我给一单位开以的支票打印系统,开发环境为delphi,控件为fastreport

object Form3: TForm3
  Left = 407
  Top = 177
  Width = 292
  Height = 286
  BorderIcons = [biSystemMenu]
  Caption = #24320#25143#38134#34892
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 284
    Height = 259
    Align = alClient
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 282
      Height = 257
      ActivePage = TabSheet1
      Align = alClient
      Style = tsFlatButtons
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #24405#20837#20449#24687
        object Label1: TLabel
          Left = 12
          Top = 24
          Width = 65
          Height = 13
          Caption = #24320#25143#38134#34892#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clMaroon
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 12
          Top = 76
          Width = 65
          Height = 13
          Caption = #38134#34892#24080#21495#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clMaroon
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 13
          Top = 132
          Width = 65
          Height = 13
          Caption = #25171#21360#27169#26495#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clMaroon
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object DBNavigator1: TDBNavigator
          Left = 0
          Top = 199
          Width = 274
          Height = 27
          DataSource = DataSource1
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost]
          Align = alBottom
          TabOrder = 0
        end
        object DBEdit1: TDBEdit
          Left = 80
          Top = 20
          Width = 185
          Height = 21
          DataField = 'bank_name'
          DataSource = DataSource1
          TabOrder = 1
        end
        object DBEdit2: TDBEdit
          Left = 80
          Top = 72
          Width = 185
          Height = 21
          DataField = 'bank_zh'
          DataSource = DataSource1
          TabOrder = 2
        end
        object DBComboBox1: TDBComboBox
          Left = 80
          Top = 128
          Width = 185
          Height = 21
          DataField = 'bank_mb'
          DataSource = DataSource1
          ItemHeight = 13
          Items.Strings = (
            #24037#21830#38134#34892
            #24314#35774#38134#34892
            #20892#19994#38134#34892
            #20449#29992#32852#31038
            #20854#20182)
          TabOrder = 3
        end
      end
      object TabSheet2: TTabSheet
        Caption = #26597#35810#27983#35272
        ImageIndex = 1
        object DBGrid1: TDBGrid
          Left = 0
          Top = 0
          Width = 274
          Height = 185
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clMaroon
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnColExit = DBGrid1ColExit
          OnDrawColumnCell = DBGrid1DrawColumnCell
          Columns = <
            item
              Expanded = False
              FieldName = 'bank_name'
              Title.Alignment = taCenter
              Title.Caption = #24320#25143#38134#34892
              Width = 98
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'bank_zh'
              Title.Alignment = taCenter
              Title.Caption = #24080#21495
              Width = 98
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'bank_mb'
              Title.Alignment = taCenter
              Title.Caption = #25171#21360#27169#26495
              Width = 75
              Visible = True
            end>
        end
        object DBNavigator2: TDBNavigator
          Left = 0
          Top = 201
          Width = 274
          Height = 25
          DataSource = DataSource1
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost]
          Align = alBottom
          TabOrder = 1
        end
        object dbmb: TDBComboBox
          Left = 136
          Top = 48
          Width = 105
          Height = 21
          DataField = 'bank_mb'
          DataSource = DataSource1
          ItemHeight = 13
          Items.Strings = (
            #24037#21830#38134#34892
            #24314#35774#38134#34892
            #20892#19994#38134#34892
            #20449#29992#32852#31038
            #20854#20182)
          TabOrder = 2
          Visible = False
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = AD_bank
    Left = 216
    Top = 16
  end
  object AD_bank: TADOTable
    Active = True
    Connection = Data.ADO1
    CursorType = ctStatic
    AfterInsert = AD_bankAfterInsert
    BeforePost = AD_bankBeforePost
    TableName = 'bank'
    Left = 168
    Top = 8
  end
end