unit1.~pas

本人写的delphi例子

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure DBGrid1ColExit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
  uses unit2;
{$R *.dfm}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var i :integer;
begin
 if gdSelected in State then Exit;
//定义表头的字体和背景颜色：
   for i :=0 to (Sender as TDBGrid).Columns.Count-1 do
   begin
     (Sender as TDBGrid).Columns[i].Title.Font.Name :='宋体'; //字体
     (Sender as TDBGrid).Columns[i].Title.Font.Size :=9; //字体大小
     (Sender as TDBGrid).Columns[i].Title.Font.Color :=$000000ff; //字体颜色(红色)
     (Sender as TDBGrid).Columns[i].Title.Color :=$0000ff00; //背景色(绿色)
   end;
//隔行改变网格背景色：
 if ADOQuery1.RecNo mod 2 = 0 then
   (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk //定义背景颜色
 else
   (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); //定义背景颜色
//定义网格线的颜色：
   DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
 with (Sender as TDBGrid).Canvas do //画 cell 的边框
 begin
   Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
   MoveTo(Rect.Left, Rect.Bottom); //画笔定位
   LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
   Pen.Color := $0000ff00; //定义画笔颜色(绿色)
   MoveTo(Rect.Right, Rect.Top); //画笔定位
   LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
   if ADOQuery1.FieldByName('序号').AsInteger > 3 then
     DBGrid1.Canvas.Font.Color := clred;
   DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
   if ADOQuery1.FieldByName('牌子').Asstring ='HGADNG' then
     DBGrid1.Canvas.Font.Color := clgreen;
   DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  
 end;
end; 


procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
//if (gdFocused in State) then
// begin
  // if (Field.FieldName = DBComboBox1.DataField ) then
  // begin
  //   DBComboBox1.Left := Rect.Left + DBGrid1.Left;
  //   DBComboBox1.Top := Rect.Top + DBGrid1.top;
  //   DBComboBox1.Width := Rect.Right - Rect.Left;
   //  DBComboBox1.Height := Rect.Bottom - Rect.Top;
   //  DBComboBox1.Visible := True;
  // end;
 //end;

end;

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
//If DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then
  // begin
   //  DBComboBox1.Visible := false;
  // end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
 var
  pz,xh,bzj,yx,yz,zddj,jddj,qt:string;
 codebm:string;
begin
with ADOQuery2 do  begin
close;
sql.Clear;
sql.Add('select 编号 from 牌子 where 名称='+'edit1.text');
//sql.Add(')
end;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
// var
//excelapp,myworkbook:variant;
   //       i:integer;
  begin   
       // screen.Cursor:=crhourglass;
       // unit2.Visible:=true;
      // unit2.MaxValue:=ADOQuery1.RecordCount;
       //   try
         //     ExcelApp:=CreateOleObject('Excel.Application');
          //      label1.Caption:='正在导入数据...';
          //    MyWorkBook:=CreateOleobject('Excel.Sheet');
         // except
         //     application.Messagebox('无法打开Xls文件，请确认已   经安装EXCEL.',
  //'',mb_OK+mb_IconStop);
         //     Exit;
        //  end;
        //  MyworkBook:=ExcelApp.workBooks.Add;
        //    MyWorkBook.WorkSheets[1].cells[1,1].value:='车号'   ;
        //    MyWorkBook.WorkSheets[1].cells[1,2].value:='驾驶员';
        //    MyWorkBook.WorkSheets[1].cells[1,3].value:='客户单位';
          //  MyWorkBook.WorkSheets[1].cells[1,4].value:='起讫点';
          //  MyWorkBook.WorkSheets[1].cells[1,5].value:='日期';
          //  MyWorkBook.WorkSheets[1].cells[1,6].value:='贷物';
          //  MyWorkBook.WorkSheets[1].cells[1,7].value:='数量';
          //  MyWorkBook.WorkSheets[1].cells[1,8].value:='单位';
          //  MyWorkBook.WorkSheets[1].cells[1,9].value:='单价';
          //  MyWorkBook.WorkSheets[1].cells[1,10].value:='行程';
          //  MyWorkBook.WorkSheets[1].cells[1,11].value:='运输费';
          //  MyWorkBook.WorkSheets[1].cells[1,12].value:='过路费';
          //  MyWorkBook.WorkSheets[1].cells[1,13].value:='实绩';
          //  MyWorkBook.WorkSheets[1].cells[1,14].value:='经办人';
        //  i:=2;
        //  with   ADOQuery1  do   begin
             //   DisableControls   ;
                 //   first;
             // while   not   eof   do   begin
                 // g1.Progress   :=RecNo;
                 //   MyWorkBook.WorkSheets[1].cells[i,1].value:=fieldbyname('num').asstring;
                 //   MyWorkBook.WorkSheets[1].cells[i,2].value:=fieldbyname('dname').asstring;
                //    MyWorkBook.WorkSheets[1].cells[i,3].value:=fieldbyname('cust').asstring;
                  //  MyWorkBook.WorkSheets[1].cells[i,4].value:=fieldbyname('daddr').asstring;
                  //  MyWorkBook.WorkSheets[1].cells[i,5].value:=fieldbyname('date1').asstring;
                  //  MyWorkBook.WorkSheets[1].cells[i,6].value:=fieldbyname('hwu').asstring;
                  //  MyWorkBook.WorkSheets[1].cells[i,7].value:=fieldbyname('sliang').asstring;
                  //  MyWorkBook.WorkSheets[1].cells[i,8].value:=fieldbyname('danwei').asstring;
                  //  MyWorkBook.WorkSheets[1].cells[i,9].value:=fieldbyname('djia').asstring;
                  //  MyWorkBook.WorkSheets[1].cells[i,10].value:=fieldbyname('xingch').asstring;
                  //  MyWorkBook.WorkSheets[1].cells[i,11].value:=fieldbyname('ysfei').asstring;
                  //  MyWorkBook.WorkSheets[1].cells[i,12].value:=fieldbyname('glfei').asstring;
                  //  MyWorkBook.WorkSheets[1].cells[i,13].value:=fieldbyname('score').asstring;
                 //   MyWorkBook.WorkSheets[1].cells[i,14].value:=fieldbyname('getman').asstring;
                  //    i:=i+1;
                 //     next;
              end;   
    
    
          //在此处插入读数据库及写Excel文档的代码   
    
    
   // end;
           //   screen.Cursor:=crdefault;
            //  table1.EnableControls   ;
            //  g1.Visible:=false;
            //  label1.Caption   :='';
             // excelapp.visible:=true;
     // end;   


end.