โปรแกรมบริหารจัดการเบี้ยยังชีพ/สอน C#.NET แบบเชิงลึก Real Time

โปรแกรมนี้ใช้งานง่ายและเหมาะสำหรับนักพัฒนาชุมชนทั่วประเทศที่ไม่ต้องมาพะวงในการไล่ว่าลุงคนนี้ยายคนนี้ปีงบหน้าจะอายุเท่าไหร่และจะได้รัเบี้ยยังชีพเท่าไหร่ อีกต่อไป (สนใจติดต่อ คุณเลิศพงศ์ 080-7428876) โปรแกรมละ 1,000 บาท ส่งทาง E-mail ทั่วประเทศ
(Windows 7 32Bit,ฐานข้อมูล SQL Server 2008R2) หรือ
(Windows 7 64Bit,ฐานข้อมูล SQL Server 2008R2) หรือ
(Windows 8 64Bit,ฐานข้อมูล SQL Server 2008R2)
===============================
เริ่ม Post วันที่ 8 สิงหาคม 2557

 

ความสามารถของโปรแกรมนี้

 

โปรแกรมบริหารจัดการเบี้ยยังชีพ
อำนวยความสะดวกสูงสุดเท่าที่มีโปรแกรมมา (เหมาะสำหรับ นักพัฒนาชุมชน)
1.ค้นหาข้อมูลได้ทุกรูปแบบ
2.สามารถคำนวณการแลกเงินกับธนาคาร โดยแยกเป็น แบ็งค์ 500 บาท ว่ามีกี่ใบแต่ละหมู่และแบ็งค์ 100 บาท ว่ามีกี่ใบแต่ละหมู่ (สะดวกในการนับเงินในเวลาออกไปจ่ายเงินสดในแต่ละหมู่บ้าน)

 

สามารถอ่านรหัส ID Card จากแถบบาร์โค้ดได้

ฟังก์ชันออกแบบมาให้เหมาะสมกับนักพัฒนาชุมชนโดยเฉพาะ สามารถเลือกดูได้หลากหลาย (คีย์ข้อมูลเข้าโปรแกรมครั้งเดียว ง่ายแสนง่าย อยากรู้อะไรก็คลิกเมนู) ออกแบบมาเพื่อใช้งานนักพัฒนาชุมชนโดยเฉพาะรองรับข้อมูลได้ 10 GB

 

C#.NET (Visual Basic 2010)

รวบรวมคำสั่งที่ใช้ใน C#.NET
1.คำสั่ง Connect SQL Server 2008
====================
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Data.SqlClient;//ติดต่อ SQL Server 2008

namespace ProOlder2
{
public partial class FormReport : Form
{
public FormReport()
{
InitializeComponent();
StartPosition = FormStartPosition.CenterScreen;//จัดกึ่งกลางหน้า
}

private SqlConnection connection;

private void FormReport_Load(object sender, EventArgs e)
{
string conStr = @"Data Source=.\SQLEXPRESS;// แนบไฟล์ไปกับ Folder
AttachDbFilename=|DataDirectory|\dbOlder.mdf;
Integrated Security=True;User Instance=True;";

connection = new SqlConnection(conStr);
if (connection.State == ConnectionState.Closed)
{
connection.Open();// เปิดฐานข้อมูล
}

}

private void FormReport_FormClosing(object sender, FormClosingEventArgs e)
{
if (connection.State == ConnectionState.Open)
{
connection.Close();//ปิดฐานข้อมูล
}
}
}
}

 

VB.NET (Visual Basic 2010)

2.คำสั่งติดต่อ Connect MS Access 2003
=====================
Dim cnn As New OleDb.OleDbConnection
Dim sql As String
Dim inc As Integer
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter

Private Sub FormMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
' ปรับระยะของฟอร์มให้อยู่ตรงกลางหน้าจอ
Me.Left = (Screen.PrimaryScreen.WorkingArea.Width - Me.Width) \ 2
Me.Top = (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) \ 2

cnn = New OleDb.OleDbConnection
cnn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Application.StartupPath & "\dbOlder.mdb"
'
dgvData.RowHeadersVisible = True
dgvData.SelectionMode = DataGridViewSelectionMode.RowHeaderSelect
dgvData.MultiSelect = False

End Sub

 

ASP.NET (Visual Basic 2010)

1.คำสั่ง Connect SQL Server 2008
Code C#.NET
===================================
#region "namespaces"
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Data.SqlClient;
using System.Data;
#endregion

namespace WebApplication1
{
public partial class WebForm1 : System.Web.UI.Page
{
SqlConnection con = new SqlConnection("Data Source=.\\SQLEXPRESS1;Initial Catalog=dbconnection;Trusted_Connection=True");
#region "Page Load"
protected void Page_Load(object sender, EventArgs e)
{
if (con.State == ConnectionState.Closed)
{
con.Open();
}
if (!Page.IsPostBack)
{
// bindGridView();
}
}
#endregion
}
}

 

