formrjinyaopinxinxi.~pas

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

unit FormRJinYaopinxinxi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, CheckLst, ExtCtrls, DB, ADODB;

type
  TJinYaopinxinxi = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBEdit11: TDBEdit;
    GroupBox3: TGroupBox;
    Label17: TLabel;
    Label18: TLabel;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    ComboBox1: TComboBox;
    Label19: TLabel;
    Edit1: TEdit;
    ADOQuery1: TADOQuery;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit7: TEdit;
    Memo1: TMemo;
    Label20: TLabel;
    Label21: TLabel;
    Edit8: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure dbEdit10Click(Sender: TObject);
    procedure DBEdit12Change(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JinYaopinxinxi: TJinYaopinxinxi;

implementation

uses FormRyaopinxinxi, FormRJinhuoruku;

{$R *.dfm}

procedure TJinYaopinxinxi.Button2Click(Sender: TObject);
begin
      JinYaopinxinxi.Close;;
      
end;

procedure TJinYaopinxinxi.Image1Click(Sender: TObject);
begin
Ryaopinxinxi.Show;
end;

procedure TJinYaopinxinxi.FormCreate(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:=('select 仓库名称 from 仓库信息');
adoquery1.Open;
while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.Fieldbyname('仓库名称').AsString);
adoquery1.Next;
end;
edit7.Text:=combobox1.Text;
end;

procedure TJinYaopinxinxi.Button1Click(Sender: TObject);
var
i,j:integer;
begin
for i:=1 to 19 do
    begin
    if jinhuoruku.StringGrid1.Cells[2,i]='' then
    begin
    jinhuoruku.StringGrid1.Cells[1,i]:=dbedit1.Text;
    jinhuoruku.StringGrid1.Cells[2,i]:=edit1.Text;
    jinhuoruku.StringGrid1.Cells[3,i]:=dbedit2.Text;
    jinhuoruku.StringGrid1.Cells[4,i]:=dbedit3.Text;
    jinhuoruku.StringGrid1.Cells[5,i]:=dbedit4.Text;
    jinhuoruku.StringGrid1.Cells[6,i]:=dbedit5.Text;
    jinhuoruku.StringGrid1.Cells[7,i]:=dbedit6.Text;
    jinhuoruku.StringGrid1.Cells[8,i]:=dbedit7.Text;
    jinhuoruku.StringGrid1.Cells[9,i]:=dbedit8.Text;
    jinhuoruku.StringGrid1.Cells[10,i]:=dbedit9.Text;
    jinhuoruku.StringGrid1.Cells[11,i]:=edit7.Text;
    jinhuoruku.StringGrid1.Cells[12,i]:=combobox1.Text;
    jinhuoruku.StringGrid1.Cells[13,i]:=edit2.Text;
    jinhuoruku.StringGrid1.Cells[14,i]:=dbedit11.Text;
    jinhuoruku.StringGrid1.Cells[15,i]:=edit3.Text;
    jinhuoruku.StringGrid1.Cells[16,i]:=edit4.Text;
    jinhuoruku.StringGrid1.Cells[17,i]:=edit5.Text;
    jinhuoruku.StringGrid1.Cells[18,i]:=edit6.Text;
    jinhuoruku.StringGrid1.Cells[19,i]:=memo1.Text;
    jinhuoruku.StringGrid1.Cells[20,i]:=edit8.Text;
    break;
    end;
    if jinhuoruku.StringGrid1.Cells[2,i]<>'' then

    end;
end;

procedure TJinYaopinxinxi.dbEdit10Click(Sender: TObject);
var
temp1,temp2,temp3:double;
begin
temp1:=strtofloat(edit3.Text);
temp2:=strtofloat(edit4.Text);
temp3:=temp1*temp2 ;
edit5.Text:=floattostr(temp3);

end;




procedure TJinYaopinxinxi.DBEdit12Change(Sender: TObject);
var
temp1,temp2,temp3:double;
begin
temp1:=strtofloat(edit3.Text);
temp2:=strtofloat(edit8.Text);

temp3:=temp1*(temp2/100);
edit6.Text:=floattostr(temp3);
end;

procedure TJinYaopinxinxi.ComboBox1Select(Sender: TObject);
var
num:integer;
temp:string;
begin
temp:=combobox1.Text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:=('select 仓库编号 from 仓库信息 where 仓库名称='''+temp+'''');
adoquery1.Open;
num:=strtoint(adoquery1.fieldbyname('仓库编号').AsString);
edit7.Text:=inttostr(num);
end;

end.