dbgrid的问题！答得好给100分！！！

Question

1:打印dbgrid中的内容：
2：判断dbgrid中的某一列输入的东西前面7位是数值型的。

Answer 1

1.fastreport可以实现
2.建议别在dbgrid上输入，这样不好控制！

Answer 2

讲的详细点我就要dbgrid中输入。

Answer 3

判断dbgrid中的某一列输入的东西前面7位是数值型的。这样吧，输入完后把他取出，作为一个字符串处理，取前7位（有一个字符函数的），取出后再叛断是不是数值，用一个  try...except来做吧
try
strtoint('取出的前7位');
showmessage('ok');
except
showmessage('no');

Answer 4

对于第一问，请参考：
procedure TMainForm.printdbgrid(var datasource1: tdatasource;
  var dbgrid1: tdbgrid);
const //定义页边距，单位厘米
   LeftBlank=1;
   RightBlank=1;
   TopBlank=1;
   BottomBlank=1;
var
   PointX,PointY:integer;
   PointScale,PrintStep:integer;
   s:string;
   x,y,i:integer;
begin
     Application.MessageBox('打印开始','打印',32);
     //获取当前打印机的分辨率
        PointX:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/2.54);
        Pointy:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSY)/2.54);
        //根据打印机和屏幕的分辨率计算出从屏幕转换到打印机的比例　
        PointScale:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/Screen.PixelsPerInch+0.5);
        //横向打印
        printer.Orientation:=poLandscape;
        //打印的字体和大小
        printer.Canvas.Font.Name:='宋体';
        printer.canvas.Font.Size:=10;
        //根据字体的大小确定每行的高度
        s:=combobox1.text;
        PrintStep:=printer.canvas.TextHeight(s)+16;
        //打印的起点位置
        x:=PointX*LeftBlank;
        y:=PointY*TopBlank;
        //DataSource1是DBGrid1所连接的数据源
        if ((DataSource1.DataSet).Active=true) and ((DataSource1.DataSet).RecordCount>0) then
        begin
           //(DataSource1.DataSet).DisableControls;
            printer.BeginDoc;
            //2002.50.28 新增 2句
            printer.Canvas.TextOut(floor((printer.pagewidth)/2)-10,y,panel3.caption);
            y:=y+printstep;
            (DataSource1.DataSet).First;
            while not (DataSource1.DataSet).Eof do
            begin
                //打印DBGrid中的所有列
                for i:=0 to DBGrid1.FieldCount-1 do
                begin
                   //假如所要打印的列超出了打印范围，则忽略该列
                   if (x+DBGrid1.Columns.Items[i].Width*PointScale)<=(Printer.PageWidth-PointX*RightBlank) then
                   begin //画表格线
                      //每页的第一行打印表头
                      Printer.Canvas.Rectangle(x,y,x+DBGrid1.Columns.Items[i].Width*PointScale,y+PrintStep);
                      if y=(PointY*TopBlank)+printstep then   //2002.5.28新增printstep
                        Printer.Canvas.TextOut(x+8,y+8,DBGrid1.Columns[i].Title.Caption)
                      else
                        Printer.Canvas.TextOut(x+8,y+8,DBGrid1.Fields[i].asString);
                   end;
                   //计算下一列的横坐标
                   x:=x+DBGrid1.Columns.Items[i].Width*PointScale;
                end;
                if not (y=PointY*TopBlank) then
                  (DataSource1.DataSet).next;
                x:=PointX*LeftBlank;
                y:=y+PrintStep;
                //换页
                if (y+PrintStep)>(Printer.PageHeight-PointY*BottomBlank) then
                begin
                  Printer.NewPage;
                  y:=PointY*TopBlank;
                end;
            end;
            printer.EndDoc;
            (DataSource1.DataSet).First;
            (DataSource1.DataSet).EnableControls;
            Application.MessageBox('打印完成','打印',32);
        end;
end;

Answer 5

建议用ehlib中的DBGridEh,它在功能上较DBGrid有较大扩展!而且包中还有一个专门打印DBGrid的控件,只需两三条语句就能实现对DBGrid的打印.