VB 6.0

คำสั่ง Connect MS Access 2003
================================

 

ASP.NET

การแสดงผลของ ASP.NET ออกแบบมาแก้ไขปัญหา paging control ของ ListView บน C#.NET และ VB.NET

 

เวลาคลิ๊กปุ่มให้แสดงเลข Auto ID บน C#.NET

ฐานข้อมูล SQL Server 2008
===================================
private void btnGenID_Click(object sender, EventArgs e)
{
sql = @"SELECT Count(CodePK)+1 FROM tblOlder ";
command = new SqlCommand(sql, connection);

Int32 MaxID = (Int32)command.ExecuteScalar();
txtCodePK.Text = MaxID.ToString();//ค่าสูงสุด
txtCodeID.Text = MaxID.ToString().PadLeft(7, '0');
}

 

เวลาคลิ๊กปุ่มให้แสดงเลข Auto ID บน VB.NET

ฐานข้อมูล MS Access 2003
=====================
Sub AutoID()
cnn = New OleDb.OleDbConnection
cnn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Application.StartupPath & "\dbOlder.mdb"
cnn.Open()
Dim strsql As String = String.Empty
strsql = "select max(CodePK) + 1 as ID from tblOlder"
Dim da As New OleDb.OleDbDataAdapter()
da.SelectCommand = New OleDb.OleDbCommand(strsql, cnn)
Dim ds As New DataSet()
Dim rid As Integer = 0

da.Fill(ds)

If (ds.Tables(0).Rows.Count > 0) Then
If ds.Tables(0).Rows(0)("ID").ToString() <> String.Empty Then
rid = CInt(ds.Tables(0).Rows(0)("ID").ToString())
Else
rid = 1
End If
Else
rid = 1
End If

txtCodePK.Text = rid.ToString("0")
txtCodeID.Text = rid.ToString("0000000") ' จำนวนคนทั้งหมด

cnn.Close()
cnn = Nothing

End Sub

 

เวลาคลิ๊กปุ่มให้แสดงเลข Auto ID บน VB 6.0

ฐานข้อมูล MS Access 2003
==================================

 

การแสดงผล ListView บน C#.NET

try
{
//===================แบบแสดงผลแบบที่ 1=======================================
SqlDataReader dr = comm.ExecuteReader();

listView1.Items.Clear();
while (dr.Read())
{
ListViewItem item = new ListViewItem(dr["CodeID"].ToString());
item.SubItems.Add(dr["SexFK"].ToString());
item.SubItems.Add(dr["TitleFK"].ToString());
item.SubItems.Add(dr["FullName"].ToString());
item.SubItems.Add(dr["IDCard"].ToString());
item.SubItems.Add(dr["Birthdate"].ToString());
item.SubItems.Add(dr["Age"].ToString());
item.SubItems.Add(dr["BanID"].ToString());
item.SubItems.Add(dr["Moo"].ToString());
item.SubItems.Add(dr["TypeNameFK"].ToString());
item.SubItems.Add(dr["MethodMoneyFK"].ToString());
item.SubItems.Add(dr["Box2"].ToString());
item.SubItems.Add(dr["MoneyAccess"].ToString());
listView1.Items.Add(item);
}
//===========================================
CalculateMoneyAccess();
//===========================================
dr.Close();
//===================แบบแสดงผลแบบที่ 2=======================================
//SqlDataAdapter da = new SqlDataAdapter(comm);
//DataTable dt = new DataTable();
//da.Fill(dt);

//foreach (DataRow dr in dt.Rows)
//{
// ListViewItem item = new ListViewItem(dr["CodeID"].ToString());
// item.SubItems.Add(dr["SexFK"].ToString());
// item.SubItems.Add(dr["TitleFK"].ToString());
// item.SubItems.Add(dr["FullName"].ToString());
// item.SubItems.Add(dr["IDCard"].ToString());
// item.SubItems.Add(dr["Birthdate"].ToString());
// item.SubItems.Add(dr["Age"].ToString());
// item.SubItems.Add(dr["BanID"].ToString());
// item.SubItems.Add(dr["Moo"].ToString());
// item.SubItems.Add(dr["TypeNameFK"].ToString());
// item.SubItems.Add(dr["MethodMoneyFK"].ToString());
// item.SubItems.Add(dr["Box2"].ToString());
// item.SubItems.Add(dr["MoneyAccess"].ToString());
// listView1.Items.Add(item);
//}
//CalculateMoneyAccess();
//===================แบบแสดงผลแบบที่ 3=======================================
//SqlDataAdapter da = new SqlDataAdapter(comm);
//DataTable dt = new DataTable();
//da.Fill(dt);

//for (int i = 0; i < dt.Rows.Count; i++)
//{
// ListViewItem item = new ListViewItem(dt.Rows["CodeID"].ToString());
// item.SubItems.Add(dt.Rows["SexFK"].ToString());
// item.SubItems.Add(dt.Rows["TitleFK"].ToString());
// item.SubItems.Add(dt.Rows["FullName"].ToString());
// item.SubItems.Add(dt.Rows["IDCard"].ToString());
// item.SubItems.Add(dt.Rows["Birthdate"].ToString());
// item.SubItems.Add(dt.Rows["Age"].ToString());
// item.SubItems.Add(dt.Rows["BanID"].ToString());
// item.SubItems.Add(dt.Rows["Moo"].ToString());
// item.SubItems.Add(dt.Rows["TypeNameFK"].ToString());
// item.SubItems.Add(dt.Rows["MethodMoneyFK"].ToString());
// item.SubItems.Add(dt.Rows["Box2"].ToString());
// item.SubItems.Add(dt.Rows["MoneyAccess"].ToString());
// listView1.Items.Add(item);
//}
//CalculateMoneyAccess();
//===================แบบแสดงผลแบบที่ 4=======================================
//SqlDataAdapter da = new SqlDataAdapter(comm);
//DataSet ds = new DataSet();
//da.Fill(ds);

//foreach (DataRow dr in ds.Tables[0].Rows)
//{
// ListViewItem item = new ListViewItem(dr["CodeID"].ToString());
// item.SubItems.Add(dr["SexFK"].ToString());
// item.SubItems.Add(dr["TitleFK"].ToString());
// item.SubItems.Add(dr["FullName"].ToString());
// item.SubItems.Add(dr["IDCard"].ToString());
// item.SubItems.Add(dr["Birthdate"].ToString());
// item.SubItems.Add(dr["Age"].ToString());
// item.SubItems.Add(dr["BanID"].ToString());
// item.SubItems.Add(dr["Moo"].ToString());
// item.SubItems.Add(dr["TypeNameFK"].ToString());
// item.SubItems.Add(dr["MethodMoneyFK"].ToString());
// item.SubItems.Add(dr["Box2"].ToString());
// item.SubItems.Add(dr["MoneyAccess"].ToString());
// listView1.Items.Add(item);
//}
//CalculateMoneyAccess();
//===================แบบแสดงผลแบบที่ 5=======================================
//SqlDataAdapter da = new SqlDataAdapter(comm);
//DataSet ds = new DataSet();
//da.Fill(ds);

//for (int i = 0; i < ds.Tables[0].Rows.Count; i++)
//{
// ListViewItem item = new ListViewItem(ds.Tables[0].Rows["CodeID"].ToString());
// item.SubItems.Add(ds.Tables[0].Rows["SexFK"].ToString());
// item.SubItems.Add(ds.Tables[0].Rows["TitleFK"].ToString());
// item.SubItems.Add(ds.Tables[0].Rows["FullName"].ToString());
// item.SubItems.Add(ds.Tables[0].Rows["IDCard"].ToString());
// item.SubItems.Add(ds.Tables[0].Rows["Birthdate"].ToString());
// item.SubItems.Add(ds.Tables[0].Rows["Age"].ToString());
// item.SubItems.Add(ds.Tables[0].Rows[i]["BanID"].ToString());
// item.SubItems.Add(ds.Tables[0].Rows[i]["Moo"].ToString());
// item.SubItems.Add(ds.Tables[0].Rows[i]["TypeNameFK"].ToString());
// item.SubItems.Add(ds.Tables[0].Rows[i]["MethodMoneyFK"].ToString());
// item.SubItems.Add(ds.Tables[0].Rows[i]["Box2"].ToString());
// item.SubItems.Add(ds.Tables[0].Rows[i]["MoneyAccess"].ToString());
// listView1.Items.Add(item);
//}
//CalculateMoneyAccess();
//========================================================================
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error);
Application.ExitThread();
}
con.Close();[/i][/i][/i][/i][/i][/i]

 

การ Export To Excel บน C#.NET

ใช้ ListView แสดงผลข้อมูล
==============================
private void CreateExel1() // ปีงบประมาณ 2557 - 2562
{

Microsoft.Office.Interop.Excel.Application app = new Microsoft.Office.Interop.Excel.Application();
app.Visible = true;
Microsoft.Office.Interop.Excel.Workbook wb = app.Workbooks.Add(1);
Microsoft.Office.Interop.Excel.Worksheet ws = (Microsoft.Office.Interop.Excel.Worksheet)wb.Worksheets[1];
int i = 1;
int i2 = 1;
foreach (ListViewItem lvi in listView1.Items)
{
i = 1;
foreach (ListViewItem.ListViewSubItem lvs in lvi.SubItems)
{
ws.Cells[i2, i] = lvs.Text;
i++;
}
i2++;
}
}

 

ทดสอบการอ่านบาร์โค้ด บน VB 6.0

Code ตัวอย่าง (EAN13)
===================================
Option Explicit

Private Sub Form_Load()
Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

End Sub

Private Sub cmdClear_Click()
txtbarcode.Text = ""
End Sub

Private Sub txtbarcode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim ans As String
ans = txtbarcode.Text
MsgBox ans
End If
End Sub

 

ทดสอบการอ่านบาร์โค้ด บน C#.NET

Code ทดสอบ (EAN13)
=================================
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace TestBarCode
{
public partial class frmMain : Form
{
public frmMain()
{
InitializeComponent();
StartPosition = FormStartPosition.CenterScreen;//จัดกึ่งกลางหน้า
}

private void textBox1_KeyDown(object sender, KeyEventArgs e)
{
{
if (e.KeyCode == Keys.Enter)
{
cmdSearch.PerformClick();
// MessageBox.Show(textBox1.Text, "รายงานสถานะ");
label2.Text = textBox1.Text;
}
}
}

private void cmdClear_Click(object sender, EventArgs e)
{
textBox1.Text = "";
label2.Text = "";
}
}
}

 

comboBox บน C#.NET

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private string[] TypeName = { "ผู้สูงอายุ", "ผู้พิการ", "ผู้ติดเชื้อเอดส์", "ผู้สูงอายุและผู้พิการ", "ผู้สูงอายุและผู้ติดเชื้อเอดส์","ผู้พิการและผู้ติดเชื้อเอดส์","ผู้สูงอายุผู้พิการและผู้ติดเชื้อเอดส์" };

private string[][] Access = {
new string[] {"ไม่มี"},
new string[] {"ความพิการทางการมองเห็น", "ความพิการทางการได้ยินหรือสื่อความหมาย", "ความพิการทางการเคลื่อนไหว", "ความพิการจิตใจหรือพฤติกรรม","ความพิการทางสติปัญญา","ความพิการทางการเรียนรู้","ความพิการทางออทิสติก","ความพิการซ้ำซ้อน"},
new string[] {"ไม่มี"},
new string[] {"ความพิการทางการมองเห็น", "ความพิการทางการได้ยินหรือสื่อความหมาย", "ความพิการทางการเคลื่อนไหว", "ความพิการจิตใจหรือพฤติกรรม","ความพิการทางสติปัญญา","ความพิการทางการเรียนรู้","ความพิการทางออทิสติก","ความพิการซ้ำซ้อน"},
new string[] {"ไม่มี"},
new string[] {"ความพิการทางการมองเห็น", "ความพิการทางการได้ยินหรือสื่อความหมาย", "ความพิการทางการเคลื่อนไหว", "ความพิการจิตใจหรือพฤติกรรม","ความพิการทางสติปัญญา","ความพิการทางการเรียนรู้","ความพิการทางออทิสติก","ความพิการซ้ำซ้อน"},
new string[] {"ความพิการทางการมองเห็น", "ความพิการทางการได้ยินหรือสื่อความหมาย", "ความพิการทางการเคลื่อนไหว", "ความพิการจิตใจหรือพฤติกรรม","ความพิการทางสติปัญญา","ความพิการทางการเรียนรู้","ความพิการทางออทิสติก","ความพิการซ้ำซ้อน"}
};

private void Form1_Load(object sender, EventArgs e)
{
cbTypeName.Items.AddRange(TypeName);
// comboLevel.SelectedIndex = 0;
}

private void cbTypeName_SelectedIndexChanged(object sender, EventArgs e)
{
int idx = cbTypeName.SelectedIndex;
cbAccess.Items.Clear();
cbAccess.Items.AddRange(Access[idx]);
cbAccess.SelectedIndex = 0;
}
}
}

 

คอยพบกับการเขียน File .sdf บน Pocket PC หรือ มือถือ

public Form1()
{
InitializeComponent();
engine = new SqlCeEngine("Data Source='DataFile.sdf';");
connection = new SqlCeConnection(engine.LocalConnectionString);
}

 

ดูหน้าตา DataGrid View

จะมีหน้าตาเช่นนี้

 

ดูหน้าตา ListView

มีหน้าตาดังนี้
================
ขนาดไมโครซอร์ฟยังใช้ ListView เป็นส่วนใหญ่เพราะโครงการแข็งแรงไม่อืดตอนเรียกดูข้อมูลและโปรแกรมอื่นก็เช่นกันครับ ยกเว้นบางโปรแกรมที่ใช้ DatGridView (เช่น MS Excel) อืดมากหากข้อมูลมีปริมาณมาก ๆ