给点指教吧，加些注释，全点

my202com4 2002-12-12 10:01:19
Private Sub frmInitialize()
Dim txtW As Integer
Dim i As Integer

txtW = Me.ScaleX(DataGrid1.Font.Size, vbPoints, vbTwips)

Set DataGrid1.DataSource = Adodc1
DataGrid1.AllowAddNew = False
DataGrid1.AllowArrows = True
DataGrid1.AllowDelete = False
DataGrid1.AllowRowSizing = True
DataGrid1.AllowUpdate = False
DataGrid1.HeadLines = 1.5
DataGrid1.Splits(0).MarqueeStyle = dbgHighlightRow

For i = 1 To DataGrid1.Columns.Count - 1
DataGrid1.Columns.Remove 1
Next i
DataGrid1.Columns(0).Caption = "职工号"
DataGrid1.Columns(0).DataField = "ID"
DataGrid1.Columns(0).Width = txtW * 3 + 60
DataGrid1.Columns(0).NumberFormat = "@@@@@"

DataGrid1.Columns.Add 1
DataGrid1.Columns(1).Caption = "姓 名"
DataGrid1.Columns(1).DataField = "M_name"
DataGrid1.Columns(1).Width = txtW * 3 + 60

DataGrid1.Columns.Add 2
DataGrid1.Columns(2).Caption = "性别"
DataGrid1.Columns(2).DataField = "M_sex"
DataGrid1.Columns(2).Width = txtW * 2 + 60
DataGrid1.Columns(2).NumberFormat = "@@"

DataGrid1.Columns.Add 3
DataGrid1.Columns(3).Caption = "年龄"
DataGrid1.Columns(3).DataField = "M_age"
DataGrid1.Columns(3).Width = txtW * 2 + 60
DataGrid1.Columns(3).NumberFormat = "@@@"

DataGrid1.Columns.Add 4
DataGrid1.Columns(4).Caption = "部 门"
DataGrid1.Columns(4).DataField = "M_bm"
DataGrid1.Columns(4).Width = txtW * 3 + 60

DataGrid1.Columns.Add 5
DataGrid1.Columns(5).Caption = " 职 称 "
DataGrid1.Columns(5).DataField = "M_zc"
DataGrid1.Columns(5).Width = txtW * 5 + 60

DataGrid1.Columns.Add 6
DataGrid1.Columns(6).Caption = " 工 资 "
DataGrid1.Columns(6).DataField = "M_gz"
DataGrid1.Columns(6).Width = txtW * 6 + 60
DataGrid1.Columns(6).NumberFormat = "\￥#,###.00 "
DataGrid1.Columns(6).Alignment = dbgRight

DataGrid1.Columns.Add 7
DataGrid1.Columns(7).Caption = " 奖 金 "
DataGrid1.Columns(7).DataField = "M_jj"
DataGrid1.Columns(7).Width = txtW * 6 + 60
DataGrid1.Columns(7).NumberFormat = "\￥#,###.00 "
DataGrid1.Columns(7).Alignment = dbgRight

DataGrid1.Columns.Add 8
DataGrid1.Columns(8).Caption = " 总 计 "
DataGrid1.Columns(8).DataField = "M_zj"
DataGrid1.Columns(8).Width = txtW * 6 + 60
DataGrid1.Columns(8).NumberFormat = "\￥#,###.00 "
DataGrid1.Columns(8).Alignment = dbgRight

'设定Text1对应的字段
For i = 0 To Text1.UBound
Text1(i).Tag = DataGrid1.Columns(i).DataField
Text1(i).Alignment = dbgCenter
Text1(i).Locked = True
Next i

Adodc1.Caption = ""
change.Enabled = False
append.Enabled = False
delete.Enabled = False
cmdOK.Enabled = False
cmdCancel.Enabled = False

End Sub
...全文
25 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
lion_wing 2002-12-13
  • 打赏
  • 举报
 回复
Private Sub frmInitialize()
Dim txtW As Integer
Dim i As Integer

txtW = Me.ScaleX(DataGrid1.Font.Size, vbPoints, vbTwips)
'获取像素值的大小

Set DataGrid1.DataSource = Adodc1'指定数据源
DataGrid1.AllowAddNew = False　　'添加标志无效
DataGrid1.AllowArrows = True　　 '指标有效
DataGrid1.AllowDelete = False　　'删除标志无效
DataGrid1.AllowRowSizing = True　'行自动调整标志有效
DataGrid1.AllowUpdate = False　　'自动更新标志无效
DataGrid1.HeadLines = 1.5　　　　'头行大小
DataGrid1.Splits(0).MarqueeStyle = dbgHighlightRow

