addgwc.pas

很好的药店进销存系统

unit addgwc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables;

type
  Taddgwc_Form = class(TForm)
    bh_LEdit: TLabeledEdit;
    xm_LEdit: TLabeledEdit;
    cmdok: TButton;
    cmdclose: TButton;
    procedure FormCreate(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addgwc_Form: Taddgwc_Form;

implementation

uses data;

{$R *.dfm}

procedure Taddgwc_Form.FormCreate(Sender: TObject);
var
    bh,rq,sqlstr:string;
begin
    rq:=formatdatetime('yyyymmdd',now);
    rq:=rq+'%';
    sqlstr:='select * from 购物记录 where(编号 like '''+rq+''') order by 编号';
    rq:=copy(rq,1,8);
    with TQuery.Create(nil) do
    try
    Close;
    SessionName:=DM_form.Database1.SessionName;
    DatabaseName:=DM_form.Database1.DatabaseName;
    SQL.Clear;
    SQL.Add(sqlstr);
    Open;
    if RecordCount > 0 then
    begin
        Last;
        bh:=copy(trim(fieldbyname('编号').AsString),9,4);
        bh:=rq+inttostr(strtoint(bh)+1);
    end
    else
    begin
        bh:=rq+'1001';
    end;
    finally
    Free;
    end;
    bh_ledit.Text:=bh;
end;

procedure Taddgwc_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

procedure Taddgwc_Form.cmdokClick(Sender: TObject);
var
    bh,mc,rq,sqlstr:string;
begin
    bh:=trim(bh_ledit.Text);
    mc:=trim(xm_ledit.Text);
    if length(mc)<1 then
    begin
        ShowMessage('请输入姓名！');
        exit;
    end;
    rq:=datetimetostr(now);
    sqlstr:='insert into 购物记录(编号,客户名,日期)values('''+bh;
    sqlstr:=sqlstr+''','''+mc+''','''+rq+''')';
    with TQuery.Create(nil) do
    try
    Close;
    SessionName:=DM_form.Database1.SessionName;
    DatabaseName:=DM_form.Database1.DatabaseName;
    SQL.Clear;
    SQL.Add(sqlstr);
    ExecSQL;
    finally
    Free;
    end;
    ShowMessage('创建购物车成功！');
    close;
end;

end.