untasset.~pas

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

  else
    if DBLookupComboBox8.KeyValue > 0 then
      sql:=sql+' AND StatusID='+IntTOStr(DBLookupComboBox8.KeyValue);

  sql:=sql+' order by DepartmentID,AssetCategoryID, MakeID, ModelNumberName,code, Employee,StatusID,VendorID';
  myquery(sql,DMAsset.ADOqueryAsset);

end;


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

procedure TfrmAsset.N16Click(Sender: TObject);
begin
  ADODataSetSort('DepartmentName',DMAsset.ADOqueryAsset);
  frReport1.LoadFromFile(path+'\groupDepartment.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N17Click(Sender: TObject);
begin
  ADODataSetSort('Employee',DMAsset.ADOqueryAsset);
  frReport1.LoadFromFile(path+'\groupEmployee.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N19Click(Sender: TObject);
begin
  ADODataSetSort('MakeID',DMAsset.ADOqueryAsset);
  frReport1.LoadFromFile(path+'\groupMake.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N21Click(Sender: TObject);
begin
  ADODataSetSort('Status',DMAsset.ADOqueryAsset);
  frReport1.LoadFromFile(path+'\groupStatus.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N20Click(Sender: TObject);
begin
  ADODataSetSort('AssetCategory',DMAsset.ADOqueryAsset);
  frReport1.LoadFromFile(path+'\groupAssetCategory.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N30Click(Sender: TObject);
begin
  ADODataSetSort('Type',DMAsset.ADOType);
  frReport1.LoadFromFile(path+'\groupType.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N18Click(Sender: TObject);
begin
  ADODataSetSort('VendorName',DMAsset.ADOqueryAsset);
  frReport1.LoadFromFile(path+'\groupVendor.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N12Click(Sender: TObject);
begin
  untbasic.frmbasic.Show;
  untbasic.frmbasic.PageControl1.ActivePageIndex:=0;
end;

procedure TfrmAsset.N9Click(Sender: TObject);
begin
  untbasic.frmbasic.Show;
  untbasic.frmbasic.PageControl1.ActivePageIndex:=2;
end;

procedure TfrmAsset.N3Click(Sender: TObject);
begin
  untbasic.frmbasic.Show;
  untbasic.frmbasic.PageControl1.ActivePageIndex:=3;
end;

procedure TfrmAsset.N11Click(Sender: TObject);
begin
  untbasic.frmbasic.Show;
  untbasic.frmbasic.PageControl1.ActivePageIndex:=1;
end;

procedure TfrmAsset.N10Click(Sender: TObject);
begin
  untbasic.frmbasic.Show;
  untbasic.frmbasic.PageControl1.ActivePageIndex:=5;
end;

procedure TfrmAsset.N5Click(Sender: TObject);
begin
  untbasic.frmbasic.Show;
  untbasic.frmbasic.PageControl1.ActivePageIndex:=6;
end;

procedure TfrmAsset.N27Click(Sender: TObject);
begin
  untbasic.frmbasic.Show;
  untbasic.frmbasic.PageControl1.ActivePageIndex:=7;
end;

procedure TfrmAsset.N6Click(Sender: TObject);
begin
  untbasic.frmbasic.Show;
  untbasic.frmbasic.PageControl1.ActivePageIndex:=4;
end;

procedure TfrmAsset.BitBtn8Click(Sender: TObject);
var
 icount:integer;
begin
  frReport1.LoadFromFile(path+'\barcode.frf');
  frReport1.StoreInDFM:=True;
  //连续打印条码
 DMAsset.ADOqueryAsset.First;
  for iCount := 0 to DMAsset.ADOqueryAsset.RecordCount - 1 do
  begin
    frReport1.PrepareReport;
    frReport1.PrintPreparedReport('',0,false,frAll);
    DMAsset.ADOqueryAsset.Next;
  end;
end;

procedure TfrmAsset.BitBtn4Click(Sender: TObject);
begin //打印条码
  frReport1.LoadFromFile(path+'\barcode.frf');
  frReport1.StoreInDFM:=True;
  frReport1.PrepareReport;
  frReport1.PrintPreparedReport('',0,false,frAll);
end;

procedure TfrmAsset.BitBtn7Click(Sender: TObject);
begin
  DBGridEhToXLS(DBGridEh2);
  //需要引用DBGridEhImpExp单元
end;

procedure TfrmAsset.BitBtn6Click(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 TfrmAsset.BitBtn3Click(Sender: TObject);
begin //打印
  PrintDBGridEh1.Preview;
end;

procedure TfrmAsset.CheckBox1Click(Sender: TObject);
begin
  if CheckBox2.Checked=true then
     CheckBox2.Checked:=false;
end;

procedure TfrmAsset.CheckBox2Click(Sender: TObject);
begin
  if CheckBox1.Checked = true then
     CheckBox1.Checked:=false;
end;

procedure TfrmAsset.N8Click(Sender: TObject);
begin
  frDesigner1.OpenDir:=path;
  frDesigner1.saveDir:=path;
  frReport1.DesignReport;
end;

procedure TfrmAsset.DBLookupComboBox5Click(Sender: TObject);
var
  sql:string;
begin//处理型号
  sql:='select * from ModelNumber where  MakeID= ';
  sql:=sql+IntToStr(DBLookupComboBox5.KeyValue)+' ORDER BY ModelNumberName';
  myquery(sql,DMAsset.ADOqueryModelNumber);
end;

procedure TfrmAsset.N23Click(Sender: TObject);
begin
  UntBarcodePD.frmBarcodePD.Show;
end;

procedure TfrmAsset.N22Click(Sender: TObject);
begin
  FrmMove.Show;
end;

procedure TfrmAsset.DBGridEh2TitleClick(Column: TColumnEh);
begin
  DBGridTitleSort(Column);
end;

procedure TfrmAsset.BitBtn10Click(Sender: TObject);
begin//异动要做的动作
  if not DMAsset.ADOqueryAsset.FieldByName('Assetid').IsNull then
  begin
    UntMove.FrmMove.Show;
    DMAsset.ADOMove.Insert;
    DMAsset.ADOMove.FieldByName('Assetid').AsInteger:=DMAsset.ADOqueryasset.FieldByName('Assetid').AsInteger;
    DMAsset.ADOMove.FieldByName('oldDepartmentID').AsInteger:=DMAsset.ADOqueryasset.FieldByName('DepartmentID').AsInteger;
  end;
end;

procedure TfrmAsset.N26Click(Sender: TObject);
begin //维修
  FrmuntMaintenance.Show;
  FrmuntMaintenance.PageControl1.ActivePageIndex:=0;
end;

procedure TfrmAsset.BitBtn9Click(Sender: TObject);
begin //维修
  if not DMAsset.ADOqueryAsset.FieldByName('Assetid').IsNull then
  begin
    FrmuntMaintenance.Show;
    FrmuntMaintenance.PageControl1.ActivePageIndex:=1;
    DMAsset.ADOMaintenance.Insert;
    DMAsset.ADOMaintenance.FieldByName('Assetid').AsInteger:=DMAsset.ADOqueryasset.FieldByName('Assetid').AsInteger;
  end;
end;

procedure TfrmAsset.N4Click(Sender: TObject);
begin
  FrmData.Show;
  FrmData.PageControl1.ActivePageIndex:=0;
end;

procedure TfrmAsset.BitBtn11Click(Sender: TObject);
var
  sql:string;
begin //编辑记录
  if not DMAsset.ADOqueryAsset.FieldByName('Assetid').IsNull then
  begin
    self.PageControl1.ActivePageIndex:=1;
    sql:='select * from Asset where  AssetID= ';
    sql:=sql+DMAsset.ADOqueryasset.FieldByName('Assetid').AsString;
    myquery(sql,DMAsset.ADOAsset);
  end;
end;

procedure TfrmAsset.N13Click(Sender: TObject);
begin
  FrmuntMaintenance.Show;
  FrmuntMaintenance.PageControl1.ActivePageIndex:=3;
end;

procedure TfrmAsset.N14Click(Sender: TObject);
begin
  FrmuntMaintenance.Show;
  FrmuntMaintenance.PageControl1.ActivePageIndex:=2;
end;

procedure TfrmAsset.N110Click(Sender: TObject);
begin
  frReport1.LoadFromFile(path+'\custom\1.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N25Click(Sender: TObject);
begin
  frReport1.LoadFromFile(path+'\custom\2.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N31Click(Sender: TObject);
begin
  frReport1.LoadFromFile(path+'\custom\3.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N41Click(Sender: TObject);
begin
  frReport1.LoadFromFile(path+'\custom\4.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N51Click(Sender: TObject);
begin
  frReport1.LoadFromFile(path+'\custom\5.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N61Click(Sender: TObject);
begin
  frReport1.LoadFromFile(path+'\custom\6.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N71Click(Sender: TObject);
begin
  frReport1.LoadFromFile(path+'\custom\7.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N81Click(Sender: TObject);
begin
  frReport1.LoadFromFile(path+'\custom\8.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N91Click(Sender: TObject);
begin
  frReport1.LoadFromFile(path+'\custom\9.frf');
  frReport1.ShowReport;
end;

procedure TfrmAsset.N29Click(Sender: TObject);
begin
  FrmAbout.Show;
end;

procedure TfrmAsset.N33Click(Sender: TObject);
var
  AppPath,file1,file2:string;
begin
  //压缩Access数据库
  AppPath:=ExtractFilePath(ParamStr(0));
  file1:=AppPath+'\db\PC.mdb';
  file2:=AppPath+'\db\Temp.mdb';
  DMAsset.ADOConn.Connected:=False;
  CompressAccess(file1,file2);
  DeleteFile(file1);
  RenameFile(file2,file1);
  DMAsset.ADOConn.Connected:=True;
end;

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

end.