cxhgz.pas

根据箱号

unit Cxhgz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, StdCtrls, ExtCtrls, Buttons, DB, ADODB;

type
  Txhgz = class(TForm)
    middle_left: TPanel;
    M_left: TImage;
    buttom: TPanel;
    bottom_left: TImage;
    bottom_middle: TImage;
    bottom_right: TImage;
    middle: TPanel;
    middle_right: TPanel;
    M_right: TImage;
    top1: TPanel;
    top_left: TPanel;
    t_l_left: TImage;
    t_l_right: TImage;
    sysicon: TImage;
    top_right: TPanel;
    t_r_left: TImage;
    t_r_r: TImage;
    mixicon: TImage;
    maxicon: TImage;
    closeicon: TImage;
    Panel6: TPanel;
    Image3: TImage;
    SystemMenu: TPopupMenu;
    Restore: TMenuItem;
    Move: TMenuItem;
    Size: TMenuItem;
    Min: TMenuItem;
    Max: TMenuItem;
    N_Speater: TMenuItem;
    Close1: TMenuItem;
    Image1: TImage;
    Label2: TLabel;
    Label1: TLabel;
    Panel1: TPanel;
    Label3: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    procedure sysiconMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure mixiconClick(Sender: TObject);
    procedure maxiconClick(Sender: TObject);
    procedure closeiconClick(Sender: TObject);
    procedure RestoreClick(Sender: TObject);
    procedure MinClick(Sender: TObject);
    procedure MaxClick(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1DblClick(Sender: TObject);
 procedure CreateParams(var Params: TCreateParams); override;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  canmove:boolean;
  ox,oy:integer;
  public
    { Public declarations }
  end;

var
  xhgz: Txhgz;

implementation
   uses cdata;
{$R *.dfm}

procedure Txhgz.sysiconMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  SystemMenu.Popup(left+sysicon.Left,top+sysicon.top+sysicon.Width);
  if self.WindowState = wsmaximized then
     begin
       max.Enabled:=false;
       restore.Enabled:=true;
     end
  else
     begin
       max.Enabled:=true;
       restore.Enabled:=false;
     end;
end;

procedure Txhgz.mixiconClick(Sender: TObject);
begin
  if Application.MainForm =self then
     Application.Minimize
  else
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

procedure Txhgz.maxiconClick(Sender: TObject);
begin
  if self.WindowState = wsNormal then
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
  else
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
  label2.Left:=trunc((image1.Width-label2.Width)/2);
end;

procedure Txhgz.closeiconClick(Sender: TObject);
begin
  DefWindowProc(Handle, WM_SYSCOMMAND, SC_CLOSE, 0);
end;

procedure Txhgz.RestoreClick(Sender: TObject);
begin
  if self.WindowState = wsNormal then
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
  else
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_restore, 0);
end;

procedure Txhgz.MinClick(Sender: TObject);
begin
  if Application.MainForm =self then
     Application.Minimize
  else
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

procedure Txhgz.MaxClick(Sender: TObject);
begin
  if self.WindowState = wsNormal then
     begin
       DefWindowProc(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0);
     end;
end;

procedure Txhgz.Close1Click(Sender: TObject);
begin
  DefWindowProc(Handle, WM_SYSCOMMAND, SC_CLOSE, 0);
end;

procedure Txhgz.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  canmove:=true;
  ox:=x;
  oy:=y;
end;

procedure Txhgz.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if canmove=true then
     begin
       self.Left:=self.Left+(x-ox);
       self.Top:=self.Top+(y-oy);
     end;
end;

procedure Txhgz.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   canmove:=false;
end;

procedure Txhgz.Image1DblClick(Sender: TObject);
begin
if maxicon.Enabled=true then
  if WindowState=wsNormal then
     WindowState:=wsMaximized
  else
     WindowState:=wsNormal;
    label2.Left:=trunc((image1.Width-label2.Width)/2);
end;

procedure Txhgz.CreateParams(var Params: TCreateParams);
begin
 Inherited CreateParams(Params);
 Params.Style := Params.Style and (not WS_CAPTION) and (not WS_SIZEBOX) ;
 //去掉窗体的标题及调整大小属性
end;
procedure Txhgz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Txhgz.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Txhgz.BitBtn1Click(Sender: TObject);
begin
 if trim(edit1.Text)='' then
    begin
      messagedlg(pchar('箱号不能为空,请重新输入!!!'),mterror,[mbyes],0);
      edit1.SetFocus;
   end
 else
    begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.add('select * from 串号管理 where 箱号='''+trim(edit1.Text)+'''');
    adoquery1.Open;
    if adoquery1.RecordCount=0 then
       begin
         messagedlg(pchar('系统中没有【'+trim(edit1.Text)+'】,请重新输入!!!'),mterror,[mbyes],0);
         edit1.clear;
       end
    else
       begin  
         if messagedlg(pchar('是否删除【'+floattostr(adoquery1.RecordCount)+'】个箱号为【'+trim(edit1.Text)+'】的电子串号?'),mtWarning,[mbyes,mbno],0)=mryes then
           begin
             adocommand1.CommandText:='delete * from 串号管理 where 箱号='''+trim(edit1.Text)+'''';
             adocommand1.Execute;
             messagedlg(pchar('系统已成功删除!!!'),mtinformation,[mbyes],0);
           end;
             edit1.Clear;
       end;
    end;
end;

end.