For i = 1 To DataGrid1.Columns.Count - 1
DataGrid1.Columns.Remove 1　　'删除所有行，进行初始化
Next i

　'以下是为DATAGRID每列分别设标题（CAPTION）、
　'对应数据库字段（DATAFIELD）、宽度（WIDTH）
　'格式化字符（NUMBERFORMAT）、对齐方式（ALIGNMENT）

DataGrid1.Columns(0).Caption = "职工号"
DataGrid1.Columns(0).DataField = "ID"
DataGrid1.Columns(0).Width = txtW * 3 + 60
DataGrid1.Columns(0).NumberFormat = "@@@@@"

DataGrid1.Columns.Add 1
DataGrid1.Columns(1).Caption = "姓 名"
DataGrid1.Columns(1).DataField = "M_name"
DataGrid1.Columns(1).Width = txtW * 3 + 60

DataGrid1.Columns.Add 2
DataGrid1.Columns(2).Caption = "性别"
DataGrid1.Columns(2).DataField = "M_sex"
DataGrid1.Columns(2).Width = txtW * 2 + 60
DataGrid1.Columns(2).NumberFormat = "@@"

DataGrid1.Columns.Add 3
DataGrid1.Columns(3).Caption = "年龄"
DataGrid1.Columns(3).DataField = "M_age"
DataGrid1.Columns(3).Width = txtW * 2 + 60
DataGrid1.Columns(3).NumberFormat = "@@@"

DataGrid1.Columns.Add 4
DataGrid1.Columns(4).Caption = "部 门"
DataGrid1.Columns(4).DataField = "M_bm"
DataGrid1.Columns(4).Width = txtW * 3 + 60

DataGrid1.Columns.Add 5
DataGrid1.Columns(5).Caption = " 职 称 "
DataGrid1.Columns(5).DataField = "M_zc"
DataGrid1.Columns(5).Width = txtW * 5 + 60

DataGrid1.Columns.Add 6
DataGrid1.Columns(6).Caption = " 工 资 "
DataGrid1.Columns(6).DataField = "M_gz"
DataGrid1.Columns(6).Width = txtW * 6 + 60
DataGrid1.Columns(6).NumberFormat = "\￥#,###.00 "
DataGrid1.Columns(6).Alignment = dbgRight

DataGrid1.Columns.Add 7
DataGrid1.Columns(7).Caption = " 奖 金 "
DataGrid1.Columns(7).DataField = "M_jj"
DataGrid1.Columns(7).Width = txtW * 6 + 60
DataGrid1.Columns(7).NumberFormat = "\￥#,###.00 "
DataGrid1.Columns(7).Alignment = dbgRight

DataGrid1.Columns.Add 8
DataGrid1.Columns(8).Caption = " 总 计 "
DataGrid1.Columns(8).DataField = "M_zj"
DataGrid1.Columns(8).Width = txtW * 6 + 60
DataGrid1.Columns(8).NumberFormat = "\￥#,###.00 "
DataGrid1.Columns(8).Alignment = dbgRight

　'设定Text1对应的字段
For i = 0 To Text1.UBound
Text1(i).Tag = DataGrid1.Columns(i).DataField
Text1(i).Alignment = dbgCenter
Text1(i).Locked = True
Next i

Adodc1.Caption = ""　　　　　'数据控件标题设置
'让下列控件无效
　change.Enabled = False
append.Enabled = False
delete.Enabled = False
cmdOK.Enabled = False
cmdCancel.Enabled = False

