pincomingapplication.pas

BarCodePrint条码打印机打印管理

            ADODataSetTemp.CommandType:=cmdText;
            ADODataSetTemp.CursorType:=ctOpenForwardOnly;
            ADODataSetTEmp.LockType:=ltReadOnly;
            ADODataSetTemp.CommandText:='select * from InspectionHI where Usercode='+
                                    ''''+UserCode+'''';
            ADODataSetTemp.Connection:=DataModuleMain.ADOConnectionMRPII;
            ADODataSetTemp.Open;
            ADODataSetTemp.Connection:=Nil;
            while not ADODataSetTemp.Eof do
            begin
                ListItem:=ListViewHandIn.Items.Add;
                ListItem.ImageIndex:=11;
                ListItem.Caption:=ADODataSetTemp.FieldByName('HICode').Value;
                HITime:=ADODataSetTemp.FieldByName('HITime').Value;
                ListItem.SubItems.Add(FormatDateTime('yyyy-mm-dd hh:mm:ss',HITime));
                ListItem.SubItems.Add(ADODataSetTemp.FieldByName('Minutes').Value);
                ListItem.SubItems.Add(ADODataSetTemp.FieldByName('MCode').Value);
                ListItem.SubItems.Add(ADODataSetTemp.FieldByName('MName').Value);
                ListItem.SubItems.Add(ADODataSetTemp.FieldByName('FCode').Value);
                ListItem.SubItems.Add(ADODataSetTemp.FieldByName('FName').Value);
                dCount:=ADODataSetTemp.FieldByName('MCount').Value;
                ListItem.SubItems.Add(Format('%14.4f',[dCount]));
                ListItem.SubItems.Add(ADODataSetTemp.FieldByName('MUnit').Value);
                ListItem.SubItems.Add(ADODataSetTemp.FieldByName('InspectionManName').Value);
                ADODataSetTemp.Next;
            end;
            StatusBarMain.SimpleText:='共：'+IntToStr(ADODataSetTemp.RecordCount)+'条';
        end;

    finally
        ADODataSetTemp.Close;
        ADODataSetTemp.Free;
    end;


end;

procedure TIncomingApplication.FormCreate(Sender: TObject);
var
LoginWindow:TGetPass;
begin
    LoginWindow:=TGetPass.Create(Nil);
    LoginWindow.ShowModal;
    LoginWindow.Free;
    if UserCode='' then
        Application.Terminate;
    ListViewHandIn.Align:=alClient;
    ListViewHandIn.Align:=alClient;
    ListViewResult.Align:=alClient;
    DepartCode:='';
    DepartName:='采购部';
    SortOrder:=1;
end;

procedure TIncomingApplication.FormShow(Sender: TObject);
begin
    ToolButtonRefreshClick(ToolButtonRefresh);
end;

procedure TIncomingApplication.ListViewFeedinColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  ColumnToSort:=Column.Index;
  SortOrder:=(-1)*SortOrder;
  (Sender as TCustomListView).AlphaSort;
end;

