untmove.~pas

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

unit UntMove;

interface

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

type
  TFrmMove = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    GroupBox3: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBLookupComboBox4: TDBLookupComboBox;
    DBLookupComboBox5: TDBLookupComboBox;
    DateTimePicker1: TDateTimePicker;
    BitBtn4: TBitBtn;
    DateTimePicker2: TDateTimePicker;
    CheckBox1: TCheckBox;
    DBGridEh1: TDBGridEh;
    DBNavigator1: TDBNavigator;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    Label13: TLabel;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    Label16: TLabel;
    DBText8: TDBText;
    Label17: TLabel;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    DBEditEh1: TDBEditEh;
    DBEdit1: TDBEdit;
    DBLookupComboBox6: TDBLookupComboBox;
    BitBtn3: TBitBtn;
    DBEdit2: TDBEdit;
    DBNavigator2: TDBNavigator;
    GroupBox2: TGroupBox;
    DBGridEh2: TDBGridEh;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh2TitleClick(Column: TColumnEh);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBLookupComboBox4Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMove: TFrmMove;

implementation
uses UntDMasset,selffunc;
{$R *.dfm}

procedure TFrmMove.BitBtn2Click(Sender: TObject);
begin
  DBGridEhToXLS(DBGridEh1);
end;

procedure TFrmMove.DBGridEh1DrawColumnCell(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 TFrmMove.DBGridEh2TitleClick(Column: TColumnEh);
begin
  DBGridTitleSort(Column);
end;

procedure TFrmMove.DBGridEh1DblClick(Sender: TObject);
var sql:string;
begin
  if Not DMasset.ADOqueryMove.FieldByName('Assetid').IsNull then
  begin
    self.PageControl1.ActivePageIndex:=1;
    sql:='';
    sql:='select * from Move where 2>1 ';
    sql:=sql+' and Assetid='+DMasset.ADOqueryMove.FieldByName('Assetid').AsString;
    myquery(sql,DMasset.ADOMove);
  end;
end;

procedure TFrmMove.BitBtn1Click(Sender: TObject);
var
  sql:string;
begin
  sql:='select * from queryMove where 2>1 ';

  if DBLookupComboBox5.KeyValue > 0 then
    sql:=sql+' and oldDepartmentID='+ IntToStr(DBLookupComboBox5.KeyValue);
  if CheckBox1.Checked then
    sql:=sql+' AND (ReturnDate Between '+'#'+DateToStr(DateTimePicker1.date)+'#'+' AND '+'#'+DateToStr(DateTimePicker2.date)+'#'+')';
  myquery(sql,DMasset.ADOqueryMove);
end;

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

procedure TFrmMove.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 TFrmMove.BitBtn3Click(Sender: TObject);
begin
  DBGridEhToXLS(DBGridEh2);
end;

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

end.