① VS2010怎麼創建windows窗體應用程序
方法/步驟 1、使用VS2010創建windows窗體應用程序。在右側的已安裝模板中,選擇Visual C#,右邊會顯示出各種項目類型。這里第一項就是Windows窗體應用程序。 2、默認狀態下,會自動生成一個窗體文件。這個窗體是主啟動窗體,當程序運行的時候會
② 在Access中怎樣建立子窗體
在Access中,有時需要在一個窗體中顯示另一個窗體中的數據。窗體中的窗體稱為子窗體,包含子窗體的窗體稱為主窗體。使用主-子窗體的作用是:以主窗體的某個欄位為依據,在子窗體中顯示與此欄位相關的記錄,而在主窗體中切換記錄時,子窗體的內容也會隨著切換。因此,當要顯示具有一對多關系的表或查詢時,主-子窗體特別有效。但是,並不意味著,主窗體和子窗體必須相關。 下面,用兩種方法創建主-子窗體:一是同時創建主窗體和子窗體,二是先建立子窗體,再建立主窗體,並將子窗體插入到主窗體中。 1.同時創建主窗體和子窗體 創建主-子窗體,要求主窗體顯示「教師」表的「教師姓名」、「所屬系」、「文化程度」和「職稱」四個基本信息,子窗體中顯示「教師任課表」的「課程編號」和「課程名稱」。操作步驟如下: (1)在「成績管理」資料庫窗口下,雙擊「使用向導創建窗體」,彈出確定數據源窗口。 (2)在「表/查詢」下拉列表框中選擇「表:教師」,並將「教師姓名」、「所屬系」、「文化程度」和「職稱」四個欄位添加到「選定的欄位」框中。 (3)再次在「表/查詢」下拉列表框中選擇「表:課程」,並將「課程編號」和「課程名稱」二個欄位添加到「選定的欄位」框中。 (4)單擊「下一步」按鈕。如果兩個表之間沒有建立關系,則會出現一個提示對話框,要求建立兩表之間的關系,確認後,可打開關系視圖,同時退出窗體向導。 如果兩表之間已經正確設置了關系,則會進入窗體向導的下一個對話框,確定查看數據的方式。這里保留默認設置。 (5)單擊「下一步」按鈕,選擇子窗體的布局,默認為「數據表」。 (6)單擊「下一步」按鈕,選擇窗體的樣式,選擇 「標准」樣式。 (7)單擊「下一步」按鈕,為窗體指定標題,分別為主窗體和子窗體添加標題:「教師任課主窗體」和「教師任課子窗體」。 (8)單擊「完成」按鈕,結束窗體向導。 這時,在「成績管理」資料庫窗口下,會看到新增的兩個窗體。如果雙擊「教師任課子窗體」,則只打開單個子窗體。如果雙擊「教師任課主窗體」,會打開主-子窗體,當主窗體中查看不同教師的記錄時,子窗體中會隨之出現該教師的任課課程。 2.創建子窗體並插入到主窗體中 窗體「學生選課主窗體」僅有學生「學號」和「姓名」欄位,窗體「學生選課子窗體」有學生選課的「課程編號」、「平時成績」和「考試成績」欄位。要求將「學生選課子窗體」插入到「學生選課主窗體」中,以便查看每個學生的選課成績。具體步驟如下: (1)在設計視圖中,以「學生選課」表為數據源,拖動「課程編號」、「平時成績」和「考試成績」欄位到設計視圖中,以縱向方式排列,命名為「學生選課子窗體」,保存退出。 (2)再打開一個新的設計視圖,以「學生」表為數據源,拖動「學號」和「姓名」欄位到設計視圖中,以橫向方式排列,適當調整控制項大小和位置。 (3)在工具箱中確保按下了「工具向導」按鈕,再選擇「子窗體/子報表」控制項按鈕 ,在窗體的主體節的合適位置單擊滑鼠,啟動子窗體向導。在「使用現有的窗體」列表框中選擇「學生選課子窗體」。 (4)單擊「下一步」按鈕,確定主窗體和子窗體鏈接的欄位。這里選取默認設置,以學生表的「學號」為依據,在子窗體顯示與此欄位相關的記錄。 (5)單擊「下一步」按鈕,指定子窗體的名稱,取默認值「學生選課子窗體」。 (6)單擊「完成」按鈕,「學生選課子窗體」插入到當前窗體中。 (7)在當前窗體(主窗體)中適當調整子窗體對象的大小至滿意為止,保存窗體,命名為「學生選課主窗體」。
③ ACCESS自動創建窗體的方式有幾種
Access中自動創建窗體的方式有6種。
Access中自動創建窗體的方式介紹:
1、從現有表或查詢創建窗體:從資料庫中的表或查詢創建窗體。
2、創建空白窗體:創建不帶控制項或預設格式的元素的窗體,即打開一個空白窗體。
3、創建分割窗體:分割窗體可以同時提供數據的兩種視圖:「窗體」視圖和「數據表」視圖。使用分割窗體可以在一個窗體中同時利用兩種窗體類型的優勢。
4、創建顯示多個記錄的窗體:多項目窗體也被稱作連續窗體,當您想要窗體顯示多個記錄同時自定義性能比數據表更強時,您可以使用「多項目」工具。
5、創建包含子窗體的窗體:在處理存儲在不同表中的相關數據時,通常需要在同一個窗體中查看來自多個表或查詢的數據,此時子窗體是實現此目的的一種簡便方法。
6、創建導航窗體:導航窗體是只包含導航控制項的窗體。導航窗體是任何資料庫的絕佳附加功能,但是,如果您計劃將資料庫發布到 Web,則創建導航窗體非常重要,因為 Access 導航窗格不會顯示在瀏覽器中。
(3)創建窗體方法與步驟擴展閱讀:
Access資料庫中窗體的用途:
1.數據的查看與輸入;
2.控制應用程序的流程;
3.自定義對話框:為用戶提供系統的信息;
4.列印資料庫信息;
5.可以通過「填寫窗體」使文檔受保護且不能復制;
參考資料來源:微軟官網-在Access中創建窗體
④ VB中如何新建窗體
vb6建立主窗體的子窗體有兩種方法:
第一種方法是建立一個MDI窗體,然後把普通的form窗體設置成它的子窗體。
第二種方法是使用Windows API設置一個普通form窗體為另外一普通窗體的子窗體。
一、先來看看如何建立MDI窗體的子窗體:
1、啟動vb6,新建一個標准EXE工程。
2、在「工程」菜單里選擇「添加MDI窗體」,
點擊「打開」,添加了一個MDIForm1窗體,
這步也可以工程窗口的窗體圖標上右鍵完成。
3、在「工程」菜單里選擇「XXX 屬性」,
在彈出的窗口裡把啟動對象設成MDIForm1。
4、在form1的屬性窗口裡,把MDIChild屬性設置為True。
5、在Private Sub MDIForm_Load()過程里添加form1.show。
6、運行程序,看到設置已經成功。
二、使用Windows API建立子窗體:
1、1、啟動vb6,新建一個標准EXE工程。
2、在「工程」菜單里選擇「添加窗體」,
點擊「打開」,添加了一個form2窗體,
這步也可以工程窗口的窗體圖標上右鍵完成。
3、雙擊form1窗體,在通用里加入以下windows API:
Private Declare Function SetParent Lib "user32.dll" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
4、在form1的Private Sub Form_Load()過程里加入
Form2.Show
SetParent Form2.hWnd, Form1.hWnd
Form2.Move 0, 0
5、運行程序,可以看form2已經是form1的子窗體了。
6、完整程序代碼如下:
Option Explicit
Private Declare Function SetParent Lib "user32.dll" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
Form2.Show
SetParent Form2.hWnd, Form1.hWnd
Form2.Move 0, 0
End Sub
⑤ 在Access中,如何創建子窗體
1、首先在打開窗體表的界面中在創建選項卡中單擊窗體設計選項
⑥ 創建窗體的方法有幾種
類CRgn創建一個新的"region"的簡單方法有以下幾個成員函數:
BOOL CRgn::CreateRectRgn( int x1, int y1, int x2, int y2 ); 創建矩形的「region」。
BOOL CRgn::CreateEllipticRgn( int x1, int y1, int x2, int y2 ); 創建圓形或橢圓形「region」。
BOOL CRgn::CreateRoundRectRgn( int x1, int y1, int x2, int y2, int x3, int y3 ); 創建圓角矩形「region」。
BOOL CRgn::CreatePolygonRgn( LPPOINT lpPoints, int nCount, int nMode ); 創建多邊形「region」。
這里以創建橢圓窗體為例,介紹橢圓窗體創建的方法。在創建橢圓「region」的CreateEllipticRgn函數中,x1,y1指橢圓所在矩形的左上角坐標,x2,y2指該矩形的右下角坐標。
下面的代碼加入到MFC對話框程序的OnInitDialog函數中,可將該對話框變成橢圓窗體:
BOOL CTestDlg::OnInitDialog()
{
CDialog::OnInitDialog();
...
⑦ 窗體的創建
列印窗體帶有用於收集和組織信息的空白區域,列印後以書面形式填充。可以用【窗體】工具欄插入窗體域來實現這些空白區域,為窗體填寫者限制位置、格式等。用戶可以用Word 來創建列印窗體,方法如下:
(1)新建一篇文檔。
(2)設計窗體版式。可以使用已有窗體作為基礎,也可利用表格來設計窗體,使窗體更加規整。
(3)添加所需文字或圖形並列出可使用的選項。如圖8-10 中的 「姓名」、「性別」及「住址」等。
(4)如果要插入用戶應答的文本框,可單擊【窗體】工具欄上的【文字型窗體域】按鈕。如果要插入列出選項(比如「是」和「否」)的復選框,請單擊文檔,然後單擊【窗體】工具欄上的【復選框型窗體域】按鈕。
⑧ excel如何創建用戶窗體
下面,創建一個簡單的用戶窗體,用於輸入「入職員工信息」數據。
設計用戶窗體
下表是個簡單的「入職員工信息」資料庫,用戶窗體用於收集信息並將數據信息保存到該資料庫中。
打開VBE,插入用戶窗體,默認名為UserForm1。按下表在用戶窗體中添加控制項並設置屬性。
完成的用戶窗體如下圖所示。
編寫代碼
1 編寫找到資料庫工作表中下一個空白行的代碼
在VBE中,插入一個類模塊,並命名為cExcelUtils,輸入下列代碼:
Function FindEmptyRow(ws As Worksheet) As LongDim lngReturn As LonglngReturn = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).RowFindEmptyRow = lngReturnEnd Function
2 編寫代碼以包含每個員工信息的值,以及存儲資料庫工作表的位置,將數據保存到資料庫
插入一個類模塊,並命名為cEmployeeInfo,添加下面的代碼在模塊的聲明部分:
Private m_lngID As LongPrivate m_strName As StringPrivate m_strSchool As StringPrivate m_blnAbility As BooleanPrivate m_blnObey As BooleanPrivate m_xlWksht As WorksheetPrivate m_oXL As cExcelUtils
前5個變數是我們在用戶窗體中要輸入的數據,以及從資料庫工作表中產生的ID欄位。變數m_xlWksht包含資料庫工作表的位置。變數m_oXL決定在哪裡放置新數據。
首先,添加數據屬性。
Property Get ID() As LongID = m_lngIDEnd Property Property Get Name() As StringName = m_strNameEnd Property Property Let Name(newName As String)m_strName = newNameEnd Property Property Get School() As StringSchool = m_strSchoolEnd Property Property Let School(newSchool As String)m_strSchool = newSchoolEnd Property Property Get Ability() As BooleanAbility = m_blnAbilityEnd Property Property Let Ability(newAbility As Boolean)m_blnAbility = newAbilityEnd Property Property Get Obey() As BooleanObey = m_blnObeyEnd Property Property Let Obey(newObey As Boolean)m_blnObey = newObeyEnd Property Property Get DBWorkSheet() As WorksheetSet DBWorkSheet = m_xlWkshtEnd Property Property Set DBWorkSheet(newSheet As Worksheet)Set m_xlWksht = newSheetEnd Property
注意,ID屬性沒有Property Let方法,因此該屬性是只讀的。
下面,添加GetNextID方法找到最後一行,從第一列中獲取值,然後增加1,以此來設置ID屬性的值。
Public Function GetNextID() As LongDim lngReturn As LonglngReturn = m_xlWksht.Cells(Rows.Count, 1).End(xlUp).Value + 1m_lngID = lngReturn '設置ID屬性 GetNextID = lngReturnEnd Function
接下來,添加初始化和清除代碼:
Private Sub Class_Initialize()Set m_oXL = New cExcelUtilsEnd Sub Private Sub Class_Terminate()Set m_oXL = NothingEnd Sub
再繼續完善該類的功能。先添加一些驗證代碼。如果Name屬性和School屬性沒有數據的話,則不會保存記錄。
Public Function ValidateData() As BooleanDim blnReturn As BooleanIf (Len(Me.Name & "") * Len(Me.School & "")) = 0 ThenblnReturn = FalseElseblnReturn = TrueEnd IfValidateData = blnReturnEnd Function
通過文本值的長度相乘,能夠決定是否填充數據。
接下來,編寫保存功能的代碼。需要知道下一個可用行的行號為數據輸入,需要知道該行所在的工作表,並且如果沒有錯誤,返回True。
Public Function Save() As BooleanDim lngNewRowNum As LongDim blnReturn As Boolean If m_xlWksht Is Nothing ThenblnReturn = FalseGoTo Exit_FunctionEnd If lngNewRowNum = m_oXL.FindEmptyRow(m_xlWksht) With m_xlWksht.Cells(lngNewRowNum, 1).Value = Me.ID.Cells(lngNewRowNum, 2).Value = Me.Name.Cells(lngNewRowNum, 3).Value = Me.School.Cells(lngNewRowNum, 4).Value = Me.Ability.Cells(lngNewRowNum, 5).Value = Me.ObeyEnd With If Err.Number = 0 ThenblnReturn = TrueEnd If Exit_Function:Save = blnReturnExit FunctionEnd Function
代碼首先檢查以確保工作表對象存在,如果不存在則返回False並退出函數。接下來,從cExcelUtils對象中獲取空行位置。然後,使用代表資料庫工作表的m_xlWksht變數,使用從類屬性中的數據填充每列。最後,檢查沒有發生錯誤,設置返回值為True,然後退出函數。
這就是cEmployeeInfo類,包含從用戶窗體中的輸入值,為任何新記錄找到下一個ID值,保存數據到工作表中下一個空行。
編寫用戶窗體代碼
在用戶窗體代碼模塊中添加下列模塊級變數:
Private m_oEmployeeInfo As cEmployeeInfoPrivate m_blnSaved As Boolean
變數m_blnSaved存儲從m_oEmployeeInfo對象的Save方法中返回的值。下面,編寫用戶窗體初始化和中止事件代碼:
Private Sub UserForm_Initialize()Set m_oEmployeeInfo = New cEmployeeInfoSet m_oEmployeeInfo.DBWorkSheet = Sheets("入職員工信息")m_oEmployeeInfo.GetNextIDlblID.Caption = m_oEmployeeInfo.IDm_blnSaved = FalseClearFormEnd Sub Private Sub UserForm_Terminate()Set m_oEmployeeInfo = NothingEnd Sub
在用戶窗體初始化時,實例化oEmployeeInfo對象,然後設置DBWorksheet屬性。然後,獲取下一個可用的ID號並將其放置到標簽中。也清除了窗體中的控制項值。
Private Sub ClearForm()Me.txtName.Value = ""Me.txtSchool.Value = ""Me.chkAbility.Value = FalseMe.chkObey.Value = FalseEnd Sub
用戶窗體中有三個命令按鈕:一個用於保存輸入的數據,一個用於清除用戶窗體數據並添加新記錄,一個用於取消數據輸入操作並且不保存數據而關閉用戶窗體。
「保存」按鈕應該執行下列功能:
發送數據到cEmployeeInfo類
驗收數據,如果數據無效則返回一條消息
如果數據有效則保存數據,並且如果保存成功則返回一條消息
保存後清除用戶窗體數據,並重設保存標志
代碼如下:
Private Sub cmdSave_Click()With m_oEmployeeInfo.Name = txtName.Text.School = txtSchool.Text.Ability = chkAbility.Value.Obey = chkObey.ValueEnd WithIf Not m_oEmployeeInfo.ValidateData ThenMsgBox "姓名和畢業院校必填", vbOKOnly, "不能保存"Exit SubElsem_blnSaved = m_oEmployeeInfo.SaveEnd IfDoAfterSave m_blnSavedEnd Sub
過程DoAfterSave用於執行清理。
Private Sub DoAfterSave(success As Boolean)If success ThenClearFormlblID.Caption = m_oEmployeeInfo.GetNextIDMsgBox "記錄已保存"ElseMsgBox "沒有保存記錄"End Ifm_blnSaved = False '重設標志End Sub
「新建」按鈕的代碼如下,在新建之前,檢查文本欄位看用戶窗體中是否有任何數據:
Private Sub cmdNew_Click()'為新記錄設置窗體 Dim iAnswer As Integer'檢查當前記錄是否被保存 If Not m_blnSaved Then '是否有輸入的文本沒有被保存 If (Len(Me.txtName.Value & "") + Len(Me.txtSchool.Value & "")) <> 0 TheniAnswer = MsgBox("有沒有保存的數據,想繼續嗎?", vbYesNo, "沒有保存數據")If iAnswer = vbYes ThenClearFormEnd IfElseClearFormEnd IfEnd IfEnd Sub
「取消」按鈕用來清除用戶窗體並關閉該用戶窗體:
Private Sub cmdCancel_Click()ClearFormUnload UserForm1End Sub
現在,運行用戶窗體來看看效果。