unit7.pas

发票套打功能

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    palUp: TPanel;
    palLeftUp: TPanel;
    imgGrayLeftUp: TImage;
    imgColorLeftUp: TImage;
    imgLeftUp: TImage;
    imgSysIcon: TImage;
    imgLeftUp1: TImage;
    palRightUp: TPanel;
    imgGrayRightUp: TImage;
    imgRestoreButton: TImage;
    imgMaxButton: TImage;
    imgRightUp: TImage;
    imgCloseButton: TImage;
    imgMinButton: TImage;
    imgSizeButton: TImage;
    imgColorRightUp: TImage;
    imgRightUp1: TImage;
    palUpMid: TPanel;
    imgColorMenubar: TImage;
    imgGrayCaption: TImage;
    imgGrayMenuBar: TImage;
    imgCaption: TImage;
    imgColorCaption: TImage;
    CoolBarMenu: TCoolBar;
    ToolBarMenu: TToolBar;
    palDown: TPanel;
    imgLeftDown: TImage;
    imgRightDown: TImage;
    imgDownMin: TImage;
    palLeft: TPanel;
    imgLeft: TImage;
    palRight: TPanel;
    imgRight: TImage;
    palClient: TPanel;
    GroupBox1: TGroupBox;
    GroupBox3: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button3: TButton;
    Button4: TButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    GroupBox4: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Button5: TButton;
    Button6: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure lbCaptionMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure lbCaptionMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lbCaptionMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure imgMinButtonClick(Sender: TObject);
    procedure imgCloseButtonClick(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure imgCaptionMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure imgCaptionMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure imgCaptionMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    //移动窗体
    canmove:boolean;
    curPoint:TPoint;
    oldPoint:TPoint;
    Canvas:TCanvas;  
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation
uses unit4, unit3, unit1 ;
{$R *.dfm}

procedure TForm7.lbCaptionMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if not canmove then exit;
  with Canvas do
  begin
    Rectangle(oldPoint.x,oldPoint.y,oldPoint.x+Width,oldPoint.y+Height);
    Left :=oldPoint.x;
    Top :=oldPoint.y;
    Free;
  end;
  canmove:=not canmove;
end;

procedure TForm7.lbCaptionMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if not canmove then exit;
  with Canvas do
  begin
    Rectangle(oldPoint.x,oldPoint.y,oldPoint.x+Width,oldPoint.y+Height);
    oldPoint.x :=Left +X-curPoint.x;
    oldPoint.y :=Top +Y-curPoint.y;
    Rectangle(oldPoint.x,oldPoint.y,oldPoint.x+Width,oldPoint.y+Height);
  end;
end;

procedure TForm7.lbCaptionMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Button=mbLeft)and(ssLeft in Shift)then
  begin
    canmove:=true;
    Canvas:=TCanvas.Create;
    with Canvas do
    begin
      pen.Style :=psdot;
      brush.Style :=bsClear;
      pen.Width :=2;
      Pen.Mode :=pmNotXor;
      Handle :=GetDC(0);
      Rectangle(left,top,Left+width,top+height);
      curPoint.X :=X;
      curPoint.Y :=Y;
      oldPoint.X :=Left;
      oldPoint.Y :=Top;
    end;        //end with
  end;  //end if
end;

procedure TForm7.Button2Click(Sender: TObject);
begin
   close ;
end;

procedure TForm7.Button4Click(Sender: TObject);
begin
   close ;
end;

procedure TForm7.RadioButton1Click(Sender: TObject);
begin
  GroupBox2.Visible := true;
  GroupBox3.Visible :=false;
  GroupBox4.Visible :=false;
end;

procedure TForm7.RadioButton2Click(Sender: TObject);
begin
  GroupBox3.Visible := true;
  GroupBox2.Visible :=false;
  GroupBox4.Visible :=false;
end;

procedure TForm7.Button1Click(Sender: TObject);
begin
  with CustomerData do
  begin
    if edit1.Text = '' then
    begin
       Application.MessageBox(PChar('请正确输入操作码,操作码不能为空   ！'), PChar('警告'),MB_ICONEXCLAMATION);
       edit1.Text :='';
       exit ;
    end;
    if edit2.Text = '' then
    begin
       Application.MessageBox(PChar('请正确输入密码,密码不能为空   ！'), PChar('警告'),MB_ICONEXCLAMATION);
       edit2.Text :='';
       edit3.Text :='';       
       exit ;
    end;
    if edit2.Text <> edit3.Text then
    begin
       Application.MessageBox(PChar('两次输入的密码不同,请重新输入   ！'), PChar('警告'),MB_ICONEXCLAMATION);
       edit2.Text :='';
       edit3.Text := '' ;
       exit ;
    end;
    //打开操作员的表名
    SaveTable.Close ;
    SaveTable.TableName :='Admin' ;
    SaveTable.open;
    SaveTable.First ;
    while not SaveTable.eof  do
    begin
       //showmessage(ADOTable1.fieldbyname('发票号码').AsString);
       if (SaveTable.fieldbyname('用户名').AsString = Edit2.Text) AND (SaveTable.fieldbyname('密码').AsString = edit1.Text)    then
       begin
         Application.MessageBox(PChar('此操作员已经存在，不能注册   ！'), PChar('提示'),MB_ICONEXCLAMATION);
         exit ;
       end ;
       SaveTable.Next ;
    end;
     //edit1.Text :=SaveTable.fieldbyname('发票号码').AsString);
     SaveTable.Append ;
     SaveTable.FieldByName('用户名').AsString := edit1.Text ;
     SaveTable.FieldByName('密码').AsString  := edit2.Text ;
     SaveTable.Append ;
     SaveTable.Close ;
     edit1.Text :='';
     edit2.Text :='';
     edit3.Text := '' ;
     Application.messagebox(pchar('用户注册成功   ！   '),pchar('提示')  ,MB_ICONINFORMATION);
     Exit ;     
    end;
