ucurrency.dfm

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

inherited fmCurrency: TfmCurrency
  Caption = #36135#24065#20449#24687
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited PageControl: TPageControl
    inherited Tabbrowse: TTabSheet
      inherited Panel1: TPanel
        inherited DBGrid1: TdxDBGrid
          Height = 162
          Filter.Criteria = {00000000}
          object DBGrid1CurrencyID: TdxDBGridMaskColumn
            Width = 66
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CurrencyID'
          end
          object DBGrid1CurrNameC: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CurrNameC'
          end
          object DBGrid1CurrNameE: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CurrNameE'
          end
          object DBGrid1Standard: TdxDBGridCheckColumn
            Width = 60
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Standard'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBGrid1Rate: TdxDBGridMaskColumn
            Width = 118
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Rate'
          end
          object DBGrid1Remark: TdxDBGridMaskColumn
            Width = 604
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
          object DBGrid1Creater: TdxDBGridMaskColumn
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Creater'
          end
          object DBGrid1CreateDate: TdxDBGridDateColumn
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CreateDate'
          end
          object DBGrid1Updater: TdxDBGridMaskColumn
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Updater'
          end
          object DBGrid1UPdateDate: TdxDBGridDateColumn
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UPdateDate'
          end
        end
        inherited Panel3: TPanel
          Top = 163
          Height = 100
          Visible = True
          object Label1: TLabel
            Left = 8
            Top = 8
            Width = 24
            Height = 12
            Caption = #32534#21495
            FocusControl = DBEdit1
          end
          object Label2: TLabel
            Left = 90
            Top = 8
            Width = 72
            Height = 12
            Caption = #36135#24065#21517'('#20013#25991')'
            FocusControl = DBEdit2
          end
          object Label3: TLabel
            Left = 194
            Top = 8
            Width = 72
            Height = 12
            Caption = #36135#24065#21517'('#33521#25991')'
            FocusControl = DBEdit3
          end
          object Label4: TLabel
            Left = 373
            Top = 8
            Width = 24
            Height = 12
            Caption = #27719#29575
            FocusControl = DBEdit4
          end
          object Label5: TLabel
            Left = 8
            Top = 56
            Width = 24
            Height = 12
            Caption = #22791#27880
            FocusControl = DBEdit5
          end
          object DBEdit1: TDBEdit
            Left = 8
            Top = 24
            Width = 52
            Height = 20
            DataField = 'CurrencyID'
            DataSource = DSMain
            TabOrder = 0
          end
          object DBEdit2: TDBEdit
            Left = 90
            Top = 24
            Width = 76
            Height = 20
            DataField = 'CurrNameC'
            DataSource = DSMain
            TabOrder = 1
          end
          object DBEdit3: TDBEdit
            Left = 194
            Top = 24
            Width = 76
            Height = 20
            DataField = 'CurrNameE'
            DataSource = DSMain
            TabOrder = 2
          end
          object DBCheckBox1: TDBCheckBox
            Left = 296
            Top = 24
            Width = 56
            Height = 17
            Caption = #26412#20301#24065
            DataField = 'Standard'
            DataSource = DSMain
            TabOrder = 3
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBEdit4: TDBEdit
            Left = 373
            Top = 24
            Width = 76
            Height = 20
            DataField = 'Rate'
            DataSource = DSMain
            TabOrder = 4
          end
          object DBEdit5: TDBEdit
            Left = 8
            Top = 69
            Width = 441
            Height = 20
            DataField = 'Remark'
            DataSource = DSMain
            TabOrder = 5
          end
          object StaticText1: TStaticText
            Left = 399
            Top = 4
            Width = 107
            Height = 18
            Alignment = taCenter
            AutoSize = False
            BevelInner = bvLowered
            BevelKind = bkFlat
            BorderStyle = sbsSingle
            Caption = #21407#24065'='#26412#20301#24065#247#27719#29575
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
            TabOrder = 6
          end
        end
      end
    end
  end
  inherited DSMain: TDataSource
    DataSet = DMBase.CCurrency
  end
end