Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: haquocquan 18-11-10, 01:07 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (1) |
Mã:
Option Compare Database
'Khai bao cac hang
Const SPI_GETNONCLIENTMETRICS = 41
Const SPI_SETNONCLIENTMETRICS = 42
Const SPI_GETICONTITLELOGFONT = 31
Const SPI_SETICONTITLELOGFONT = 34
Const LF_FACESIZE = 32
'Khai bao cac kieu
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName As String * 32
End Type
Private Type NONCLIENTMETRICS
cbSize As Long
iBorderWidth As Long
iScrollWidth As Long
iScrollHeight As Long
iCaptionWidth As Long
iCaptionHeight As Long
lfCaptionFont As LOGFONT
iSMCaptionWidth As Long
iSMCaptionHeight As Long
lfSMCaptionFont As LOGFONT
iMenuWidth As Long
iMenuHeight As Long
lfMenuFont As LOGFONT
lfStatusFont As LOGFONT
lfMessageFont As LOGFONT
End Type
'Khai bao cac bieb thuoc kieu tren
Dim m_nonClientMetrics As NONCLIENTMETRICS
Dim m_logFont As LOGFONT
'Khai bao cac bien chua so do font
Dim m_fontCaption As String * 32
Dim m_fontSmCaption As String * 32
Dim m_fontMenu As String * 32
Dim m_fontMessage As String * 32
Dim m_fontStatus As String * 32
Dim m_fontIcon As String * 32
Dim m_fontHeight As Long, m_fontWeight As Long
'Khai bao ham API can dung
Private Declare Function SystemParametersInfo _
Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, _
ByVal uParam As Long, _
ByRef lpvParam As Any, _
ByVal fuWinIni As Long) As Long
'Thu tuc thiet lap so do font he thong
Public Function SetSysFont(fontName As String)
Dim result As Long
'*****************************
'Truy xuat so do font hien tai
m_nonClientMetrics.cbSize = Len(m_nonClientMetrics)
result = SystemParametersInfo(SPI_GETNONCLIENTMETRICS, _
Len(m_nonClientMetrics), _
m_nonClientMetrics, 0)
result = SystemParametersInfo(SPI_GETICONTITLELOGFONT, _
Len(m_logFont), _
m_logFont, 0)
'**********************************
'Luu lai cac font he thong hien tai
'Luu lai font hien thi Caption
m_fontCaption = m_nonClientMetrics.lfCaptionFont.lfFaceName
m_fontHeight = m_nonClientMetrics.lfCaptionFont.lfHeight
m_fontWeight = m_nonClientMetrics.lfCaptionFont.lfWeight
'Luu lai font hien thi Caption nho
m_fontSmCaption = m_nonClientMetrics.lfSMCaptionFont.lfFaceName
'Luu lai font hien thi hop thoai thong bao
m_fontMessage = m_nonClientMetrics.lfMessageFont.lfFaceName
'Luu lai font Menu
m_fontMenu = m_nonClientMetrics.lfMenuFont.lfFaceName
'************************************
'Thay doi font
'font hien thi Caption
m_nonClientMetrics.lfCaptionFont.lfFaceName = fontName & vbNullChar
m_nonClientMetrics.lfCaptionFont.lfWeight = 700
m_nonClientMetrics.lfCaptionFont.lfHeight = -12
'font hien thi Caption nho
m_nonClientMetrics.lfSMCaptionFont.lfFaceName = fontName & vbNullChar
m_nonClientMetrics.lfSMCaptionFont.lfHeight = -12
'font hien thi hop thoai thong bao
m_nonClientMetrics.lfMessageFont.lfFaceName = fontName & vbNullChar
m_nonClientMetrics.lfMessageFont.lfHeight = -12
'font hien thi menu
m_nonClientMetrics.lfMenuFont.lfFaceName = fontName & vbNullChar
m_nonClientMetrics.lfMenuFont.lfHeight = -12
'thuc hien thay doi
result = SystemParametersInfo(SPI_SETNONCLIENTMETRICS, _
Len(m_nonClientMetrics), _
m_nonClientMetrics, 0)
result = SystemParametersInfo(SPI_SETICONTITLELOGFONT, _
Len(m_logFont), _
m_logFont, 0)
End Function
'Thu tuc thiet lap lai so do font cu
Public Sub restoreSysFont()
'font hien thi Caption
m_nonClientMetrics.lfCaptionFont.lfFaceName = m_fontCaption
m_nonClientMetrics.lfCaptionFont.lfHeight = m_fontHeight
m_nonClientMetrics.lfCaptionFont.lfWeight = m_fontWeight
'font hien thi Caption nho
m_nonClientMetrics.lfSMCaptionFont.lfFaceName = m_fontSmCaption
m_nonClientMetrics.lfSMCaptionFont.lfHeight = m_fontHeight
'font hien thi hop thoai thong bao
m_nonClientMetrics.lfMessageFont.lfFaceName = m_fontMessage
m_nonClientMetrics.lfMessageFont.lfHeight = m_fontHeight
'font hien thi menu
m_nonClientMetrics.lfMenuFont.lfFaceName = m_fontMenu
m_nonClientMetrics.lfMenuFont.lfHeight = m_fontHeight
'thuc hien thay doi
result = SystemParametersInfo(SPI_SETNONCLIENTMETRICS, _
Len(m_nonClientMetrics), _
m_nonClientMetrics, 0)
result = SystemParametersInfo(SPI_SETICONTITLELOGFONT, _
Len(m_logFont), _
m_logFont, 0)
End SubKhi cần Set fonts cho hệ thống, gọi: (ví dụ font TAHOMA)
Mã:
SetSysFont ("Tahoma")Khôi phục lại font ban đầu, gọi:
Mã:
restoreSysFont()Nguồn: sưu tầm
|
Viết bởi: Noname 16-11-10, 09:46 PM Chuyên mục: Query - Không có hồi đáp |
Mã:
ALTER TABLE table {ADD {COLUMN field type[(size)] [NOT NULL] [CONSTRAINT index] |
ALTER COLUMN field type[(size)] |
CONSTRAINT multifieldindex} |
DROP {COLUMN field I CONSTRAINT indexname} }The ALTER TABLE statement has these parts:
Part Description
table The name of the table to be altered.
field The name of the field to be added to or deleted from table. Or, the name of the field to be altered in table.
type The data type of field.
size The field size in characters (Text and Binary fields only).
index The index for field.
multifieldindex The definition of a multiple-field index to be added to table.
indexname The name of the multiple-field index to be removed.
Remarks
Using the ALTER TABLE statement you can alter an existing table in several ways. You can:
•Use ADD COLUMN to add a new field to the table. You specify the field name, data type, and (for Text and Binary fields) an optional size. For example, the following statement adds a 25-character Text field called Notes to the Employees table:
Mã:
ALTER TABLE Employees ADD COLUMN Notes TEXT(25)You can also define an index on that field.
If you specify NOT NULL for a field then new records are required to have valid data in that field.
•Use ALTER COLUMN to change the data type of an existing field. You specify the field name, the new data type, and an optional size for Text and Binary fields. For example, the following statement changes the data type of a field in the Employees table called ZipCode (originally defined as Integer) to a 10-character Text field:
Mã:
ALTER TABLE Employees ALTER COLUMN ZipCode TEXT(10)•Use ADD CONSTRAINT to add a multiple-field index.
•Use DROP COLUMN to delete a field. You specify only the name of the field.
•Use DROP CONSTRAINT to delete a multiple-field index. You specify only the index name following the CONSTRAINT reserved word.
Notes
•You cannot add or delete more than one field or index at a time.
•You can use the CREATE INDEX statement to add a single- or multiple-field index to a table, and you can use ALTER TABLE or the DROP statement to delete an index created with ALTER TABLE or CREATE INDEX.
•You can use NOT NULL on a single field or within a named CONSTRAINT clause that applies to either a single field or to a multiple-field named CONSTRAINT. However, you can apply the NOT NULL restriction only once to a field. Attempting to apply this restriction more than once restuls in a run-time error.
Dưới đây là 1 demo thay đổi độ rộng field key, mời các bạn xem:
http://dl.dropbox.com/u/14777478/sharedi...ldsize.zip
|
|
Viết bởi: Noname 15-11-10, 09:32 AM Chuyên mục: Quán cóc - Bài trả lời (1) |
Chúng ta hẳn đã rất quen thuộc với những vạch kẻ màu trắng trên các con đường nhưng tại Việt Nam, việc kẻ những vạch phân cách này vẫn rất thủ công. Và để biết được công nghệ đã len lỏi đến những ngóc ngách nào trong cuộc sống, mời các bạn xem đoạn video dưới đây. Trong video chúng ta sẽ thấy một chiếc máy khá lạ tạm gọi là "máy in đường". Không trải nhựa đường thông thường, chiếc máy này trải những viên gạch lát đường đã được sơn màu trắng và được sắp xếp theo thứ tự. Máy đi đến đâu, lớp gạch được trải lên mặt đường đến đó, rất công nghiệp và nhanh. Tại Việt Nam thì hầu như không có loại đường lát gạch ngoại trừ vỉa hè, con đường trong video nằm ở tỉnh Sprang-Capelle, Hà Lan.
thật hiện đại
![[Hình: 32.gif]](http://www.thugian360.com/images/smilies/32.gif)
Sưu tầm từ :ChangUonDyU- mybbvn.com
|
|
Viết bởi: Noname 14-11-10, 11:34 PM Chuyên mục: Quán cóc - Bài trả lời (3) |
Em hay lãng đãng tiếng mưa
Ước nhòa môi mắt thấm vừa yêu thương
Tiếng mưa từng giọt hòa với tiếng piano mênh mang quá. Anh thấy tim mình rơi rơi, trôi trôi về phương ấy. Nơi có người đang đưa tay ngoài mưa, từng giọt từng giọt rơi qua kẽ tay người.
Cho anh mong nhớ từng ngày, cho anh thao thức từng đêm.Tiếng mưa rơi rơi ngoài hiên mà như trong lòng anh đọng từng giọt, rơi qua từng ngón tay mềm người ấy…
Ngoài trời vẫn mưa, sấm run như trong anh gào thét…Nhớ…
Noname 15.11.10
|
Viết bởi: DoquangLam 14-11-10, 09:59 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (73) |
- Chạy file “QuanLyBanHang”
- Mật khẩu : admin
Đây là chương trình tự biên của minh. Nhờ bạn Noname xem xét sơ bộ rồi giới thiệu để mọi người có nhu cầu sử dụng nhé. Cám ơn.
=================================================
Nâng Cấp 06/12/10
- Có thể bạn chưa tạo thư mục D:\QLBH
- Trong thư mục D:\QLBH phải có thư mục Data và file QuanLyBanHang
- Trong thư mục Data có file .mdb
- Chạy file QuanLyBanHang
- Mật khẩu : admin
Download
Link2: http://dl.dropbox.com/u/14777478/sharediendan/QLBH.zip
Mình xin gửi bản đã được nâng cấp.
Xin cám ơn !
| Chủ đề Mới nhất |
| CoinMinutes Việt Nam Tri ... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: davidsmithmq-3 Giờ trước- » Bài trả lời: 0- » Lượt xem: 4 |
| Entente EE88 -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ee88grado-7 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| Best Child Porn -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: dmjproahf-10 Giờ trước- » Bài trả lời: 0- » Lượt xem: 3 |
| Treaty EE88 -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ee88grado-Hôm nay, 07:11 AM- » Bài trả lời: 0- » Lượt xem: 2 |
| Giup minh voi -Chuyên mục: Query-Đăng bởi lần cuối: GeorgeGab-Hôm nay, 06:23 AM- » Bài trả lời: 6- » Lượt xem: 852 |
| Introduction to EE88 -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: ee88slert-Hôm nay, 01:33 AM- » Bài trả lời: 0- » Lượt xem: 2 |
| offtopic -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: nalarsonre-Hôm nay, 01:24 AM- » Bài trả lời: 0- » Lượt xem: 3 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: thaominhtam-11-09-25, 11:47 AM- » Bài trả lời: 69- » Lượt xem: 5,496 |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,119 |
| Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 693 |
| Diễn đàn Thống kê |
|
» Thành viên: 6,453 » Thành viên mới nhất: HyeRoof775 » Các chủ đề diễn đàn: 9,904 » Các bài viết diễn: 48,832 Thống kê đầy đủ |