procedure TIncomingApplication.ListViewFeedinCompare(Sender: TObject;
  Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
var
    ix: Integer;
begin
  if ColumnToSort = 0 then
        Compare := SortOrder*CompareText(Item1.Caption,Item2.Caption)
  else begin
    ix := ColumnToSort - 1;
    Compare := SortOrder*CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
  end;
end;
procedure TIncomingApplication.MenuItemHandinClick(Sender: TObject);
var
    sSQl:String;
    nCount:Double;
    ListItemNext:TListItem;
    HITime:String;
    HICode,MCode,MName,FCode,FName,MUnit,MCount,UserCode:String;
    InspectionManCode,Minutes:String;
    ADODataSetSource:TADODataSet;
    ADOCommandTarget,ADOCommandDelete:TADOCommand;
begin
    ADODataSetSource:=TADODataSet.Create(Self);
    ADOCommandTarget:=TADOCommand.Create(Self);
    ADOCommandDelete:=TADOCommand.Create(Self);
    if ListViewFeedIn.SelCount<=0 then
      Exit;
    ListItemNext:=ListViewFeedIn.Selected;
    while(ListItemNext<>Nil) do
    begin
        ADODataSetSource.CommandType:=cmdText;
        ADODataSetSource.CursorType:=ctOpenForwardOnly;
        ADODataSetSource.LockType:=ltReadOnly;
        ADODataSetSource.CommandText:='select * from InspectionFI where FICode='+
                                    ''''+ListItemNext.Caption+'''';
        ADODataSetSource.Connection:=DataModuleMain.ADOConnectionMRPII;
        ADODataSetSource.Open;
        ADODataSetSource.Connection:=Nil;

        HICode:=GetInspectionNo;
        MCode:=ADODataSetSource.FieldByName('MCode').Value;
        MName:=ADODataSetSource.FieldByName('MName').Value;
        FCode:=ADODataSetSource.FieldByName('FCode').Value;
        FName:=ADODataSetSource.FieldByName('FName').Value;
        MUnit:=ADODataSetSource.FieldByName('MUnit').Value;
        nCount:=ADODataSetSource.FieldByName('MCount').Value;
        MCount:=Format('%f',[nCount]);
        UserCode:=ADODataSetSource.FieldByName('UserCode').Value;

        ADODataSetSource.Close;
        ADODataSetSource.CommandType:=cmdText;
        ADODataSetSource.CursorType:=ctOpenForwardOnly;
        ADODataSetSource.LockType:=ltReadOnly;
        ADODataSetSource.CommandText:='select * from MInspectionAttribute where MCode='+
                                    ''''+ListItemNext.SubItems.Strings[0]+'''';
        ADODataSetSource.Connection:=DataModuleMain.ADOConnectionMRPII;
        ADODataSetSource.Open;
        ADODataSetSource.Connection:=Nil;

        Minutes:=ADODataSetSource.FieldByName('Minutes').Value;
        InspectionManCode:=ADODataSetSource.FieldByName('IMCode').Value;
        HITime:='getdate()';

        sSQL:='insert into InspectionHI (HICode,MCode,MName,FCode,FName,MUnit,MCount,UserCode,'+
                'InspectionManCode,InspectionManName,Minutes,HITime)';
        sSQL:=sSQL+' Values(''' +HICode+'''';
        sSQL:=sSQL+' ,''' +MCode+'''';
        sSQL:=sSQL+' ,''' +MName+'''';
        sSQL:=sSQL+' ,''' +FCode+'''';
        sSQL:=sSQL+' ,''' +FName+'''';
        sSQL:=sSQL+' ,''' +MUnit+'''';
        sSQL:=sSQL+' ,' +MCount;
        sSQL:=sSQL+' ,''' +UserCode+'''';
        sSQL:=sSQL+' ,''' +InspectionManCode+'''';
        sSQL:=sSQL+' ,''' +GetInspectionManNameFromCode(InspectionManCode)+'''';
        sSQL:=sSQL+' ,' +Minutes;
        sSQL:=sSQL+' ,getdate())';

        ADOCommandTarget.CommandType:=cmdText;
        ADOCommandTarget.CommandText:=sSQL;
        ADOCommandTarget.Connection:=DataModuleMain.ADOConnectionMRPII;
        ADOCommandDelete.CommandType:=cmdText;
        ADOCommandDelete.CommandText:='delete InspectionFI where FICode='''
                                        +ListItemNext.Caption+'''';
        ADOCommandDelete.Connection:=DataModuleMain.ADOConnectionMRPII;

        try
            DataModuleMain.ADOConnectionMRPII.BeginTrans;
            ADOCommandTarget.Execute;
            ADOCommandDelete.Execute;
            DataModuleMain.ADOConnectionMRPII.CommitTrans;
        except
            DataModuleMain.ADOConnectionMRPII.RollbackTrans;
        end;
        ListItemNext:=ListViewFeedIn.GetNextItem(ListItemNext,sdBelow,[isSelected]);
    end;

end;
function TIncomingApplication.GetInspectionNo:String;
var
ADODataSetInspection:TADODataSet;
nInspectionNo:Double;
begin
    GetInspectionNo:='';
    ADODataSetInspection:=TADODataSet.Create(Self);
    ADODataSetInspection.CommandType:=cmdStoredProc;
    ADODataSetInspection.CommandText:='GetInspectionNo';
    ADODataSetInspection.CursorType:=ctOpenForwardOnly;
    ADODataSetInspection.LockType:=ltReadOnly;
    ADODataSetInspection.Connection:=DataModuleMain.ADOConnectionMRPII;
    ADODataSetInspection.Open;
    if not ADODataSetInspection.Eof then
    begin
        nInspectionNo:=ADODataSetInspection.FieldByName('Inspection').Value;
        GetInspectionNo:=Format('%10.0f',[nInspectionNo]);
    end;
    ADODataSetInspection.Close;
    ADODataSetInspection.Free;
end;
procedure TIncomingApplication.NShowToolBarClick(Sender: TObject);
begin
    ToolBarMain.Visible:=Not ToolBarMain.Visible
end;

procedure TIncomingApplication.NDataLinkClick(Sender: TObject);
begin
    if not assigned(frmRegist) then frmRegist:=TfrmRegist.Create(Self);
    frmRegist.Show;
end;

procedure TIncomingApplication.NAboutClick(Sender: TObject);
var
About:TAboutBox;
begin
    About:=TAboutBox.Create(Self);
    About.ShowModal;
    About.Free;
end;

procedure TIncomingApplication.NExitClick(Sender: TObject);
begin
    Close;
end;

procedure TIncomingApplication.MenuItemEditClick(Sender: TObject);
begin
     if not assigned(FormApplicationNew) then Application.CreateForm(TFormApplicationNew,FormApplicationNew);
     FormApplicationNew.bInNew:=False;
     FormApplicationNew.Show;
end;

end.