📄 card_inout.pas
字号:
unit Card_InOut;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BaseEditForm, ImgList, DB, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls,
ComCtrls, StdCtrls, Buttons, ppDB, ppDBPipe, ppBands, ppCtrls, ppPrnabl,
ppClass, ppCache, ppComm, ppRelatv, ppProd, ppReport, ADODB, Wwdatsrc,
Mask, DBCtrls, Spin, wwdblook, ppVar, ppViewr, wwdbdatetimepicker;
type
TfCard_InOut = class(TfBaseEditForm)
ADOQ_Card_InOut: TADOQuery;
ppReport1: TppReport;
ppHeaderBand1: TppHeaderBand;
ppLabel1: TppLabel;
ppLabel2: TppLabel;
ppLabel3: TppLabel;
ppLabel4: TppLabel;
ppLabel5: TppLabel;
ppLabel7: TppLabel;
ppLabel8: TppLabel;
ppLine1: TppLine;
ppDetailBand1: TppDetailBand;
ppDBText1: TppDBText;
ppDBText2: TppDBText;
ppDBText3: TppDBText;
ppDBText4: TppDBText;
ppDBText6: TppDBText;
ppDBText7: TppDBText;
ppFooterBand1: TppFooterBand;
TabSheet1: TTabSheet;
Panel4: TPanel;
Label3: TLabel;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
BitBtn1: TBitBtn;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
ComboBox1: TComboBox;
BitBtn2: TBitBtn;
wwDBGrid2: TwwDBGrid;
ppDBPipeline1: TppDBPipeline;
Label2: TLabel;
Label5: TLabel;
Label6: TLabel;
DBEdit4: TDBEdit;
TreeView: TTreeView;
ImageList: TImageList;
Panel3: TPanel;
Label8: TLabel;
DateTimePicker3: TDateTimePicker;
DateTimePicker4: TDateTimePicker;
BitBtn3: TBitBtn;
CheckBox3: TCheckBox;
Splitter1: TSplitter;
ppLine3: TppLine;
ppLine4: TppLine;
ppLine5: TppLine;
ppLine6: TppLine;
ppLine7: TppLine;
ppLine8: TppLine;
ppLine10: TppLine;
ppLine11: TppLine;
ppLine12: TppLine;
ppLabel9: TppLabel;
ppLine13: TppLine;
ppLine2: TppLine;
ppLine14: TppLine;
ppLine15: TppLine;
ppLine16: TppLine;
ppLine17: TppLine;
ppLine18: TppLine;
ppLine20: TppLine;
ppLabel21: TppLabel;
ppSystemVariable1: TppSystemVariable;
ppLine21: TppLine;
ppLine22: TppLine;
ppSystemVariable2: TppSystemVariable;
DBLookupListBox1: TDBLookupListBox;
DBEdit1: TDBEdit;
wwDBDateTimePicker1: TwwDBDateTimePicker;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
CheckBox4: TCheckBox;
SpinEdit1: TSpinEdit;
Label7: TLabel;
CheckBox5: TCheckBox;
DateTimePicker5: TDateTimePicker;
Label4: TLabel;
DateTimePicker6: TDateTimePicker;
CheckBox6: TCheckBox;
ppLine9: TppLine;
ppLine19: TppLine;
ppLabel6: TppLabel;
ppLine23: TppLine;
ppDBText5: TppDBText;
ppLine24: TppLine;
ppLine25: TppLine;
ppLabel10: TppLabel;
ppSummaryBand1: TppSummaryBand;
ppDBCalc1: TppDBCalc;
ppLine26: TppLine;
ppLabel11: TppLabel;
ppLabel12: TppLabel;
procedure FormCreate(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure TreeViewGetImageIndex(Sender: TObject; Node: TTreeNode);
procedure TreeViewGetSelectedIndex(Sender: TObject; Node: TTreeNode);
procedure BitBtn3Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure TreeViewClick(Sender: TObject);
procedure PageControlChange(Sender: TObject);
procedure ppReport1PreviewFormCreate(Sender: TObject);
procedure DBLookupListBox1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure ADOQ_Card_InOutAfterInsert(DataSet: TDataSet);
procedure CheckBox4Click(Sender: TObject);
procedure CheckBox5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fCard_InOut: TfCard_InOut;
implementation
uses DataMod;
{$R *.dfm}
procedure TfCard_InOut.FormCreate(Sender: TObject);
begin
inherited;
if not ADOQ_Card_InOut.Active then ADOQ_Card_InOut.Active:=True;
DateTimepicker1.Date:=Date-1;
DateTimepicker2.Date:=Date; // IncMonth(Date);
DateTimepicker3.Date:=Date-1;
DateTimepicker4.Date:=Date;
DateTimepicker5.Date:=Date-1;
DateTimepicker6.Date:=Date;
fdatamod.PersonnelTreeIni(Treeview,true);
self.WindowState :=wsMaximized;
fdatamod.ListDepartMent(combobox1.Items);
bitbtn1.Click ;
bitbtn3.Click ;
end;
procedure TfCard_InOut.CheckBox2Click(Sender: TObject);
begin
inherited;
combobox1.Enabled :=Checkbox2.Checked ;
end;
procedure TfCard_InOut.BitBtn1Click(Sender: TObject);
begin
with AdoQuery1 do
begin
Close;
Sql.Clear ;
Sql.Add('Select * From V_Worker_InOutDetail where 1=1');
if checkbox1.Checked then
Begin
Sql.Add('And Convert(Varchar(10),tOut,111) between '''+FormatDateTime('yyyy/mm/dd',dateTimepicker1.date)+'''');
Sql.add('And '''+FormatDateTime('yyyy/mm/dd',dateTimepicker2.date)+'''');
end;
if checkbox5.Checked then
Begin
Sql.Add('And Convert(Varchar(10),tIn,111) between '''+FormatDateTime('yyyy/mm/dd',dateTimepicker5.date)+'''');
Sql.add('And '''+FormatDateTime('yyyy/mm/dd',dateTimepicker6.date)+'''');
end;
if checkbox4.Checked then
Sql.Add('And iMinutes>='+IntToStr(spinedit1.Value ));
if checkbox6.Checked then
Sql.Add('and tIn is null');
if checkbox2.Checked then
sql.Add('and cDepartMentNo='''+tItem(combobox1.Items.Objects[combobox1.itemindex]).ItemID+'''');
Sql.Add('Order by cWorkerNo,tOut');
Open;
end;
end;
procedure TfCard_InOut.BitBtn2Click(Sender: TObject);
begin
inherited;
Self.ppReport1.Print;
end;
procedure TfCard_InOut.TreeViewGetImageIndex(Sender: TObject;
Node: TTreeNode);
begin
inherited;
if Node.HasChildren then begin
if Node.Expanded then
Node.ImageIndex :=3
else
Node.ImageIndex :=0;
end else
Node.ImageIndex :=1
end;
procedure TfCard_InOut.TreeViewGetSelectedIndex(Sender: TObject;
Node: TTreeNode);
begin
inherited;
Node.SelectedIndex:=Node.ImageIndex ;
end;
procedure TfCard_InOut.BitBtn3Click(Sender: TObject);
begin
inherited;
With ADOQ_Card_InOut do
Begin
Close;
Sql.Clear ;
sql.Add(' Select * from V_Worker_InOut Where 1=1 ');
if checkbox3.checked then begin
Sql.add('And Convert(Varchar(10),tTime,111)>='''+formatdateTime('yyyy/mm/dd',DateTimepicker3.date)+'''');
Sql.add('And Convert(Varchar(10),tTime,111)<='''+formatdateTime('yyyy/mm/dd',DateTimepicker4.date)+'''');
end;
if (Treeview.Selected <>nil) and (Treeview.Selected.Level>0) then begin
if Treeview.Selected.Level =1 then
Sql.Add('And cDepartMentNo='''+TItem(Treeview.Selected.Data).ItemID+'''')
else
Sql.Add('And cWorkerNo='''+TItem(Treeview.Selected.Data).ItemID+'''');
end;
Sql.Add(' order by cWorkerNo,tTime');
Open;
end;
end;
procedure TfCard_InOut.CheckBox3Click(Sender: TObject);
begin
inherited;
DateTimepicker3.Enabled :=checkbox1.Checked ;
DateTimepicker4.Enabled :=checkbox1.Checked ;
Label8.Enabled :=checkbox1.Checked ;
bitbtn3.Click ;
end;
procedure TfCard_InOut.TreeViewClick(Sender: TObject);
begin
inherited;
bitbtn3.Click ;
end;
procedure TfCard_InOut.PageControlChange(Sender: TObject);
begin
// inherited;
if PageControl.ActivePageIndex=2 then
WindowState :=wsNormal
else
WindowState :=wsMaximized;
end;
procedure TfCard_InOut.ppReport1PreviewFormCreate(Sender: TObject);
begin
inherited;
ppReport1.PreviewForm.WindowState := wsMaximized;
//TppViewer(ppReport1.PreviewForm.Viewer).ZoomSetting := zsPageWidth;
end;
procedure TfCard_InOut.DBLookupListBox1Click(Sender: TObject);
begin
inherited;
if not (Self.DataSource.State in [dsInsert,dsEdit]) then Exit;
Self.ADOQ_Card_InOut.FieldByName('cCardNo').Value:=Self.DBLookupListBox1.SelectedItem;
DBEdit4.SetFocus;
end;
procedure TfCard_InOut.CheckBox1Click(Sender: TObject);
begin
inherited;
DateTimepicker1.Enabled :=checkbox1.Checked ;
DateTimepicker2.Enabled :=checkbox1.Checked ;
Label3.Enabled :=checkbox1.Checked ;
end;
procedure TfCard_InOut.ADOQ_Card_InOutAfterInsert(DataSet: TDataSet);
begin
inherited;
DBEdit4.SetFocus;
ADOQ_Card_InOut.FieldByName('iMachineID').Value:=2;
ADOQ_Card_InOut.FieldByName('tTime').Value:=Now;
end;
procedure TfCard_InOut.CheckBox4Click(Sender: TObject);
begin
inherited;
spinedit1.Enabled :=checkbox4.Checked ;
label4.Enabled:=checkbox4.Checked ;
end;
procedure TfCard_InOut.CheckBox5Click(Sender: TObject);
begin
DateTimepicker5.Enabled :=checkbox5.Checked ;
DateTimepicker6.Enabled :=checkbox5.Checked ;
Label4.Enabled :=checkbox5.Checked ;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -