下载行政区划mysql表设计_行政区划数据数据库的设计(五) | 学步园

PublicClassMainFormPrivategNetInformationAsNewRegionalCodeLibrary.NET.NetInformationPrivategQueryTableAsRegionalCodeLibrary.NET.ExcelQueryTable''PrivateWithEventsgUpdateDatabaseAsNewRegionalCodeLibrary.Database.UpdateDatabasePrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfNotCheckNetworkIsAvailable()ThenExit SubShowMessage("正在下载数据信息...")

gNetInformation.DownloadInformationsFromNet()WithMe.ComboBox1

.DataSource=gNetInformation.UpdateInformationsTable

.DisplayMember="LastDate"EndWithShowMessage("")End SubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIfString.IsNullOrEmpty(Me.ComboBox1.Text)ThenExit SubIfNotCheckNetworkIsAvailable()ThenExit SubIfgQueryTableIsNothingThenShowMessage("正在启动Excel...")

gQueryTable=NewRegionalCodeLibrary.NET.ExcelQueryTableEndIfDimmAddressAsString=CType(Me.ComboBox1.SelectedItem, DataRowView).Row.Item("Address").ToString

ShowMessage(String.Format("正在下载{0}数据...",Me.ComboBox1.Text))Me.DataGridView1.DataSource=gQueryTable.Query(mAddress)

ShowMessage(String.Format("{0}共有数据{1}项",Me.ComboBox1.Text,Me.DataGridView1.RowCount))End SubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click

ClearEnvironment()End SubPrivateFunctionCheckNetworkIsAvailable()AsBooleanDimmResultAsBoolean=FalsemResult=My.Computer.Network.IsAvailableIfNotmResultThenShowMessage("本地连接无效")ElsemResult=My.Computer.Network.Ping(RegionalCodeLibrary.NET.NetConst.GOV_DEFAULT)IfNotmResultThenShowMessage(String.Format("本机没有连接Internet或发布网址{0}无效", RegionalCodeLibrary.NET.NetConst.GOV_ADDRESS))EndIfEndIfReturnmResultEnd FunctionPrivateSubShowMessage(ByValmsgAsString)Ifmsg=""Thenmsg="待命"Me.Label1.Text=String.Format("消息:{0}", msg)Me.Label1.Refresh()End SubPrivateSubMainForm_FormClosing(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.FormClosingEventArgs)HandlesMe.FormClosing

ClearEnvironment()End SubPrivateSubClearEnvironment()IfgQueryTableIsNothingThenExit SubgQueryTable.Close()

gQueryTable=Nothing''gUpdateDatabase.Dispose()End Sub''PrivateSubgUpdateDatabase_UpdateCompleted(ByValsenderAsObject,ByValmsgAsString)HandlesgUpdateDatabase.UpdateCompleted

ShowMessage(msg)'加以下代码是为了截图的Windows.Forms.Application.DoEvents()End Sub''PrivateSubComboBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesComboBox1.SelectedIndexChangedMe.DataGridView1.DataSource=NothingEnd Sub''PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickIfMe.DataGridView1.DataSourceIsNothingThenExit SubDimmDataTableAsDataTable=CType(Me.DataGridView1.DataSource, DataTable)DimmLastdateAsString=Me.ComboBox1.Text

ShowMessage(String.Format("开始更新{0}数据到数据库...", mLastdate))WithgUpdateDatabase

.OpenConnection()

.Import(mDataTable, mLastdate)

.CloseConnection()EndWithShowMessage("")End Sub''PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickDimmDataTableAsDataTableDimmLastdateAsStringMe.Button1.PerformClick()

gUpdateDatabase.OpenConnection()ForiAsInteger=Me.ComboBox1.Items.Count-1To0Step-1Me.ComboBox1.SelectedIndex=iMe.Refresh()Me.Button2.PerformClick()Me.Refresh()

mDataTable=CType(Me.DataGridView1.DataSource, DataTable)

mLastdate=Me.ComboBox1.Text

ShowMessage(String.Format("开始更新{0}数据到数据库...", mLastdate))

gUpdateDatabase.Import(mDataTable, mLastdate)

ShowMessage("")Me.Refresh()

Threading.Thread.Sleep(1000)NextgUpdateDatabase.CloseConnection()End SubEnd Class