qygl.pas

很好的药店进销存系统

unit qygl;

interface

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

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

var
  qygl_Form: Tqygl_Form;

implementation

uses main, data;

{$R *.dfm}

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

procedure Tqygl_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(结算=1) 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 Tqygl_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 a.药编号,a.数量,a.单价,b.名称,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 Tqygl_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

procedure Tqygl_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 结算=2 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.