jsgl.pas

很好的药店进销存系统

unit jsgl;

interface

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

type
  Tjsgl_Form = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    gwc_CBox: TComboBox;
    cmdok: TButton;
    cmdclose: TButton;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    yh_LEdit: TLabeledEdit;
    hj_LEdit: TLabeledEdit;
    yhje_LEdit: TLabeledEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure gwc_CBoxChange(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
    procedure yh_LEditKeyPress(Sender: TObject; var Key: Char);
    procedure cmdokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jsgl_Form: Tjsgl_Form;

implementation

uses main, data;

{$R *.dfm}

procedure Tjsgl_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
    mainform.N33.Enabled:=true;
end;

procedure Tjsgl_Form.FormCreate(Sender: TObject);
begin
    Query1.SessionName:=DM_form.Database1.SessionName;
    Query1.DatabaseName:=DM_form.Database1.DatabaseName;
    with TQuery.Create(nil) do
    try
    Close;
    SessionName:=DM_form.Database1.SessionName;
    DatabaseName:=DM_form.Database1.DatabaseName;
    SQL.Clear;
    SQL.Add('select * from 购物记录 where(结算=0) order by 编号');
    Open;
    First;
    gwc_CBox.Items.Clear;
    while not Eof do
    begin
        gwc_CBox.Items.Add(fieldbyname('编号').AsString+'&'+fieldbyname('客户名').AsString);
        Next;
    end;
    finally
    Free;
    end;
end;

procedure Tjsgl_Form.gwc_CBoxChange(Sender: TObject);
var
    i:integer;
    bh,sqlstr:string;
begin
    i:=pos('&',trim(gwc_CBox.Text));
    bh:=copy(trim(gwc_CBox.Text),1,i-1);
    sqlstr:='select sum(数量*单价) as hj from 药品销售 where(编号='''+bh+''')';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    hj_LEdit.Text:=Query1.fieldbyname('hj').AsString;
    yhje_LEdit.Text:=floattostr(strtofloat(yh_LEdit.Text)*strtofloat(hj_LEdit.Text));
    sqlstr:='select a.药编号,a.数量,a.单价,b.名称 from 药品销售 a,药品信息 b where(a.编号='''+bh+''')and(a.药编号=b.编号) order by a.药编号';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    if Query1.RecordCount > 0 then
        cmdok.Enabled:=true
    else
        cmdok.Enabled:=false;
end;

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

procedure Tjsgl_Form.yh_LEditKeyPress(Sender: TObject; var Key: Char);
begin
    try
    yhje_LEdit.Text:=floattostr(strtofloat(hj_LEdit.Text)*strtofloat(yh_LEdit.Text));
    except
    ShowMessage('请输入合法的数字信息！');
    end;
end;

procedure Tjsgl_Form.cmdokClick(Sender: TObject);
var
    i:integer;
    bh,sqlstr:string;
begin
    i:=pos('&',trim(gwc_CBox.Text));
    bh:=copy(trim(gwc_CBox.Text),1,i-1);
    sqlstr:='update 购物记录 set 结算=1 where(编号='''+bh+''')';
    with TQuery.Create(nil) do
    begin
        try
        SessionName:=DM_form.Database1.SessionName;
        DatabaseName:=DM_form.Database1.DatabaseName;
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        ExecSQL;
        finally
        Free;
        end;
    end;
    ShowMessage('该购物车已经计算！');
    i:=gwc_CBox.ItemIndex;
    gwc_cbox.Items.Delete(i);
    Query1.Close;
end;

end.