?? unit1.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -