untmaintenance.pas

固定资产管理系统源码 资产管理 查询管理 报表管理 系统管理

unit UntMaintenance;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,UntDMasset,selffunc, DBCtrlsEh, Mask, DBCtrls, Grids, DBGridEh,
  StdCtrls, ComCtrls, Buttons, ExtCtrls;

type
  TFrmuntMaintenance = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    GroupBox3: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label17: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    CheckBox1: TCheckBox;
    BitBtn4: TBitBtn;
    DBLookupComboBox3: TDBLookupComboBox;
    DBLookupComboBox4: TDBLookupComboBox;
    DBLookupComboBox5: TDBLookupComboBox;
    Edit3: TEdit;
    BitBtn5: TBitBtn;
    DBLookupComboBox6: TDBLookupComboBox;
    DBNavigator4: TDBNavigator;
    GroupBox4: TGroupBox;
    DBGridEh4: TDBGridEh;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit2: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    BitBtn1: TBitBtn;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    DBNavigator3: TDBNavigator;
    GroupBox2: TGroupBox;
    DBGridEh3: TDBGridEh;
    TabSheet3: TTabSheet;
    Panel4: TPanel;
    DBNavigator2: TDBNavigator;
    DBGridEh2: TDBGridEh;
    TabSheet4: TTabSheet;
    Panel5: TPanel;
    DBNavigator1: TDBNavigator;
    DBGridEh1: TDBGridEh;
    Label16: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    procedure DBGridEh4DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh4TitleClick(Column: TColumnEh);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBLookupComboBox3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmuntMaintenance: TFrmuntMaintenance;

implementation

{$R *.dfm}

procedure TFrmuntMaintenance.DBGridEh4DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
//加彩色格子
    if gdSelected in State then Exit;
  if (TDBGridEh(Sender).DataSource=nil)or(TDBGridEh(Sender).DataSource.DataSet=nil) then Exit;

  if TDBGridEh(Sender).DataSource.DataSet.RecNo mod 2 = 0 then
    TDBGridEh(Sender).Canvas.Brush.Color := clInfoBk
  else
    TDBGridEh(Sender).Canvas.Brush.Color := RGB(191, 255, 223);

  TDBGridEh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);

  TDBGridEh(Sender).Canvas.Pen.Color := $00C08000;
  TDBGridEh(Sender).Canvas.MoveTo(Rect.Left, Rect.Bottom);
  TDBGridEh(Sender).Canvas.LineTo(Rect.Right, Rect.Bottom);
  TDBGridEh(Sender).Canvas.LineTo(Rect.Right, Rect.Top);
end;

procedure TFrmuntMaintenance.DBGridEh4TitleClick(Column: TColumnEh);
begin
  DBGridTitleSort(Column);
end;

procedure TFrmuntMaintenance.BitBtn3Click(Sender: TObject);
begin
  DBGridEhToXLS(DBGridEh4);
end;

procedure TFrmuntMaintenance.BitBtn4Click(Sender: TObject);
var
  i:integer;
begin //清空
  for i:=0 to self.componentcount-1 do
  begin
  if self.components[i] is TEdit then
    TEdit(self.components[i]).Text:='';
  if self.components[i] is TCheckBox then
    TCheckBox(self.components[i]).Checked:=False;
  if self.components[i] is TDBLookupComboBox then
     TDBLookupComboBox(self.components[i]).KeyValue:=null;
  end;
end;

procedure TFrmuntMaintenance.BitBtn2Click(Sender: TObject);
var
  sql:string;
begin
  sql:='SELECT * FROM queryMaintenance WHERE 2>1 ';
  if DBLookupComboBox3.KeyValue>0 then
    sql:=sql+' AND CompanyID='+IntToStr(DBLookupComboBox3.KeyValue);
  if DBLookupComboBox6.KeyValue>0 then
    sql:=sql+' AND DepartmentID='+IntToStr(DBLookupComboBox6.KeyValue);
  if DBLookupComboBox4.KeyValue>0 then
    sql:=sql+' AND FaultCategoryID='+IntToStr(DBLookupComboBox4.KeyValue);
  if Edit2.Text<>'' then
    sql:=sql+' AND MaintenancePerformedBy  like '+ '''%' + edit2.Text + '%''';
  if Edit3.Text<>'' then
    sql:=sql+' AND code  like '+ '''%' + edit3.Text + '%''';
  if DBLookupComboBox5.KeyValue>0 then
    sql:=sql+' AND PartsID='+IntToStr(DBLookupComboBox5.KeyValue);
  if CheckBox1.Checked then
    sql:=sql+' AND (MaintenanceDate Between '+'#'+DateToStr(DateTimePicker1.date)+'#'+' AND '+'#'+DateToStr(DateTimePicker2.date)+'#'+')';
  sql:=sql+' ORDER BY FaultCategoryID,PartsID,MaintenancePerformedBy,MaintenanceCost';
  myquery(sql,DMasset.ADOqueryMaintenance);
end;

procedure TFrmuntMaintenance.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Date:=now;
  DateTimePicker2.Date:=now;
end;

procedure TFrmuntMaintenance.DBLookupComboBox3Click(Sender: TObject);
var
  sql:string;
begin//处理公司点击，让部门都是这个公司的部门
  sql:='select * from Department where  CompanyID= ';
  sql:=sql+IntToStr(DBLookupComboBox3.KeyValue)+' ORDER BY DepartmentName';
  myquery(sql,DMAsset.ADODepartment);
end;

procedure TFrmuntMaintenance.BitBtn5Click(Sender: TObject);
begin
  close;
end;

end.