uvipfull.pas

这是一个三层的进销存系统

unit uvipfull;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, Mask, wwdbedit, wwdbdatetimepicker, ExtCtrls, StdCtrls,
  Buttons, DB, DBClient;

type
  Tfrmvipfull = class(TfrmBase)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Bevel1: TBevel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label28: TLabel;
    text3: TwwDBDateTimePicker;
    text2: TwwDBEdit;
    text1: TwwDBEdit;
    Label26: TLabel;
    Label25: TLabel;
    Label27: TLabel;
    text6: TwwDBEdit;
    text5: TwwDBEdit;
    text4: TwwDBEdit;
    Bevel2: TBevel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    btnexit: TBitBtn;
    btnok: TBitBtn;
    SpeedButton1: TSpeedButton;
    CDSbaseinfo: TClientDataSet;
    dsBaseinfo: TDataSource;
    BitBtn1: TBitBtn;
    procedure btnexitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure btnokClick(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    Cvipid:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmvipfull: Tfrmvipfull;

implementation

uses Global, common;

{$R *.dfm}

procedure Tfrmvipfull.btnexitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure Tfrmvipfull.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  frmvipfull:=nil;
end;

procedure Tfrmvipfull.SpeedButton1Click(Sender: TObject);
var
  CmdStr:string;
begin
  inherited;
  if (Edit1.Text='') then Exit;
  ClearCDSData(CDSbaseinfo);
  CmdStr:=' fcode='+vartosql(edit1.Text);
  GetsqlData(CDSbaseinfo,'Vvip','fid',CmdStr,1);
  if CDSbaseinfo.RecordCount > 0 then
    begin
      CvipID:=CDSbaseinfo.fieldbyname('fid').AsInteger; 
      text1.Text:=CDSbaseinfo.fieldbyname('fname').AsString;
      text2.Text:=CDSbaseinfo.fieldbyname('ftel').AsString;
      text3.Text:=CDSbaseinfo.fieldbyname('flastconsumed').AsString;
      text4.Text:=CDSbaseinfo.fieldbyname('fcomsumetotle').AsString;
      text5.Text:=CDSbaseinfo.fieldbyname('fbalance').AsString;
      text6.Text:=CDSbaseinfo.fieldbyname('fintegral').AsString;         
    end;
end;

procedure Tfrmvipfull.btnokClick(Sender: TObject);
var
  cmdStr:string;
begin
  inherited;
  if Cvipid = 0 then
    begin
      Messagedlg('没有正确刷卡,请重新刷卡 ! ',mtWarning,[mbok],0);
      Exit;
    end;

  if (strtofloat(edit2.Text) = 0) then
    begin
      Messagedlg('请输入充值金额 ! ',mtWarning,[mbok],0);
      Exit;
    end;

  cmdStr:='update tvip set fbalance='+
      vartosql(strtoint(edit2.Text)+strtoint(text5.Text))+
      ',fintegral='+vartosql(strtoint(edit3.Text)+strtoint(text6.Text))+
      ' where fid='+vartosql(CvipID);
  if Execsql(cmdStr) then
    begin
      Messagedlg('充值成功 ! ',mtWarning,[mbok],0);
      syslog(self.Name,'充值会员金额 ，会员卡号'+Trim(edit1.Text));
      Exit;
    end;
end;

procedure Tfrmvipfull.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not (key in['0'..'9',#8]) then
    key:=#0;
end;

procedure Tfrmvipfull.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not (key in['0'..'9',#8]) then
    key:=#0;
end;

procedure Tfrmvipfull.BitBtn1Click(Sender: TObject);
var
  cmdStr:String;
begin
  inherited;
  if Cvipid = 0 then
    begin
      Messagedlg('没有正确刷卡,请重新刷卡 ! ',mtWarning,[mbok],0);
      Exit;
    end;
  cmdStr:='update tvip set fbalance=0,fintegral=0 where fid='+vartosql(CvipID);
  if Execsql(cmdStr) then
    begin
      Messagedlg('冻结成功 ! ',mtWarning,[mbok],0);
      syslog(self.Name,'冻结会员金额 ，会员卡号'+Trim(edit1.Text));
      Exit;
    end;
end;

end.