'CNNのProvider
'DBがaccessの時
'Global Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'DBがSQLの時
'Global Const Provider = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DRIVER=SQL Server;SERVER=2000;UID=me;APP=Visual Basic;WSID=mo;DATABASE=DB;Network=DBMSSOCN;Address=2000,1433"
'Global Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Mode=ReadWrite;Persist Security Info=False"



'DBがSQLの時【現在はここが生きてます】
Global Const Provider = "Provider=MSDASQL.1;Persist Security Info=False;Mode=ReadWrite;Extended Properties=DRIVER=SQL Server;SERVER=2000;UID=me;APP=Visual Basic;WSID=mo;DATABASE=DB;Network=DBMSSOCN;Address=2000,1433"
'データコネクション
Global CNN As New ADODB.Connection
'レコードセット
Global REC As New ADODB.Recordset
'レコードセット
Global REC1 As New ADODB.Recordset
'SQL変数
Global SQL As String
'テーブル変数
Global TBL As String
'TXT変数
Global txt As String
'Indexカウント用変数
Global CNT As Integer
'計算用変数
Global LNG1 As Long
'計算用変数
Global LNG2 As Long
'計算用変数
Global LNG3 As Long
'伝票のMAXナンバー
Global Const DENMAX_CNT = 42
'消費税率
Global Const TAXRATE = 0.05
'仮ストリング変数
Global AAA As String
Global BBB As String
Global CCC As String
Global DDD As String


'/////スタッフ名・給与/////////////////////
Global STAF(0 To 4) As String
Global PAY(0 To 4) As String


'/////////////////////////////////////////////////
'ini-fileを読んで変数に格納
'/////////////////////////////////////////////////
Function setdata()
  Dim FNW As Integer
  Dim DBF As String
  FNW = FreeFile
  DBF = App.Path & "\mm.ini"
  CNT = 0
  
  If Dir(DBF) = "" Then
    MsgBox "ini-file is lost!"
    Exit Function
  End If
  
  Open DBF For Input As #FNW
    Do Until EOF(FNW)
      Input #FNW, STAF(CNT)
      Input #FNW, PAY(CNT)
      CNT = CNT + 1
    Loop
  Close #FNW
End Function

'/////////////////////////////////////////////////
'ini-fileに書き込む
'/////////////////////////////////////////////////
Function write_data()
  Dim FNW As Integer
  Dim DBF As String
  FNW = FreeFile
  DBF = App.Path & "\mm.ini"
'  CNT = 0
  
  If Dir(DBF) = "" Then
    MsgBox "ini-file is lost!"
    Exit Function
  End If
  
  Open DBF For Output As #FNW
    For CNT = 0 To 4
      Write #FNW, STAF(CNT), PAY(CNT)
'      CNT = CNT + 1
    Next
  Close #FNW
End Function


'/////////////////////////////////////////////////
'ini-fileに書き込む
'/////////////////////////////////////////////////
Function nendo(yearA As String, yearB As String)
  nendo = False
  If CDate(yearA & "/09/01") < yearB < CDate(Val(yaerA + 1) & "/8/31") Then
    nendo = True
  End If
End Function