vipbatch.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit VIPbatch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, StrUtils;

type
  TVIPbatchForm = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker2: TDateTimePicker;
    Label6: TLabel;
    Label15: TLabel;
    DateTimePicker1: TDateTimePicker;
    btnOK: TButton;
    Button2: TButton;
    procedure btnOKClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  VIPbatchForm: TVIPbatchForm;

implementation

uses datamodule1, edit, BasicData;

{$R *.dfm}

procedure TVIPbatchForm.btnOKClick(Sender: TObject);
var
  i,n,nMaxNo:integer;
  s:string;
begin
  if edit1.Text='' then
  begin
    showmessage('开始卡号不能为空！');
    exit
  end;
  if edit2.Text='' then
  begin
    showmessage('结束卡号不能为空！');
    exit
  end;
  n:=strtoint(edit2.Text)-strtoint(edit1.Text);
  if n<0 then
  begin
    showmessage('结束卡号不能小于开始卡号！');
    exit
  end;
  with DataE2.ADOQuery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add('select max(CardNo) as MaxNo from VIPCards');
    open;
    if FieldValues['MaxNo']<>null then
      nMaxNo:=strtoint(FieldByName('MaxNo').AsString)
    else
      nMaxNo:=0;
    if strtoint(edit1.Text)<=nMaxNo then
    begin
      showmessage('开始卡号已经存在！');
      exit
    end;

    close;
    SQL.Clear;
    SQL.Add('select * from VIPCards');
    open;
    s:=edit1.Text;
    for i:=1 to n+1 do
    begin
      Append;
      FieldByName('CardID').AsInteger:=edtForm.GetID('CardID','VIPCards');
      Fieldbyname('CardType').AsString:=ComboBox1.Text;
      Fieldbyname('CardState').AsString:='正常';
      Fieldbyname('CardNo').AsString:=Rightstr('00000000'+s,8);
      Fieldbyname('HandOutDate').asdatetime:=DateTimePicker1.DateTime;
      Fieldbyname('ValidDate').asdatetime:=DateTimePicker2.DateTime;
      s:=inttostr(strtoint(edit1.Text)+i);
    end;
    UpdateBatch;
    Application.MessageBox('数据保存成功！','提示',64);
  end;
  close;
  BasicDataForm.TBsec.Click;
end;

procedure TVIPbatchForm.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TVIPbatchForm.FormShow(Sender: TObject);
begin
  DateTimePicker1.Date:=now;
  DateTimePicker2.Date:=now;
end;

end.