End Sub
ucos-II2.86源代码中文详细注释
ucos-II2.86源代码中文详细注释，不足之处，请多多指教
C语言贪吃蛇程序（源代码、注释完整）
C语言编写的贪吃蛇程序~~~C语言编写的贪吃蛇程序~~~C语言编写的贪吃蛇程序~~~ win-tc下实现的贪吃蛇程序，吃满20个食物可以进入下一关、共2关，新手上路欢迎大家多多指教。
android 2048 游戏 源代码
本源代码是模仿2048游戏，实现原理自定义view。里面有详细注释。其中有view两种方式，一种是纯数字，另外一种是图片，图片资源需要自己添加上去。本代码仅供参考，若引用，请注明来源。若有更好的实现，请指教。
VC++（VS2010）读写Excel文件代码（附示例）
【前言】 工作或学习中可能需要实现基于VC读\写Excel文件的功能，本人最近也遇到了该问题。中间虽经波折，但是最终还是找到了解决问题的办法。 在此跟大家分享，希望对跟我同样迷茫过的同学们有所帮助。 1、程序功能 1）打开一个excel文件; 2）显示到CListCtrl上; 3）新建一个Excel文件。 以上均在对话框中实现。 2、平台 VC++2010 3、实现方法 常用的Excel打开方式有两种 1）通过数据库打开; 2）OLE方式打开。 由于方式1）操作繁琐，经常出现莫名的错误，这里选用方式2）. 4、准备步骤 首先新建一个Dialog窗体程序，添加list control和两个按钮 1）将ExcelLib文件夹拷贝到程序目录下； 2）将Export2Excel.h，Export2Excel.cpp两个文件添加到项目； 3）包含头文件，#include "ExcelLib/Export2Excel.h" 通过以上步骤在程序中引入了可以读取Excle文件的CExport2Excel类； 5、打开excel文件 通过按钮点击打开 void CExcelTestDlg::OnBnClickedButtonOpenExcel() { //获取文件路径 CFileDialog* lpszOpenFile; CString szGetName; lpszOpenFile = new CFileDialog(TRUE,"","",OFN_FILEMUSTEXIST|OFN_HIDEREADONLY,"Excel File(*.xlsx;*.xls)|*.xls;*.xlsx",NULL); if (lpszOpenFile->DoModal()==IDOK) { szGetName = lpszOpenFile->GetPathName(); SetWindowText(szGetName); delete lpszOpenFile; } else return; //打开文件 //文件中包含多个sheet时，默认打开第一个sheet CExport2Excel Excel_example; Excel_example.OpenExcel(szGetName); //获取sheet个数 int iSheetNum = Excel_example.GetSheetsNumber(); //获取已使用表格行列数 int iRows = Excel_example.GetRowCount(); int iCols = Excel_example.GetColCount(); //获取单元格的内容 CString cs_temp = Excel_example.GetText(1,1); //AfxMessageBox(cs_temp); //List control上显示 //获取工作表列名（第一行） CStringArray m_HeadName; m_HeadName.Add(_T("ID")); for (int i=1;iGetItemCount()>0) { m_list.DeleteColumn(0); } //初始化ClistCtrl，加入列名 InitList(m_list,m_HeadName); //填入内容 //第一行是标题，所以从第2行开始 CString num; int pos; for (int row = 2;row<=iRows; row++) { pos = m_list.GetItemCount(); num.Format(_T("%d"),pos +1); m_list.InsertItem(pos,num); for (int colum=1;columDoModal()==IDOK) { szGetName = lpszOpenFile->GetPathName(); SetWindowText(szGetName); delete lpszOpenFile; } else return; //文件全名称 CString csFileName = szGetName; //需要添加的两个sheet的名称 CString csSheetName = "newSheet"; CString csSheetName2 = "newSheet2"; // 新建一个excel文件，自己写入文字 CExport2Excel Excel_example; //新建excel文件 Excel_example.CreateExcel(csFileName); //添加sheet,新加的sheet在前，也就是序号为1 Excel_example.CreateSheet(csSheetName); Excel_example.CreateSheet(csSheetName2); //操作最开始添加的sheet:(newSheet) Excel_example.SetSheet(2); //添加表头 Excel_example.WriteHeader(1,"第一列"); Excel_example.WriteHeader(2,"第二列"); //添加核心数据 Excel_example.WriteData(1,1,"数据1"); Excel_example.WriteData(1,2,"数据2"); //保存文件 Excel_example.Save(); //关闭文件 Excel_example.Close(); } 7、注意事项 1)一般单个Excel文件包含多个sheet,程序默认打开第一个； 2)指定操作sheet，使用Excel_example.SetSheet(2)函数; 3）打开文件时最左侧的sheet序号为1，新建excel时最新添加的sheet序号为1. 【后记】 本程序主要基于网络CSDN中---“Excel封装库V2.0”---完成，下载地址是：http://download.csdn.net/detail/yeah2000/3576494，在此表示感谢！同时， 1）在其基础上作了小改动，改正了几个小错误，添加了几个小接口； 2）添加了如何使用的例子，原程序是没有的； 3）详细的注释 发现不足之处，还请大家多多指教！
JavaScript注释的运用
JavaScript注释 JavaScript注释的作用是提高代码的可读性，更通俗易懂，便于理解或者是便于区分。 JavaScript单行注释 单行注释以 // 开头。 JavaScript多行注释 多行注释以 /* 开始，以 */ 结尾。 顾名思义多行注释就是在注释内我们可以写入多行 JavaScript并不会执行注释。我们添加注释只是来对 JavaScript 进行解释，或者提高代 码的可读性。 用注释来阻止代码的运行 举个例子，这是一串代码 ...
数据库(包含打印，安装，报表)

1,216

社区成员

55,954

社区内容

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印，安装，报表)
社区管理员
  • 数据库(包含打印，安装，报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章