pincomingapplication.pas

BarCodePrint条码打印机打印管理

unit PIncomingApplication;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ImgList, ToolWin, Menus, ExtCtrls,Adodb;

type
  TIncomingApplication = class(TForm)
    TabControlMain: TTabControl;
    ImageListSmall: TImageList;
    ListViewFeedin: TListView;
    StatusBarMain: TStatusBar;
    ListViewHandIn: TListView;
    ListViewResult: TListView;
    PopupMenuMain: TPopupMenu;
    MenuItemNew: TMenuItem;
    MenuItemImport: TMenuItem;
    N3: TMenuItem;
    MenuItemHandin: TMenuItem;
    N5: TMenuItem;
    MenuItemErase: TMenuItem;
    MenuItemEdit: TMenuItem;
    N8: TMenuItem;
    MenuItemSetting: TMenuItem;
    N1: TMenuItem;
    MenuItemNewSearch: TMenuItem;
    ToolBarMain: TToolBar;
    ToolButtonNew: TToolButton;
    ToolButton4: TToolButton;
    ToolButton2: TToolButton;
    ToolButtonHand: TToolButton;
    ToolButton6: TToolButton;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton8: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    ToolButtonRefresh: TToolButton;
    MainMenu: TMainMenu;
    N2: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    NShowToolBar: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N19: TMenuItem;
    NDataLink: TMenuItem;
    N22: TMenuItem;
    NAbout: TMenuItem;
    N23: TMenuItem;
    NExit: TMenuItem;
    procedure TabControlMainChange(Sender: TObject);
    procedure ListViewFeedinMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure ListViewResultMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure MenuItemNewClick(Sender: TObject);
    procedure MenuItemNewSearchClick(Sender: TObject);
    procedure ToolButtonRefreshClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListViewFeedinColumnClick(Sender: TObject;
      Column: TListColumn);
    procedure ListViewFeedinCompare(Sender: TObject; Item1,
      Item2: TListItem; Data: Integer; var Compare: Integer);
    procedure MenuItemHandinClick(Sender: TObject);
    procedure NShowToolBarClick(Sender: TObject);
    procedure NDataLinkClick(Sender: TObject);
    procedure NAboutClick(Sender: TObject);
    procedure NExitClick(Sender: TObject);
    procedure MenuItemEditClick(Sender: TObject);
  private
    Function GetInspectionNo:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  IncomingApplication: TIncomingApplication;
  ColumnToSort:Integer;
  SortOrder:Integer;
implementation

uses PApplicationNew, PSearchConditon, PPublic, PDataModuleMain, Password,
  Regist, AboutF;

{$R *.DFM}

procedure TIncomingApplication.TabControlMainChange(Sender: TObject);
begin
    case TabControlMain.TabIndex of
        0:  begin
            ListViewResult.visible:=False;
            ListViewHandin.Visible:=False;
            ListViewFeedin.Visible:=True;
            end;
        1:  begin
            ListViewResult.visible:=False;
            ListViewHandin.Visible:=True;
            ListViewFeedin.Visible:=False;
            end;
        2:  begin
            ListViewResult.visible:=True;
            ListViewHandin.Visible:=False;
            ListViewFeedin.Visible:=False;
            end;
    end;

end;


procedure TIncomingApplication.ListViewFeedinMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
    pos:TPoint;
begin
    if Button=mbRight then
    begin
        pos.x:=X;
        pos.y:=y;
        pos:=ListViewFeedin.ClientToScreen(pos);
        MenuItemNewSearch.Enabled:=False;
        PopupMenuMain.Popup(pos.x,pos.y);
        MenuItemNewSearch.Enabled:=True;
    end;
end;

procedure TIncomingApplication.ListViewResultMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
    pos:TPoint;
begin
    if Button=mbRight then
    begin
        pos.x:=X;
        pos.y:=y;
        pos:=ListViewResult.ClientToScreen(pos);
        MenuItemNew.Enabled:=False;
        MenuItemEdit.Enabled:=False;
        MenuItemHandin.Enabled:=False;
        MenuItemErase.Enabled:=False;
        MenuItemImport.Enabled:=False;

        PopupMenuMain.Popup(pos.x,pos.y);

        MenuItemNew.Enabled:=True;
        MenuItemEdit.Enabled:=True;
        MenuItemHandin.Enabled:=True;
        MenuItemErase.Enabled:=True;
        MenuItemImport.Enabled:=True;
    end;
end;

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

procedure TIncomingApplication.MenuItemNewSearchClick(Sender: TObject);
begin
    if not assigned(FormSearchCondition) then Application.CreateForm(TFormSearchCondition,FormSearchCondition);
    FormSearchCondition.Show;
end;

procedure TIncomingApplication.ToolButtonRefreshClick(Sender: TObject);
var
    ADODataSetTemp:TADODataSet;
    ListItem:TListItem;
    dCount:Double;
    HITime:TDate;
begin
    ADODataSetTemp:=TADODataSet.Create(Self);
    //ListItem:=Nil;
    try
        if ListViewFeedIn.Visible=True then
        begin
            ListViewFeedIn.Items.Clear;
            ADODataSetTemp.CommandType:=cmdText;
            ADODataSetTemp.CursorType:=ctOpenForwardOnly;
            ADODataSetTEmp.LockType:=ltReadOnly;
            ADODataSetTemp.CommandText:='select * from InspectionFI where Usercode='+
                                    ''''+UserCode+'''';
            ADODataSetTemp.Connection:=DataModuleMain.ADOConnectionMRPII;
            ADODataSetTemp.Open;
            ADODataSetTemp.Connection:=Nil;
            while not ADODataSetTemp.Eof do
            begin
                ListItem:=ListViewFeedIn.Items.Add;
                ListItem.ImageIndex:=10;
                ListItem.Caption:=ADODataSetTemp.FieldByName('FICode').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('UserCode').Value);
                ADODataSetTemp.Next;
            end;
            StatusBarMain.SimpleText:='共：'+IntToStr(ADODataSetTemp.RecordCount)+'条';
        end;

        //
        if ListViewHandIn.Visible=True then
        begin
            ListViewHandIn.Items.Clear;