u_rsgl.dfm

小型劳资管理系统,用visual basic+access编写

object F_RSGL: TF_RSGL
  Left = 199
  Top = 263
  Width = 517
  Height = 280
  Caption = #37096#38376#35774#32622
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 290
    Top = 0
    Width = 3
    Height = 155
    Cursor = crHSplit
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 234
    Width = 509
    Height = 19
    Panels = <
      item
        Text = #24403#21069#35760#24405#25968':'
        Width = 70
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 129
    Height = 155
    Align = alLeft
    DataSource = RS_DM.DT_yjbm
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnEnter = DBGrid1Enter
    OnKeyPress = DBGrid1KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'yjbm_name'
        Title.Caption = #19968#32423#37096#38376
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clOlive
        Title.Font.Height = -15
        Title.Font.Name = #20223#23435'_GB2312'
        Title.Font.Style = []
        Visible = True
      end>
  end
  object Panel2: TPanel
    Left = 0
    Top = 155
    Width = 509
    Height = 79
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 2
    object Bevel1: TBevel
      Left = 312
      Top = 7
      Width = 190
      Height = 65
    end
    object Label1: TLabel
      Left = 318
      Top = 19
      Width = 64
      Height = 15
      Caption = #36755#20837#24037#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clOlive
      Font.Height = -15
      Font.Name = #20223#23435'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 442
      Top = 14
      Width = 55
      Height = 22
      Caption = #21024#38500
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777877777777777777717777777
        7777777711777781777777778187781877777777711871177777777778111177
        7777777778111777777777778111187777777777118711877777777777777118
        7777777777777711877777777777777777777777777777777777}
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object Label2: TLabel
      Left = 318
      Top = 47
      Width = 64
      Height = 15
      Caption = #26356#25442#37096#38376
      Font.Charset = GB2312_CHARSET
      Font.Color = clOlive
      Font.Height = -15
      Font.Name = #20223#23435'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton2: TSpeedButton
      Left = 442
      Top = 45
      Width = 55
      Height = 22
      Caption = #26356#25442
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000120B0000120B00001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDDDD0000DDDDDDDDD888888DDDDD0000DDDDDDD000003888DDDD0000DDDD
        DD0BBBB030888DDD0000DDDDDD0BBBB030888DDD0000DDDDD0BBBB0333088DDD
        0000DDDDD0BBBB0333088DDD0000DDDDD000000333088DDD0000DDDDDDDD8033
        33088DDD0000DDDDDDD0003333088DDD0000DDDDDD0BB03333088DDD0000DDDD
        D0BBBB0333088DDD0000DDDD0BBBBBB033088DDD0000DDD0BBBBBBBB03088DDD
        0000DDD000BBBB0003088DDD0000DDDDD0BBBB033308DDDD0000DDDDDD0BBBB0
        308DDDDD0000DDDDDD0BBBB030DDDDDD0000DDDDDDD000003DDDDDDD0000DDDD
        DDDDDDDDDDDDDDDD0000}
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object Label3: TLabel
      Left = 8
      Top = 8
      Width = 144
      Height = 15
      Caption = #28155#21152#25110#20462#25913#37096#38376#35774#32622
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -15
      Font.Name = #20223#23435'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 386
      Top = 14
      Width = 55
      Height = 21
      MaxLength = 6
      TabOrder = 0
      OnKeyPress = Edit1KeyPress
    end
    object Edit2: TEdit
      Left = 386
      Top = 46
      Width = 55
      Height = 21
      MaxLength = 6
      TabOrder = 1
      OnKeyPress = Edit2KeyPress
    end
    object DBNavigator1: TDBNavigator
      Left = 8
      Top = 32
      Width = 280
      Height = 33
      DataSource = Active_ds
      Flat = True
      TabOrder = 2
    end
  end
  object DBGrid3: TDBGrid
    Left = 293
    Top = 0
    Width = 216
    Height = 155
    Align = alClient
    DataSource = RS_DM.DQ_empdata
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = #22995#21517
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clOlive
        Title.Font.Height = -15
        Title.Font.Name = #20223#23435'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'work_num'
        Title.Caption = #24037#21495
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clOlive
        Title.Font.Height = -15
        Title.Font.Name = #20223#23435'_GB2312'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'card_num'
        Title.Caption = #21345#21495
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clOlive
        Title.Font.Height = -15
        Title.Font.Name = #20223#23435'_GB2312'
        Title.Font.Style = []
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 129
    Top = 0
    Width = 161
    Height = 155
    Align = alLeft
    DataSource = RS_DM.DT_ejbm
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnEnter = DBGrid2Enter
    OnKeyPress = DBGrid2KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'ejbm_name'
        Title.Caption = #20108#32423#37096#38376
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clOlive
        Title.Font.Height = -15
        Title.Font.Name = #20223#23435'_GB2312'
        Title.Font.Style = []
        Visible = True
      end>
  end
  object Active_ds: TDataSource
    Left = 248
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = RS_DM.T_ejbm
    OnDataChange = DataSource1DataChange
    Left = 184
    Top = 72
  end
end