home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 23 / IOPROG_23.ISO / SOFT / CREDCARD.ZIP / Demo / MainUnit.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-01-27  |  2.4 KB  |  105 lines
  1. unit MainUnit;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Mask, HQCreditCheck;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     CheckBtn: TButton;
  12.     Label1: TLabel;
  13.     CCMaskEdit: TMaskEdit;
  14.     Label2: TLabel;
  15.     CardComboBox: TComboBox;
  16.     Label3: TLabel;
  17.     MComboBox: TComboBox;
  18.     Label4: TLabel;
  19.     YComboBox: TComboBox;
  20.     HQCreditCheck1: THQCreditCheck;
  21.     WhyCheckBox: TCheckBox;
  22.     procedure CheckBtnClick(Sender: TObject);
  23.     procedure CardComboBoxChange(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure HQCreditCheck1Expired(Sender: TObject);
  26.     procedure HQCreditCheck1InvalidNumber(Sender: TObject);
  27.     procedure HQCreditCheck1InvalidType(Sender: TObject);
  28.     procedure HQCreditCheck1Valid(Sender: TObject);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  34.  
  35. var
  36.   MainForm: TMainForm;
  37.  
  38. implementation
  39.  
  40. {$R *.DFM}
  41.  
  42. procedure TMainForm.CheckBtnClick(Sender: TObject);
  43. begin
  44.  
  45. HQCreditCheck1.CardNumber := CCMaskEdit.Text;
  46. HQCreditCheck1.ExprMonth := StrToInt(MComboBox.Text);
  47. HQCreditCheck1.ExprYear := StrToInt(YComboBox.Text);
  48. If (HQCreditCheck1.CheckCreditCard) then
  49. begin
  50.  if not WhyCheckBox.Checked then
  51.     ShowMessage('Credit Card Passed');
  52. end
  53. else
  54. begin
  55.  if not WhyCheckBox.Checked then
  56.     ShowMessage('Credit Card Failed');
  57. end;
  58.  
  59. end;
  60.  
  61. procedure TMainForm.CardComboBoxChange(Sender: TObject);
  62. begin
  63.  
  64. Case CardComboBox.ItemIndex of
  65. 0: HQCreditCheck1.CardType := cctVisa;
  66. 1: HQCreditCheck1.CardType := cctMastercard;
  67. 2: HQCreditCheck1.CardType := cctAmex;
  68. 3: HQCreditCheck1.CardType := cctDiscover;
  69. 4: HQCreditCheck1.CardType := cctDiners;
  70. end;
  71.  
  72. end;
  73.  
  74. procedure TMainForm.FormCreate(Sender: TObject);
  75. begin
  76. MComboBox.ItemIndex := 0;
  77. YComboBox.ItemIndex := 0;
  78. end;
  79.  
  80. procedure TMainForm.HQCreditCheck1Expired(Sender: TObject);
  81. begin
  82. if (WhyCheckBox.Checked) then
  83.     ShowMessage('Card Expired');
  84. end;
  85.  
  86. procedure TMainForm.HQCreditCheck1InvalidNumber(Sender: TObject);
  87. begin
  88. if (WhyCheckBox.Checked) then
  89.   ShowMessage('Invalid Card Number');
  90. end;
  91.  
  92. procedure TMainForm.HQCreditCheck1InvalidType(Sender: TObject);
  93. begin
  94. if (WhyCheckBox.Checked) then
  95.   ShowMessage('Invalid Card Type vs Card Number');
  96. end;
  97.  
  98. procedure TMainForm.HQCreditCheck1Valid(Sender: TObject);
  99. begin
  100. if (WhyCheckBox.Checked) then
  101.   ShowMessage('Card Valid');
  102. end;
  103.  
  104. end.
  105.