setcode.pas

一个典当行的业务管理系统程序

unit SetCode;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TfrmSetCode = class(TForm)
    cmdOk: TButton;
    cmdCancel: TButton;
    cmdExit: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    txtHead: TEdit;
    txtTail: TEdit;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
    procedure cmdOkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure txtHeadKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtTailKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSetCode: TfrmSetCode;

implementation

uses GlobalVar, dmPawn, Msg;

{$R *.DFM}

procedure TfrmSetCode.cmdExitClick(Sender: TObject);
begin
     close;
end;

procedure TfrmSetCode.cmdCancelClick(Sender: TObject);
begin
     FormShow(Sender);
     txtHead.SetFocus;
end;

procedure TfrmSetCode.cmdOkClick(Sender: TObject);
begin

     if (txtHead.Text='') or
        (txtTail.Text='')then
     begin
          messagedlg(Msg.MsgHeadTail,mtWarning,[mbYes],0);
          txtHead.SetFocus ;
          exit;
     end;
     
     with dmPawnFrm do
     begin
          tblTicketCode.Open;
          tblTicketCode.Edit;
          tblTicketCodeHeadCode.Value:=trim(txtHead.Text);
          tblTicketCodeTailCode.Value:=trim(txtTail.Text);
          tblTicketCode.Post;
          tblTicketCode.Close;
     end;
     close;
end;

procedure TfrmSetCode.FormShow(Sender: TObject);
begin
     with dmPawnFrm do
     begin
          tblTicketCode.Open;
          txtHead.Text:=tblTicketCodeHeadCode.Value;
          txtTail.Text:=tblTicketCodeTailCode.Value;
          tblTicketCode.Close;
     end;
end;

procedure TfrmSetCode.txtHeadKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          if txtHead.Text='' then
          begin
               messagedlg(Msg.MsgTicketHead,mtWarning,[mbYes],0);
               txtHead.SetFocus ;
               exit;
          end;
          txtHead.Text:=txtHead.Text+ '-';
          txtTail.SetFocus;
     end;
end;

procedure TfrmSetCode.txtTailKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          if txtTail.Text='' then
          begin
               messagedlg(Msg.MsgTicketTail,mtWarning,[mbYes],0);
               txtTail.SetFocus ;
               exit;
          end;
          cmdOk.SetFocus;
     end;
end;

end.