📄 card_firback.pas
字号:
unit Card_FirBack;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ToolWin, ComCtrls, ExtCtrls, DBCtrls, StdCtrls, Buttons, Mask,
Grids, DBGrids, DB, IniFiles;
type
TFrmCard_FirBack = class(TForm)
Bevel1: TBevel;
DataSource1: TDataSource;
StatusBar1: TStatusBar;
DBGrid1: TDBGrid;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBText1: TDBText;
DBEdit1: TDBEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
DBText4: TDBText;
DBText3: TDBText;
Label8: TLabel;
Label7: TLabel;
Label9: TLabel;
DBText7: TDBText;
DBText5: TDBText;
DBText6: TDBText;
Label10: TLabel;
Label12: TLabel;
Label11: TLabel;
Label13: TLabel;
DBText11: TDBText;
DBText10: TDBText;
DBText9: TDBText;
DBText8: TDBText;
CoolBar1: TCoolBar;
ToolBar2: TToolBar;
ToolBar3: TToolBar;
DBNavigator1: TDBNavigator;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Panel6: TPanel;
Panel7: TPanel;
ToolButton4: TToolButton;
DBText2: TDBText;
DBText12: TDBText;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure DBEdit1DblClick(Sender: TObject);
procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit1Exit(Sender: TObject);
procedure DBEdit2Exit(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
PassWord1: string;
Comhm: integer;
OldCardFlag: Boolean;
IfValdate: Boolean;
YtJe: Double;
SellRq1: TDate;
procedure ScanData;
function IfAlreadyBack: Boolean;
function SaveToDb: Boolean;
function IfEditNull: Boolean;
function DeleteFromDB(rq: TDate; cardno, machineno, cardstatus, czyname:
string): Boolean;
function DeleteFromSubDB(rq: TDate; cardno, machineno, cardstatus, czyname:
string): Boolean;
function InsertToDb(rq: TDate; IcKh: string; CkJe, TkJe, Yj: Double; KhName:
string; ValDaynum: integer; CardStatus, CardLx, CzyName, MachineNo,
CardValue: string; Ye: Double): BooLean;
function InsertToSubDb(rq: TDate; IcKh: string; Yj: Double; ValDaynum:
integer; CardStatus, CardLx, CzyName, MachineNo, CardValue: string):
BooLean;
function WriteToCard(PassWord: Pchar; Comh: smallint; Cardh: PChar; ValDay:
PChar; CardType: string; UserPass1: string; Discount: string; Ye: string):
smallint;
function ReadFromDll(filelx: string; comh: smallint; passwordz: PChar):
smallint;
function ReadKh(var CardNo: string; comh: smallint; pass: Pchar): Boolean;
function ReadValdate(var ValDate: string; comh: smallint; pass: Pchar):
Boolean;
function ReadYe(var Ye: Double; comh: smallint; pass: Pchar): Boolean;
function ReadXx(CardNo: string; Rq: TDate): Boolean;
procedure GetIniValue;
procedure SetValue;
function GetCardStatus(Rq: TDate; Kh: string): Boolean;
function SaveToDb1: Boolean;
function ReadXx1(CardNo: string; Rq: TDate): Boolean;
procedure GetIniValue1;
function FindNeareastRecord(CardNo:String;var MaxXh:integer):Boolean;
end;
procedure SetWork;
implementation
uses Card_DataModule, PublicUnit, DI_DBCalendar, main, CardHint, Card_Result,
PZ_RqXz, Card_SecSell;
{$R *.dfm}
procedure SetWork;
var
FrmCard_FirBack: TFrmCard_FirBack;
begin
Screen.Cursor := crHourGlass;
Application.CreateForm(TFrmCard_FirBack, FrmCard_FirBack);
Screen.Cursor := crDefault;
FrmCard_FirBack.Show;
end;
{与窗体有关}
procedure TFrmCard_FirBack.FormShow(Sender: TObject);
begin
Screen.Cursor := crHourGlass;
with CardSell_DataModule.ADOConnection1 do
begin
Close;
ConnectionString := 'Provider=SqlOLEDB.1;Persist Security Info=True;User ID='
+ PublicUnit.DBUser + ';Password=' + PublicUnit.DBPass +
';Initial Catalog='
+ PublicUnit.DbName + ';Data Source=' + PublicUnit.ServerName;
try
Open;
except
Screen.Cursor := crDefault;
ShowMessage('连接业务数据库失败，该系统无法正常工作！');
Exit;
end;
end;
ScanData;
Screen.Cursor := crDefault;
//InitialEdit;
end;
procedure TFrmCard_FirBack.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if MessageDlg('请您插入新卡准备销售，继续按Yes键，否则按No键。',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
Card_SecSell.SetWork;
Action := caFree;
end;
procedure TFrmCard_FirBack.ScanData;
var
CardStatus: string;
k, wid: integer;
begin
Screen.Cursor := crHourGlass;
DataSource1.DataSet := CardSell_DataModule.ADOQuery2;
CardStatus := '退卡';
with CardSell_DataModule.ADOQuery2 do
begin
Close;
Sql.Clear;
Sql.Add('Select * ');
Sql.Add('From SCSJ_TSKXX Where 卡片状态=''' + Trim(CardStatus) +
''' Order By 日期');
try
Open;
except
Screen.Cursor := crDefault;
ShowMessage('无法浏览退卡信息!');
Exit;
end;
StatusBar1.Panels[0].Text := ' 当前为卡片信息数据表';
StatusBar1.Panels[1].Text := ' 共有 ' + IntToStr(RecordCount) + ' 条记录';
for k := 0 to FieldCount - 1 do
begin
if k = 1 then
wid := 40
else
wid := 50;
DBGrid1.Columns[k].Title.Alignment := taCenter;
DBGrid1.Columns[k].Width := DBGrid1.Columns[k].Field.DisplayWidth + wid;
end;
SetDBGridFieldsDisplay(DbGrid1);
Screen.Cursor := crDefault;
end;
SetDBGridFieldsDisplay(DbGrid1);
end;
function TFrmCard_FirBack.IfAlreadyBack: Boolean;
var
Kh, CardStatus: string;
Rq: TDate;
begin
Result := False;
CardStatus := '退卡';
with CardSell_DataModule.ADOQuery2 do
begin
Kh := Trim(FieldByName('IC卡号').AsString);
Rq := StrToDate(DateTimeToStr(FieldByName('日期').AsDateTime));
end;
with CardSell_DataModule.ADOQuery3 do
begin
Close;
Sql.Clear;
Sql.Add('Select * ');
Sql.Add('From SCSJ_TSKXX Where 卡片状态=''' + Trim(CardStatus) + '''');
Sql.Add('And Convert(char(10),日期,20)<=''' + DateToStr(Rq) + '''');
Sql.Add('And IC卡号=''' + Trim(Kh) + '''');
try
Open;
except
Screen.Cursor := crDefault;
ShowMessage('无法浏览退卡信息!');
Exit;
end;
if RecordCount <> 0 then
begin
Screen.Cursor := crDefault;
ShowMessage('此卡已经退出!');
Exit;
end;
end;
Result := True;
end;
function TFrmCard_FirBack.GetCardStatus(Rq: TDate; Kh: string):
Boolean;
begin
Result := False;
with CardSell_DataModule.ADOQuery3 do
begin
Close;
Sql.Clear;
Sql.Add('Select top 1 卡片状态 ');
Sql.Add('From SCSJ_TSKXX Where ');
Sql.Add('Convert(char(10),日期,20)<=''' + DateToStr(Rq) + '''');
Sql.Add('And IC卡号=''' + Trim(Kh) + '''');
//Sql.Add('And 卡片状态='''+'使用'+'''');
Sql.Add('Order by 序号 DESC');
try
Open;
except
Screen.Cursor := crDefault;
ShowMessage('无法浏览售卡信息!');
Exit;
end;
if RecordCount = 0 then
begin
Screen.Cursor := crDefault;
ShowMessage('此卡还未售出!');
Exit;
end;
if FieldByName('卡片状态').AsString <> '使用' then
begin
Screen.Cursor := crDefault;
//ShowMessage('此卡还未售出!');
if FieldByName('卡片状态').AsString='未使用' then
ShowMessage('此卡片还未售出!');
if FieldByName('卡片状态').AsString='退卡' then
ShowMessage('此卡片已经退还!');
Exit;
end;
Result := True;
end;
end;
function TFrmCard_FirBack.SaveToDb: Boolean;
var
rq: TDate;
IcKh, KhName, CardStatus, CardLx, CzyName, MachineNo, CardValue, ValDate,
CkJe1: string;
CkJe, TkJe, Yj, Ye: Double;
ValDaynum: integer;
returnvalue: smallint;
pass: PChar;
begin
Result := False;
pass := PChar(PassWord1);
//校验密码
returnvalue := ReadFromDll('checkpass', Comhm, pass);
if returnvalue <> 1 then
Exit;
with CardSell_DataModule.ADOQuery2 do
begin
rq := StrToDate(DateTimeToStr(Fields[0].AsDateTime));
IcKh := Trim(Fields[1].AsString);
CkJe := 0;
TkJe := Fields[3].AsFloat;
Yj := Fields[4].AsFloat;
KhName := Trim(Fields[5].AsString);
ValDaynum := 0;
CardStatus := '退卡';
CardLx := Trim(Fields[8].AsString);
CzyName := Trim(Fields[9].AsString);
MachineNo := Trim(Fields[10].AsString);
CardValue := Trim(Fields[11].AsString);
Ye := CKJe;
ValDate := '0';
end;
CkJe1 := FloatToStr(CkJe * 100);
//写卡(密码,端口号,卡号,有效期,卡片类型,用户密码,折扣率,卡内余额)
returnvalue := WriteToCard(pass, Comhm, Pchar(IcKh), Pchar(ValDate), '04',
'0000', '15', Trim(CkJe1));
if returnvalue = 0 then
begin
ShowMessage('写卡错误!');
Exit;
end;
if not DeleteFromDB(rq, IcKh, MachineNo, CardStatus, CzyName) then
Exit;
if not DeleteFromSubDB(rq, IcKh, MachineNo, CardStatus, CzyName) then
Exit;
if not InsertToDb(rq, IcKh, CkJe, TkJe, Yj, KhName, ValDaynum, CardStatus,
CardLx, CzyName, MachineNo, CardValue, Ye) then
Exit;
if not InsertToSubDb(rq, IcKh, Yj, ValDaynum, CardStatus, CardLx, CzyName,
MachineNo, CardValue) then
Exit;
Result := True;
end;
function TFrmCard_FirBack.SaveToDb1: Boolean;
var
rq, ValRq: TDate;
IcKh, KhName, CardStatus, CardLx, CzyName, MachineNo, CardValue, ValDate,
CkJe1, ResultString,HintXx: string;
CkJe, TkJe, Yj, Ye, BackXj, BackCq: Double;
ValDaynum: integer;
returnvalue: smallint;
pass: PChar;
begin
Result := False;
pass := PChar(PassWord1);
IfValdate := False;
PublicUnit.IsPassValDay:=False;
PublicUnit.YsJe := 0;
//校验密码
returnvalue := ReadFromDll('checkpass', Comhm, pass);
if returnvalue <> 1 then
Exit;
with CardSell_DataModule.ADOQuery2 do
begin
rq := StrToDate(DateTimeToStr(Fields[0].AsDateTime));
IcKh := Trim(Fields[1].AsString);
Yj := Fields[4].AsFloat;
KhName := Trim(Fields[5].AsString);
CardStatus := '退卡';
CardLx := Trim(Fields[8].AsString);
CzyName := Trim(Fields[9].AsString);
MachineNo := Trim(Fields[10].AsString);
CardValue := Trim(Fields[11].AsString);
Ye := FieldByName('卡内余额').AsFloat;
CkJe := FieldByName('存款金额').AsFloat;
ValDate := '0';
ValRq := SellRq1 + FieldByName('有效天数').AsInteger;
if rq > ValRq then
begin
BackXj := StrToFloat(Trim(FieldByName('押金').AsString));
BackCq := FieldByName('卡内余额').AsFloat;
end
else
begin
BackXj := FieldByName('卡内余额').AsFloat +
StrToFloat(Trim(FieldByName('押金').AsString));
IfValDate := True;
end;
TkJe := BackXj;
end;
CkJe1 := FloatToStr(0 * 100);
//写卡(密码,端口号,卡号,有效期,卡片类型,用户密码,折扣率,卡内余额)
returnvalue := WriteToCard(pass, Comhm, Pchar(IcKh), Pchar(ValDate), '04',
'0000', '15', Trim(CkJe1));
if returnvalue = 0 then
begin
ShowMessage('写卡错误!');
Exit;
end;
{if not DeleteFromDB(rq, IcKh, MachineNo, CardStatus, CzyName) then
Exit;
if not DeleteFromSubDB(rq, IcKh, MachineNo, CardStatus, CzyName) then
Exit;}
if not InsertToDb(rq, IcKh, CkJe, TkJe, Yj, KhName, ValDaynum, CardStatus,
CardLx, CzyName, MachineNo, CardValue, Ye) then
Exit;
if not InsertToSubDb(rq, IcKh, Yj, ValDaynum, CardStatus, CardLx, CzyName,
MachineNo, CardValue) then
Exit;
if IfValdate then
{CardHint.SetWork('有效期内退卡！应该退还现金' + FloatToStr(BackXj) + '元!',
1)}
HintXx:='有效期内退卡！应该退还现金' + FloatToStr(BackXj) + '元!'
else
{CardHint.SetWork('超期退卡！应该退还现金' + FloatToStr(BackXj) +
'元,退还餐券' + FloatToStr(BackCq) + '元！', 2);}
begin
PublicUnit.IsPassValDay:=True;
PublicUnit.YsCqJe:=BackCq;
HintXx:='超期退卡！应该退还现金' + FloatToStr(BackXj) +
'元,退还餐券' + FloatToStr(BackCq) + '元！';
end;
ResultString:='退卡成功!'+ #13 + #10;
ResultString :=ResultString+ '退卡日期: ' + DateToStr(rq) + #13 + #10;
ResultString := ResultString + '卡号: ' + IcKh + #13 + #10;
ResultString := ResultString + '卡片面值: ' + CardValue + #13 + #10;
ResultString := ResultString + '押金: ' + FloatToStr(Yj) + #13 + #10;
ResultString := ResultString + '存款金额: ' + FloatToStr(CkJe) + #13 + #10;
ResultString := ResultString + '退卡金额: ' + FloatToStr(TkJe) + #13 + #10;
ResultString := ResultString + '卡片状态: ' + CardStatus + #13 + #10;
ResultString := ResultString + '卡片类型: ' + CardLx + #13 + #10;
ResultString := ResultString + '操作员姓名: ' + CzyName + #13 + #10;
ResultString := ResultString + '售卡机编码: ' + MachineNo + #13 + #10;
ResultString := ResultString +HintXx;
//Card_Result.SetWork(ResultString, '退卡结果');
PublicUnit.YsJe := BackXj;
Result := True;
end;
//向卡中写入数据
function TFrmCard_FirBack.WriteToCard(PassWord: Pchar; Comh: smallint; Cardh:
PChar; ValDay: PChar; CardType: string; UserPass1: string; Discount: string;
Ye:
string): smallint;
type
TDllFunc = function(pass: Pchar; comh: smallint; cardno: PChar; valdate:
PChar; dyte: string; userpass: string; disc: string; blance: string):
smallint; stdcall;
var
alib: THandle;
proc: TDllFunc;
FileName: string;
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -