card_backcard.~pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit Card_BackCard;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, ExtCtrls, DBCtrls, StdCtrls, Buttons, Mask,
  Grids, DBGrids, DB, IniFiles;

type
  TFrmCard_BackCard = 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;

{$R *.dfm}

procedure SetWork;
var
  FrmCard_BackCard: TFrmCard_BackCard;
begin
  Screen.Cursor := crHourGlass;
  Application.CreateForm(TFrmCard_BackCard, FrmCard_BackCard);
  FrmCard_BackCard.Show;
  Screen.Cursor := crDefault;
end;

{与窗体有关}

procedure TFrmCard_BackCard.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_BackCard.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TFrmCard_BackCard.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_BackCard.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_BackCard.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_BackCard.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_BackCard.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;
  //校验密码
  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;
  //ShowMessage('退卡成功!');
  if IfValdate then
   { CardHint.SetWork('有效期内退卡！应该退还现金' + FloatToStr(BackXj) + '元!',
      1)}
    HintXx:='有效期内退卡！应该退还现金' + FloatToStr(BackXj) + '元!'
  else
    {CardHint.SetWork('超期退卡！应该退还现金' + FloatToStr(BackXj) +
     '元,退还餐券' + FloatToStr(BackCq) + '元！', 2);}
    HintXx:='超期退卡！应该退还现金' + FloatToStr(BackXj) +
     '元,退还餐券' + FloatToStr(BackCq) + '元！';
  ResultString:=ResultString+'退卡成功!' + #13 + #10;
  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, '退卡结果');
  Result := True;
end;

//向卡中写入数据

function TFrmCard_BackCard.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
  FileName := ExtractFilePath(Application.ExeName) + 'iccardp.dll';
  try
    alib := LoadLibrary(PChar(FileName));
    if alib = 0 then
    begin
      Screen.Cursor := crDefault;