unit1.~pas

生成批次号.. 很好的东西哟 看看吧

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DateTimePicker1: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
    procedure getrkbh(sender:Tobject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
  rkbh:string;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure Tform1.getrkbh(sender:Tobject);    //得到入库编号
var
str:string;
begin
str:=formatdatetime('yyyymmdd',DateTimePicker1.Date);
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 种类 where 种类ID like ''%' + str + '%''');
open;
end;
if adoquery1.IsEmpty then
    rkbh:='RK'+formatdatetime('yyyymmdd',DateTimePicker1.Date)+formatfloat('0000',1)
else
    begin
    adoquery1.Last;
    rkbh:='RK'+formatdatetime('yyyymmdd',DateTimePicker1.Date)+Formatfloat('0000',strtoint(copy(adoquery1.Fields[0].AsString,11,14))+1);
    end;
 end;


procedure TForm1.Button1Click(Sender: TObject);
begin
form1.getrkbh(sender);
edit1.Text:=rkbh;
with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('insert into 种类(种类名称,种类ID)');
      sql.Add('values(:种类名称,:种类ID)');
      parameters.ParamByName('种类ID').Value := trim(edit1.Text);
      parameters.ParamByName('种类名称').Value := trim(edit2.Text);
      try
        execsql;
        close;
        sql.Clear;
        sql.Add('select * from 种类 order by 种类ID');
        open;
        application.MessageBox('增加成功！', '提示！', mb_ok + mb_iconinformation);
        edit1.Text:='';
        edit2.Text:='';
      except
      end;
    end;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
DateTimePicker1.Date:=now;
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 种类');
open;
end;

end;

end.