certificate.pas

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

unit Certificate;

interface

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

type
  TfrmCertificate = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    txtCode: TEdit;
    txtName: TEdit;
    cmdAdd: TBitBtn;
    cmdModify: TBitBtn;
    cmdSave: TBitBtn;
    cmdDel: TButton;
    cmdQuery: TButton;
    cmdExit: TButton;
    GroupBox1: TGroupBox;
    dgCertificate: TDBGrid;
    procedure cmdExitClick(Sender: TObject);
    procedure txtCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdModifyClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmdQueryClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure dgCertificateCellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCertificate: TfrmCertificate;

implementation

uses dmPawn, Msg;

{$R *.DFM}
var
   QueryOpenMark:Boolean;
   
procedure TfrmCertificate.cmdExitClick(Sender: TObject);
begin
     close;
end;

procedure TfrmCertificate.txtCodeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
        txtName.SetFocus ;
end;

procedure TfrmCertificate.txtNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
        cmdSave.SetFocus ;
end;

procedure TfrmCertificate.cmdAddClick(Sender: TObject);
begin
     txtCode.Text:='';
     txtName.Text:='';
     if txtCode.ReadOnly=True then
        txtCode.ReadOnly:=False;
     if cmdModify.Enabled=True then
        self.cmdModify.Enabled:=False;
     if cmdSave.Enabled=False then
        cmdSave.Enabled:=True;
     txtCode.SetFocus ;
end;

procedure TfrmCertificate.cmdModifyClick(Sender: TObject);
begin
     if txtCode.ReadOnly=False then
        txtCode.ReadOnly:=True;
     if cmdAdd.Enabled=True then
          cmdAdd.Enabled:=False;
     if cmdSave.Enabled=False then
        cmdSave.Enabled:=True;
     txtName.SetFocus ;
end;

procedure TfrmCertificate.FormShow(Sender: TObject);
begin
     dmPawnFrm.dqCertificate.Close;
     if QueryOpenMark=True then
     begin
          QueryOpenMark:=False;
     end;
end;

procedure TfrmCertificate.cmdQueryClick(Sender: TObject);
var
   Sql:string;
begin
     if cmdSave.Enabled=True then
        cmdSave.Enabled:=False;
     if cmdAdd.Enabled=False then
        cmdAdd.Enabled:=True;
     if cmdModify.Enabled=False then
        cmdModify.Enabled:=True;
     if txtCode.ReadOnly=True then
        txtCode.ReadOnly:=False;

     dgCertificate.DataSource:=dmPawnFrm.dsQCertificate;
     Sql:='select * from Certificate_Tbl where True ';
     if txtCode.Text<>'' then
     begin
          Sql:=Sql+ 'and Code=:Code ';
     end;
     with dmPawnFrm do
     begin
          dqCertificate.Close;
          dqCertificate.SQL.Clear;
          dqCertificate.SQL.Add(Sql);
          if txtCode.Text<>'' then
          begin
               dqCertificate.ParamByName('Code').asstring:=trim(txtCode.text);
          end;
          dqCertificate.Open;
          if QueryOpenMark=False then
          begin
               QueryOpenMark:=True;
          end;
     end;
end;

procedure TfrmCertificate.cmdDelClick(Sender: TObject);
begin
     if cmdAdd.Enabled=False then
        cmdAdd.Enabled:=True;
     if txtCode.Text='' then
     begin
          messagedlg(Msg.MsgCertificate,mtWarning,[mbYes],0);
          exit;
     end;
     with dmPawnFrm do
     begin
           tblCertificate.Open;
           tblCertificate.IndexFieldNames:='Code';
           tblCertificate.SetKey;
           tblCertificate.FieldByName('Code').Asstring:=trim(txtCode.Text);
           if tblCertificate.GotoKey then
           begin
                tblCertificate.Delete;
           end;
           tblCertificate.Close;
     end;
     dgCertificate.DataSource:=dmPawnFrm.dsCertificate;
     dmPawnFrm.tblCertificate.Open;
end;

procedure TfrmCertificate.dgCertificateCellClick(Column: TColumn);
begin
     if QueryOpenMark=True then
     begin
          if dgCertificate.Columns[0].Field.IsNull then
             txtCode.Text:=''
          else
              txtCode.Text:=dgCertificate.Columns[0].Field.AsString;
          if dgCertificate.Columns[1].Field.IsNull then
             txtName.Text:=''
          else
              txtName.Text:=dgCertificate.Columns[1].Field.AsString;
     end
     else
     begin
          txtCode.Text:='';
          txtName.Text:='';
          txtCode.SetFocus;
     end;
end;

end.