formxiaoshoukaidanyaopinxinxi.pas

这是一个关于药品进销存的管理软件

unit FormXiaoshoukaidanyaopinxinxi;

interface

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

type
  Txiaoshoukaidanyaopinxinxi = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Label20: TLabel;
    Label21: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Edit17Click(Sender: TObject);
    procedure Edit19Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xiaoshoukaidanyaopinxinxi: Txiaoshoukaidanyaopinxinxi;

implementation

uses FormKucunxinxi, Rxiaoshoukaidan, FormRJinhuoruku;

{$R *.dfm}

procedure Txiaoshoukaidanyaopinxinxi.Button1Click(Sender: TObject);
begin
kucunxinxi.Show;
end;

procedure Txiaoshoukaidanyaopinxinxi.Edit17Click(Sender: TObject);
var
ysnum,znum:double;

begin
ysnum:=strtofloat(edit14.Text);
znum:=strtofloat(edit16.Text);
znum:=ysnum*(znum/100);
edit17.Text:=floattostr(znum);
end;

procedure Txiaoshoukaidanyaopinxinxi.Edit19Click(Sender: TObject);
var
num:integer;
jnum,znum:double;
begin
znum:=strtofloat(edit17.Text);
num:=strtoint(edit18.Text);
jnum:=num*znum;
edit19.text:=floattostr(jnum);
end;

procedure Txiaoshoukaidanyaopinxinxi.Button2Click(Sender: TObject);
var
i,j:integer;
begin
for i:=1 to 19 do
    begin
    if xiaoshoukaidan.StringGrid1.Cells[1,i]='' then
    begin
    xiaoshoukaidan.StringGrid1.Cells[1,i]:=edit1.Text;
    xiaoshoukaidan.StringGrid1.Cells[2,i]:=edit2.Text;
    xiaoshoukaidan.StringGrid1.Cells[3,i]:=edit3.Text;
    xiaoshoukaidan.StringGrid1.Cells[4,i]:=edit4.Text;
    xiaoshoukaidan.StringGrid1.Cells[5,i]:=edit5.Text;
    xiaoshoukaidan.StringGrid1.Cells[6,i]:=edit6.Text;
    xiaoshoukaidan.StringGrid1.Cells[7,i]:=edit7.Text;
    xiaoshoukaidan.StringGrid1.Cells[8,i]:=edit8.Text;
    xiaoshoukaidan.StringGrid1.Cells[9,i]:=edit9.Text;
    xiaoshoukaidan.StringGrid1.Cells[10,i]:=edit10.Text;
    xiaoshoukaidan.StringGrid1.Cells[11,i]:=edit11.Text;
    xiaoshoukaidan.StringGrid1.Cells[12,i]:=edit12.Text;
    xiaoshoukaidan.StringGrid1.Cells[13,i]:=edit13.Text;
    xiaoshoukaidan.StringGrid1.Cells[14,i]:=edit14.Text;
    xiaoshoukaidan.StringGrid1.Cells[15,i]:=edit15.Text;
    xiaoshoukaidan.StringGrid1.Cells[16,i]:=edit16.Text;
    xiaoshoukaidan.StringGrid1.Cells[17,i]:=edit17.Text;
    xiaoshoukaidan.StringGrid1.Cells[18,i]:=edit18.Text;
    xiaoshoukaidan.StringGrid1.Cells[19,i]:=edit19.Text;
    xiaoshoukaidan.StringGrid1.Cells[20,i]:=memo1.Text;
    xiaoshoukaidan.StringGrid1.Cells[21,i]:=memo2.Text;

    break;
    end;
    if jinhuoruku.StringGrid1.Cells[2,i]<>'' then

    end;
end;

end.