⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 weihu_unit.pas

📁 设备管理系统 设备管理系统
💻 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.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -