card_sellcard.pas

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

unit Card_SellCard;

interface

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

type
  TFrmCard_SellCard = class(TForm)
    Bevel1: TBevel;
    DataSource1: TDataSource;
    Panel1: TPanel;
    BitBtn4: TBitBtn;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBText1: TDBText;
    Label3: TLabel;
    Label4: TLabel;
    DBText2: TDBText;
    Label5: TLabel;
    DBText3: TDBText;
    Label6: TLabel;
    DBText4: TDBText;
    Label8: TLabel;
    DBText6: TDBText;
    Label7: TLabel;
    DBText5: TDBText;
    Label9: TLabel;
    DBText7: TDBText;
    Label10: TLabel;
    DBEdit4: TDBEdit;
    Label11: TLabel;
    Panel7: TPanel;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    DBNavigator1: TDBNavigator;
    ToolBar3: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    Panel8: TPanel;
    DBText8: TDBText;
    DBText9: 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 BitBtn4Click(Sender: TObject);
    procedure DBEdit4DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    PassWord1, PassWord2: string;
    Comhm: integer;
    OldCardFlag: Boolean;
    procedure ScanData;
    function IfEditNull: Boolean;
    function IfAlreadySold: Boolean;
    function SaveToDb: Boolean;
    function IfAlreadyIni: 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 ReadXx(CardNo: string; Rq: TDate): Boolean;
    procedure GetIniValue;
    procedure SetValue;
    function GetCardStatus(Rq: TDate; Kh: string): Boolean;
    function FindNeareastRecord(CardNo:String;var MaxXh:integer):Boolean;

  end;

procedure SetWork;
implementation
uses Card_DataModule, PublicUnit, DI_DBCalendar, main, DI_DBDictionery,
  Card_Result, DI_DataModul1, PZ_RqXz;

{$R *.dfm}

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

{与窗体有关}

procedure TFrmCard_SellCard.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;
  DBEdit4.ReadOnly:=True; 
  ScanData;
  Screen.Cursor := crDefault;
  //InitialEdit;
end;

procedure TFrmCard_SellCard.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TFrmCard_SellCard.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;
    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;
    Screen.Cursor := crDefault;
  end;
  SetDBGridFieldsDisplay(DbGrid1);
end;

function TFrmCard_SellCard.IfAlreadySold: 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_SellCard.IfAlreadyIni: 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_SellCard.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
      ShowMessage('此卡还未初始化!');
      Exit;
    end;
    if FieldByName('卡片状态').AsString <> '未使用' then
    begin
      //ShowMessage('此卡还未初始化!');
      if FieldByName('卡片状态').AsString='使用' then
        ShowMessage('此卡片已经销售!');
      if FieldByName('卡片状态').AsString='退卡' then
        ShowMessage('此卡片退还后还未重新初始化!');
      Exit;
    end;
  end;
  Result := True;
end;

function TFrmCard_SellCard.SaveToDb: Boolean;
var
  rq, ValRq: TDate;
  IcKh, KhName, CardStatus, CardLx, CzyName, MachineNo, CardValue, ValDate,
    Month2, Day2, CkJe1, ResultString: string;
  CkJe, TkJe, Yj, Ye: Double;
  returnvalue, ValDay: smallint;
  pass: PChar;
  Year1, Month1, Day1: Word;
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 := Fields[2].AsFloat;
    TkJe := 0;
    Yj := Fields[4].AsFloat;
    ValDay := StrToInt(IntToStr(Fields[6].AsInteger));
    // ValDaynum:=Fields[6].AsInteger;
    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 := CKJe;
    ValRq := rq + ValDay;
    DecodeDate(ValRq, Year1, Month1, Day1);
    Month2 := IntToStr(Month1);
    Day2 := IntToStr(Day1);
    if Month1 < 10 then
      Month2 := Trim('0' + IntToStr(Month1));
    if Day1 < 10 then
      Day2 := Trim('0' + IntToStr(Day1));
    ValDate := Trim(IntToStr(Year1) + Month2 + Day2);
    //ShowMessage(ValDate);
  end;
  CkJe1 := FloatToStr(Ye * 100);
  //写卡(密码,端口号,卡号,有效期,卡片类型,用户密码,折扣率,卡内余额)
  returnvalue := WriteToCard(pass, Comhm, Pchar(IcKh), Pchar(ValDate), '04',
    '0000', '00', 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;}