📄 untasset.~pas
字号:
unit UntAsset;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, frRtfExp, FR_Class, frOLEExl, FR_Desgn, FR_BarC, FR_DSet,
FR_DBSet, PrnDbgeh, Menus, DBCtrlsEh, Mask, DBCtrls, Grids, DBGridEh,
StdCtrls, ComCtrls, Buttons, ExtCtrls,
UntDMasset,selffunc,untbasic, DB, FR_E_TXT, FR_E_HTM, frexpimg;
type
TfrmAsset = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel2: TPanel;
GroupBox3: TGroupBox;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label22: TLabel;
Label23: TLabel;
Label21: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Edit1: TEdit;
DBLookupComboBox8: TDBLookupComboBox;
DBLookupComboBox10: TDBLookupComboBox;
DBLookupComboBox11: TDBLookupComboBox;
DBLookupComboBox12: TDBLookupComboBox;
BitBtn1: TBitBtn;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
BitBtn3: TBitBtn;
Edit2: TEdit;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
DBLookupComboBox9: TDBLookupComboBox;
CheckBox3: TCheckBox;
DBLookupComboBox14: TDBLookupComboBox;
Edit9: TEdit;
DBLookupComboBox2: TDBLookupComboBox;
TabSheet2: TTabSheet;
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;
Label13: TLabel;
Label14: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBLookupComboBox4: TDBLookupComboBox;
DBLookupComboBox5: TDBLookupComboBox;
DBLookupComboBox6: TDBLookupComboBox;
DBLookupComboBox7: TDBLookupComboBox;
DBDateTimeEditEh1: TDBDateTimeEditEh;
DBDateTimeEditEh2: TDBDateTimeEditEh;
DBEdit5: TDBEdit;
DBNumberEditEh1: TDBNumberEditEh;
DBEdit6: TDBEdit;
Btncopy: TBitBtn;
DBLookupComboBox13: TDBLookupComboBox;
DBEdit7: TDBEdit;
DBNavigator1: TDBNavigator;
GroupBox2: TGroupBox;
DBGridEh1: TDBGridEh;
MainMenu1: TMainMenu;
N1: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N19: TMenuItem;
N21: TMenuItem;
N20: TMenuItem;
N30: TMenuItem;
N18: TMenuItem;
N32: TMenuItem;
N2: TMenuItem;
N12: TMenuItem;
N9: TMenuItem;
N3: TMenuItem;
N11: TMenuItem;
N10: TMenuItem;
N28: TMenuItem;
N5: TMenuItem;
N27: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N26: TMenuItem;
N8: TMenuItem;
N4: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N110: TMenuItem;
N25: TMenuItem;
N31: TMenuItem;
N41: TMenuItem;
N51: TMenuItem;
N61: TMenuItem;
N71: TMenuItem;
N81: TMenuItem;
N91: TMenuItem;
N29: TMenuItem;
PrintDBGridEh1: TPrintDBGridEh;
frReport1: TfrReport;
frDBDataSet1: TfrDBDataSet;
frBarCodeObject1: TfrBarCodeObject;
frDesigner1: TfrDesigner;
frOLEExcelExport1: TfrOLEExcelExport;
frRtfAdvExport1: TfrRtfAdvExport;
Panel3: TPanel;
BitBtn2: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn9: TBitBtn;
BitBtn8: TBitBtn;
BitBtn10: TBitBtn;
BitBtn7: TBitBtn;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
DBNavigator2: TDBNavigator;
DBGridEh2: TDBGridEh;
DSqueryAsset: TDataSource;
frTIFFExport1: TfrTIFFExport;
frJPEGExport1: TfrJPEGExport;
frHTMExport1: TfrHTMExport;
DateTimePicker3: TDateTimePicker;
DateTimePicker4: TDateTimePicker;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
BitBtn11: TBitBtn;
N33: TMenuItem;
procedure BitBtn5Click(Sender: TObject);
procedure DSqueryAssetDataChange(Sender: TObject; Field: TField);
procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
procedure DBGridEh1TitleClick(Column: TColumnEh);
procedure BtncopyClick(Sender: TObject);
procedure DBLookupComboBox13Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N30Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N27Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure DBLookupComboBox5Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure DBGridEh2TitleClick(Column: TColumnEh);
procedure BitBtn10Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N110Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure N41Click(Sender: TObject);
procedure N51Click(Sender: TObject);
procedure N61Click(Sender: TObject);
procedure N71Click(Sender: TObject);
procedure N81Click(Sender: TObject);
procedure N91Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure N33Click(Sender: TObject);
procedure DBLookupComboBox14Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmAsset: TfrmAsset;
path:string;
implementation
uses UntBarcodePD,UntMove,UntMaintenance,UntData,UntAbout;
{$R *.dfm}
procedure TfrmAsset.BitBtn5Click(Sender: TObject);
var
i:integer;
begin
{关于SUMLIST的一个BUG问题：
如果你的DBGrideEH所连的TDataSet没有被打开且SumList.Active:=true ，退出程序时将会报错，且很难定位错误语句。
解决办法：在退出时手工将SumList.Active:=false;即可。}
for i:=0 to componentcount-1 do
begin
if components[i] is TDBGridEh then
TDBGridEh(components[i]).SumList.Active:=False ;
end;
close;
end;
procedure TfrmAsset.FormCreate(Sender: TObject);
begin
//初始化
self.DateTimePicker1.Date:=now;
self.DateTimePicker2.Date:=now;
path:=ExtractFileDir(Application.ExeName)+'\rpt';
end;
procedure TfrmAsset.DSqueryAssetDataChange(Sender: TObject; Field: TField);
begin //记录滚动的位置
if DSqueryAsset.DataSet.RecordCount = 0 then
Panel6.Caption := '0 / 0'
else
panel6.Caption := IntToStr(DSqueryAsset.DataSet.RecNo) + ' / ' +
IntToStr(DSqueryAsset.DataSet.RecordCount);
end;
procedure TfrmAsset.BitBtn2Click(Sender: TObject);
begin //刷新数据
DSqueryAsset.DataSet.Close;
DSqueryAsset.DataSet.Open;
end;
procedure TfrmAsset.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 TfrmAsset.DBGridEh1TitleClick(Column: TColumnEh);
begin
DBGridTitleSort(Column);
end;
procedure TfrmAsset.BtncopyClick(Sender: TObject);
//复制一条记录
var
DepartmentID,StatusID,VendorID:integer;
MakeID,ModelNumberID:integer;
begin
if DMAsset.ADOAsset.State in [dsEdit,dsInsert] then
DMAsset.ADOAsset.Post;
if not DMAsset.ADOAsset.FieldByName('Assetid').IsNull then
begin
DepartmentID:=DMAsset.ADOAsset.Fieldbyname('DepartmentID').AsInteger;
StatusID:=DMAsset.ADOAsset.Fieldbyname('StatusID').AsInteger;
VendorID:=DMAsset.ADOAsset.Fieldbyname('VendorID').AsInteger;
MakeID:=DMAsset.ADOAsset.Fieldbyname('MakeID').AsInteger;
ModelNumberID:=DMAsset.ADOAsset.Fieldbyname('ModelNumberID').AsInteger;
if not(DMAsset.ADOAsset.State in [dsinsert]) then
DMAsset.ADOAsset.Insert;
DMAsset.ADOAsset.Fieldbyname('DepartmentID').AsInteger:=DepartmentID;
DMAsset.ADOAsset.Fieldbyname('StatusID').AsInteger:=StatusID;
DMAsset.ADOAsset.Fieldbyname('VendorID').AsInteger:=VendorID;
DMAsset.ADOAsset.Fieldbyname('MakeID').AsInteger:=MakeID;
DMAsset.ADOAsset.Fieldbyname('ModelNumberID').AsInteger:=ModelNumberID;
end;
end;
procedure TfrmAsset.BitBtn1Click(Sender: TObject);
var
sql:string;
begin
//查询
sql:='SELECT * FROM queryAsset WHERE 2>1 ';
if Edit1.Text<>'' then
sql:=sql+'AND code like ' + '''%' + edit1.Text + '%''';
if Edit2.Text<>'' then
sql:=sql+' AND Employee like'+ '''%' + edit2.Text + '%''';
if DBLookupComboBox11.KeyValue > 0 then
sql:=sql+' AND DepartmentID='+IntTOStr(DBLookupComboBox11.KeyValue);
if DBLookupComboBox10.KeyValue > 0 then
sql:=sql+' AND VendorID='+IntTOStr(DBLookupComboBox10.KeyValue);
if DBLookupComboBox12.KeyValue > 0 then
sql:=sql+' AND AssetCategoryID='+IntTOStr(DBLookupComboBox12.KeyValue);
if DBLookupComboBox9.KeyValue > 0 then
sql:=sql+' AND MakeID='+IntTOStr(DBLookupComboBox9.KeyValue);
if DBLookupComboBox14.KeyValue > 0 then
sql:=sql+' AND CompanyID='+IntTOStr(DBLookupComboBox14.KeyValue);
if DBLookupComboBox2.KeyValue > 0 then
sql:=sql+' AND TypeID='+IntTOStr(DBLookupComboBox2.KeyValue);
if Edit9.Text<>'' then
sql:=sql+' AND place like'+'''%' + edit9.Text + '%''';
if CheckBox1.Checked then
sql:=sql+' AND (DateAcquired Between '+'#'+DateToStr(DateTimePicker1.date)+'#'+' AND '+'#'+DateToStr(DateTimePicker2.date)+'#'+')';
if CheckBox2.Checked and (CheckBox1.Checked=false)then
sql:=sql+' AND (DateSold Between '+'#'+DateToStr(DateTimePicker3.date)+'#'+' AND '+'#'+DateToStr(DateTimePicker4.date)+'#'+')';
if CheckBox3.Checked then
sql:=sql+' AND Not(StatusID='+IntTOStr(DBLookupComboBox8.KeyValue)+')'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -