tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: 構造体でスマートに記述する方法
投稿日: 2010/04/22(Thu) 17:27
投稿者魔界の仮面弁士
> のクラスを作ってみました。
gGamencd が 1〜3 というマジックナンバーになっている点が気になりますが、
その事は横に置いといて…。


> SQL文の引数はそれぞれ違います。
商品_SQL / 価格_SQL / 在庫_SQL に共通のインターフェイスを持たせるとか。


Public Interface IHoge
  Sub md_Delete(ParamArray args() As String)
  Sub md_Update(fps_sh As Object, Col cs Integer, row As Integer)
    :
    :
End Interface

Public Class SqlLibrary
 Private g処理 As IHoge
 Public Sub New(gamencd as Integer)
  '初期化手順に差がある場合や分岐数が多い場合は、Factory にした方が良いかも。
  Select Case gGamencd
   Case 1 : g処理 = New 商品_SQL()
   Case 2 : g処理 = New 価格_SQL()
   Case 3 : g処理 = New 在庫_SQL()
   Case Else : Throw New ArgumentException()
  End Select
 End Sub
 Public Sub md_Delete(Optional cd0 As String = "", Optional cd1 As String  = "")
  g処理.md_Delete(cd0, cd1)
 End Sub
 Public Sub md_Update(fps_sh As Object, col As Integer, row As Integer)
  g処理.md_Update(fps_sh, col, row)
 End Sub
   :
   :
End Class


下記の 第19回 の記事が参考になるかも。
http://www.atmarkit.co.jp/fdotnet/vb6tonet/index/index.html

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。