end;

procedure TForm7.Button3Click(Sender: TObject);
begin
  with CustomerData do
  begin
    if edit5.Text <> edit6.Text then
    begin
       Application.MessageBox(PChar('两次输入的密码不同,请重新输入   ！'), PChar('警告'),MB_ICONEXCLAMATION);
       edit5.Text :='';
       edit6.Text := '' ;
       exit ;
    end;
    //打开操作员的表名
    SaveTable.Close ;
    SaveTable.TableName :='Admin' ;
    SaveTable.open;
    SaveTable.First ;
    while not SaveTable.eof  do
    begin
       //showmessage(ADOTable1.fieldbyname('发票号码').AsString);
       if (SaveTable.fieldbyname('用户名').AsString = form1.ComboBox1.Text) AND (SaveTable.fieldbyname('密码').AsString = edit4.Text) then
       begin
         SaveTable.Edit ;
         SaveTable.FieldByName('密码').AsString  := edit5.Text ;
         SaveTable.Post ;         
         SaveTable.Close ;
         edit4.Text :='';
         edit5.Text :='';
         edit6.Text := '' ;
         Application.messagebox(pchar('密码修改成功   ！   '),pchar('提示')  ,MB_ICONINFORMATION);
         Exit ;
       end ;
       SaveTable.Next ;
    end;
    end;
    Application.MessageBox(PChar('旧密码错误，你不能修改密码   ！'), PChar('警告'),MB_ICONEXCLAMATION);
    exit ;
end;

procedure TForm7.imgMinButtonClick(Sender: TObject);
begin
  close ;
end;

procedure TForm7.imgCloseButtonClick(Sender: TObject);
begin
  close ;
end;

procedure TForm7.Button6Click(Sender: TObject);
begin
  close ;
end;

procedure TForm7.RadioButton3Click(Sender: TObject);
begin
  GroupBox2.Visible := false;
  GroupBox3.Visible :=false;
  GroupBox4.Visible :=true;
end;

procedure TForm7.Button5Click(Sender: TObject);
begin
try
   if (edit7.Text ='') or (edit8.Text ='') then
   begin
     application.messagebox(pchar('请认真填写操作码和密码   ！   '),pchar('提示')  ,MB_ICONINFORMATION);
     edit7.Clear ;edit8.Clear ;
     exit ;
   end;
   with CustomerData do
   begin
      //打开的表名
      //注销用户
      SaveTable.Close ;
      SaveTable.TableName :='Admin' ;
      SaveTable.open;
      SaveTable.First ;
      while not SaveTable.eof  do
      begin
     //发票号码
        if (SaveTable.fieldbyname('用户名').AsString = edit7.Text) And (SaveTable.fieldbyname('密码').AsString = edit8.Text) then
        begin
           SaveTable.Delete ;
           SaveTable.Append ;
           application.messagebox(pchar('注销用户成功   ！   '),pchar('提示')  ,MB_ICONINFORMATION);
           edit7.Clear ;edit8.Clear ;
           exit ;
        end;
       SaveTable.Next ;
       end;
   end;
   application.messagebox(pchar('用户名或密码错误或者没有此操作码，请重新输入 ！   '),pchar('提示')  ,MB_ICONINFORMATION);
   edit7.Clear ;edit8.Clear ;
except
   application.messagebox(pchar('注销用户失败 ！   '),pchar('提示')  ,MB_ICONINFORMATION);
end;
end;
procedure TForm7.imgCaptionMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Button=mbLeft)and(ssLeft in Shift)then
  begin
    canmove:=true;
    Canvas:=TCanvas.Create;
    with Canvas do
    begin
      pen.Style :=psdot;
      brush.Style :=bsClear;
      pen.Width :=2;
      Pen.Mode :=pmNotXor;
      Handle :=GetDC(0);
      Rectangle(left,top,Left+width,top+height);
      curPoint.X :=X;
      curPoint.Y :=Y;
      oldPoint.X :=Left;
      oldPoint.Y :=Top;
    end;        //end with
  end;  //end if
end;

procedure TForm7.imgCaptionMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if not canmove then exit;
  with Canvas do
  begin
    Rectangle(oldPoint.x,oldPoint.y,oldPoint.x+Width,oldPoint.y+Height);
    oldPoint.x :=Left +X-curPoint.x;
    oldPoint.y :=Top +Y-curPoint.y;
    Rectangle(oldPoint.x,oldPoint.y,oldPoint.x+Width,oldPoint.y+Height);
  end;
end;

procedure TForm7.imgCaptionMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if not canmove then exit;
  with Canvas do
  begin
    Rectangle(oldPoint.x,oldPoint.y,oldPoint.x+Width,oldPoint.y+Height);
    Left :=oldPoint.x;
    Top :=oldPoint.y;
    Free;
  end;
  canmove:=not canmove;
end;

end.