cgjh.pas

很好的药店进销存系统

unit cgjh;

interface

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

type
  Tcgjh_Form = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Panel1: TPanel;
    mc_LEdit: TLabeledEdit;
    bh_LEdit: TLabeledEdit;
    sl_LEdit: TLabeledEdit;
    cmdadd: TButton;
    cmdprt: TButton;
    kc_LV: TListView;
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure kc_LVClick(Sender: TObject);
    procedure cmdaddClick(Sender: TObject);
    procedure cmdprtClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cgjh_Form: Tcgjh_Form;

implementation

uses data, main;

{$R *.dfm}

procedure Tcgjh_Form.FormCreate(Sender: TObject);
var
    ListItem: TListItem;
begin
    with TQuery.Create(nil) do
    try
    Close;
    SessionName:=DM_form.Database1.SessionName;
    DatabaseName:=DM_form.Database1.DatabaseName;
    SQL.Clear;
    SQL.Add('select a.编号,a.名称,b.库存 from 药品信息 a,库存数据 b  where(b.库存>0)and(a.编号=b.编号) order by a.编号');
    Open;
    First;
    while not Eof do
    begin
        with kc_LV do
        begin
            listitem:=Items.Add;
            listitem.Caption:=fieldbyname('编号').AsString;
            listitem.SubItems.Add(fieldbyname('名称').AsString);
            listitem.SubItems.Add(fieldbyname('库存').AsString);
        end;
        Next;
    end;
    finally
    Free;
    end;
end;

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

procedure Tcgjh_Form.kc_LVClick(Sender: TObject);
begin
    try
    bh_LEdit.Text:=kc_LV.Selected.Caption;
    mc_LEdit.Text:=kc_LV.Selected.SubItems[0];
    sl_LEdit.Text:=kc_LV.Selected.SubItems[1];
    except
    bh_LEdit.Clear;
    mc_LEdit.Clear;
    sl_LEdit.Clear;
    end;
end;

procedure Tcgjh_Form.cmdaddClick(Sender: TObject);
begin
     try
     if strtofloat(sl_LEdit.Text)<=0 then
     begin
         ShowMessage('请输入数量！');
         exit;
     end;
     RichEdit1.Lines.Add(bh_LEdit.Text+'          '+mc_LEdit.Text+'          '+sl_LEdit.Text);
     mc_LEdit.Clear;
     sl_LEdit.Clear;
     bh_LEdit.Clear;
     except
     ShowMessage('请输入合法的数量信息！');
     end;
end;

procedure Tcgjh_Form.cmdprtClick(Sender: TObject);
begin
    RichEdit1.Print('药品采购计划表');
end;

end.