?? weihu_unit.pas
字號:
unit Weihu_unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, DBCtrls, ExtCtrls, Grids, DBGrids, ComCtrls,
Mask, FR_DSet, FR_DBSet, FR_Class, frOLEExl, FR_View, FR_Shape;
type
TWeiHu_F = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
DBGrid1: TDBGrid;
RadioGroup1: TRadioGroup;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
StaticText1: TStaticText;
DBGrid2: TDBGrid;
RadioGroup2: TRadioGroup;
Panel2: TPanel;
DBNavigator2: TDBNavigator;
Button3: TButton;
Button4: TButton;
Edit2: TEdit;
StaticText2: TStaticText;
RadioGroup3: TRadioGroup;
Panel3: TPanel;
DBNavigator3: TDBNavigator;
Button5: TButton;
Edit3: TEdit;
StaticText3: TStaticText;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
MaskEdit1: TMaskEdit;
MaskEdit2: TMaskEdit;
StaticText4: TStaticText;
StaticText5: TStaticText;
StaticText6: TStaticText;
MaskEdit3: TMaskEdit;
MaskEdit4: TMaskEdit;
StaticText7: TStaticText;
MaskEdit5: TMaskEdit;
MaskEdit6: TMaskEdit;
StaticText8: TStaticText;
StaticText9: TStaticText;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
frReport1: TfrReport;
frDBDataSet1: TfrDBDataSet;
frReport2: TfrReport;
frReport3: TfrReport;
Button11: TButton;
Button12: TButton;
Button6: TButton;
DBGrid3: TDBGrid;
procedure RadioGroup1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
procedure RadioGroup3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button6Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WeiHu_F: TWeiHu_F;
implementation
{$R *.dfm}
procedure TWeiHu_F.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0
then
begin
button1.Enabled:=false;
button7.Enabled:=false;
DBNavigator1.Enabled:=true;
Datasource1.DataSet:=ADOtable1;
end
else
begin
button1.Enabled:=true;
button7.Enabled:=true;
DBNavigator1.Enabled:=false;
Datasource1.DataSet:=ADOquery1;
ADOquery1.close;
end;
end;
procedure TWeiHu_F.Button1Click(Sender: TObject);
var
sql:string;
begin
if trim(edit1.Text)='' then
showmessage('唯一號不能為空！')
else
begin
sql:='select * from (select jiaozhun.*,jibenxinxi.名稱 from jiaozhun,jibenxinxi where jiaozhun.唯一號=jibenxinxi.唯一號) where 唯一號="'+edit1.Text+'" order by 唯一號' ;
adoquery1.SQL.Clear;
adoquery1.SQL.add(sql);
adoquery1.Open;
dbgrid1.Refresh;
end;
end;
procedure TWeiHu_F.PageControl1Change(Sender: TObject);
begin
adoquery1.Close;
if pagecontrol1.ActivePageIndex=0 then
begin
radiogroup1.ItemIndex:=0;
adotable1.Active:=false;
Adotable1.TableName:='jiaozhun';
adotable1.Active:=true;
button1.Enabled:=false;
button7.Enabled:=false;
DBNavigator1.Enabled:=true;
Datasource1.DataSet:=ADOtable1;
dbgrid1.Refresh;
end;
if pagecontrol1.ActivePageIndex=1 then
begin
radiogroup2.ItemIndex:=0;
adotable1.Active:=false;
Adotable1.TableName:='jiancha';
adotable1.Active:=true;
button3.Enabled:=false;
button8.Enabled:=false;
DBNavigator2.Enabled:=true;
Datasource1.DataSet:=ADOtable1;
dbgrid2.Refresh;
end;
if pagecontrol1.ActivePageIndex=2 then
begin
radiogroup3.ItemIndex:=0;
adotable1.Active:=false;
Adotable1.TableName:='weixiu';
adotable1.Active:=true;
button5.Enabled:=false;
button9.Enabled:=false;
DBNavigator3.Enabled:=true;
Datasource1.DataSet:=ADOtable1;
dbgrid3.Refresh;
end;
end;
procedure TWeiHu_F.Button3Click(Sender: TObject);
var
sql:string;
begin
if trim(edit2.Text)='' then
showmessage('唯一號不能為空！')
else
begin
sql:='select * from (select jiancha.*,jibenxinxi.名稱 from jiancha,jibenxinxi where jiancha.唯一號=jibenxinxi.唯一號) where 唯一號="'+edit2.Text+'"';
adoquery1.SQL.Clear;
adoquery1.SQL.add(sql);
adoquery1.Open;
dbgrid2.Refresh;
end;
end;
procedure TWeiHu_F.Button5Click(Sender: TObject);
var
sql:string;
begin
if trim(edit3.Text)='' then
showmessage('唯一號不能為空！')
else
begin
sql:='select * from (select weixiu.*,jibenxinxi.名稱 from weixiu,jibenxinxi where weixiu.唯一號=jibenxinxi.唯一號) where 唯一號="'+edit3.Text+'"';
adoquery1.SQL.Clear;
adoquery1.SQL.add(sql);
adoquery1.Open;
dbgrid3.Refresh;
end;
end;
procedure TWeiHu_F.RadioGroup2Click(Sender: TObject);
begin
if RadioGroup2.ItemIndex=0
then
begin
button3.Enabled:=false;
DBNavigator2.Enabled:=true;
button8.Enabled:=false;
Datasource1.DataSet:=ADOtable1;
end
else
begin
button3.Enabled:=true;
button8.Enabled:=true;
DBNavigator2.Enabled:=false;
Datasource1.DataSet:=ADOquery1;
ADOquery1.close;
end;
end;
procedure TWeiHu_F.RadioGroup3Click(Sender: TObject);
begin
if RadioGroup3.ItemIndex=0
then
begin
button5.Enabled:=false;
DBNavigator3.Enabled:=true;
button9.Enabled:=false;
Datasource1.DataSet:=ADOtable1;
end
else
begin
button5.Enabled:=true;
DBNavigator3.Enabled:=false;
button9.Enabled:=true;
Datasource1.DataSet:=ADOquery1;
ADOquery1.close;
end;
end;
procedure TWeiHu_F.FormCreate(Sender: TObject);
begin
pagecontrol1.ActivePageIndex:=0;
adoconnection1.Connected:=true;
adoquery1.Connection:=adoconnection1;
adoquery1.Close;
adoquery1.SQL.add('select * from jiaozhun');
adoquery1.Open;
dbgrid1.refresh;
end;
procedure TWeiHu_F.Button9Click(Sender: TObject);
var
sql:string;
begin
if ((Maskedit5.Text)=' - - ') then
begin
showmessage('Date can not be null!');
maskedit5.SetFocus;
exit;
end;
if ((Maskedit6.Text)=' - - ') then
begin
showmessage('Date can not be null!');
maskedit6.SetFocus;
exit;
end;
ADOquery1.SQL.Clear;
sql:='select * from ( select weixiu.*,jibenxinxi.名稱 from weixiu,jibenxinxi where weixiu.唯一號=jibenxinxi.唯一號) where 維修日期<=#'+maskedit6.Text+'# and 維修日期>=#'+maskedit5.text+'# order by 唯一號';
ADOquery1.SQL.Add(sql);
ADOquery1.Open;
DBGrid3.Refresh;
end;
procedure TWeiHu_F.Button8Click(Sender: TObject);
var
sql:string;
begin
if ((Maskedit3.Text)=' - - ') then
begin
showmessage('Date can not be null!');
maskedit3.SetFocus;
exit;
end;
if ((Maskedit4.Text)=' - - ') then
begin
showmessage('Date can not be null!');
maskedit4.SetFocus;
exit;
end;
ADOquery1.SQL.Clear;
sql:='select * from (select jiancha.*,jibenxinxi.名稱 from jiancha,jibenxinxi where jiancha.唯一號=jibenxinxi.唯一號) where 下次檢查日期<=#'+maskedit4.Text+'# and 下次檢查日期>=#'+maskedit3.text+'# oder by 唯一號';
ADOquery1.SQL.Add(sql);
ADOquery1.Open;
DBGrid2.Refresh;
end;
procedure TWeiHu_F.Button7Click(Sender: TObject);
var
sql:string;
begin
if ((Maskedit1.Text)=' - - ') then
begin
showmessage('Date can not be null!');
maskedit1.SetFocus;
exit;
end;
if ((Maskedit2.Text)=' - - ') then
begin
showmessage('Date can not be null!');
maskedit2.SetFocus;
exit;
end;
ADOquery1.SQL.Clear;
sql:='select * from (select jiaozhun.*,jibenxinxi.名稱 from jiaozhun,jibenxinxi where jiaozhun.唯一號=jibenxinxi.唯一號) where 有效日期<=#'+maskedit2.Text+'# and jiaozhun.有效日期>=#'+maskedit1.text+'# order by 唯一號' ;
ADOquery1.SQL.Add(sql);
ADOquery1.Open;
DBGrid1.Refresh;
end;
procedure TWeiHu_F.Button10Click(Sender: TObject);
begin
frreport1.showreport;
end;
procedure TWeiHu_F.Button11Click(Sender: TObject);
begin
frreport2.ShowReport;
end;
procedure TWeiHu_F.Button12Click(Sender: TObject);
begin
frreport3.ShowReport;
end;
procedure TWeiHu_F.Button13Click(Sender: TObject);
begin
adotable1.Refresh;
end;
procedure TWeiHu_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
procedure TWeiHu_F.Button6Click(Sender: TObject);
begin
close;
end;
procedure TWeiHu_F.Button4Click(Sender: TObject);
begin
close;
end;
procedure TWeiHu_F.Button2Click(Sender: TObject);
begin
close;
end;
procedure TWeiHu_F.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
nWidth:integer;
begin
with dbgrid1.Canvas do
begin
nWidth := TextWidth(Column.Field.AsString) + 2;
if nWidth > Column.Width then Column.Width := nWidth;
end;
with tdbgrid(sender) do
begin
if ((state = [gdselected]) or (state=[gdselected,gdfocused])) then
begin
canvas.font.color :=clwhite;
canvas.brush.color :=$00c08080;
end
else
begin
if datasource.dataset.recno mod 2<>0 then
canvas.brush.color :=clwhite
else
canvas.brush.color :=$00cffefd;
end;
defaultdrawcolumncell(rect, datacol, column, state);
end;
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); //畫綠色的豎線
end;
end;
procedure TWeiHu_F.DBGrid2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
nWidth:integer;
begin
with dbGrid2.Canvas do
begin
nWidth := TextWidth(Column.Field.AsString) + 2;
if nWidth > Column.Width then Column.Width := nWidth;
end;
with tdbgrid(sender) do
begin
if ((state = [gdselected]) or (state=[gdselected,gdfocused])) then
begin
canvas.font.color :=clwhite;
canvas.brush.color :=$00c08080;
end
else
begin
if datasource.dataset.recno mod 2<>0 then
canvas.brush.color :=clwhite
else
canvas.brush.color :=$00cffefd;
end;
defaultdrawcolumncell(rect, datacol, column, state);
end;
dbGrid2.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); //畫綠色的豎線
end;
end;
procedure TWeiHu_F.DBGrid3DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
nWidth:integer;
begin
with dbGrid3.Canvas do
begin
nWidth := TextWidth(Column.Field.AsString) + 2;
if nWidth > Column.Width then Column.Width := nWidth;
end;
with tdbgrid(sender) do
begin
if ((state = [gdselected]) or (state=[gdselected,gdfocused])) then
begin
canvas.font.color :=clwhite;
canvas.brush.color :=$00c08080;
end
else
begin
if datasource.dataset.recno mod 2<>0 then
canvas.brush.color :=clwhite
else
canvas.brush.color :=$00cffefd;
end;
defaultdrawcolumncell(rect, datacol, column, state);
end;
dbGrid3.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); //畫綠色的豎線
end;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -