formrjinhuoruku.pas

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

unit FormRJinhuoruku;

interface

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

type
  TJinhuoruku = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    StringGrid1: TStringGrid;
    Edit4: TEdit;
    Edit5: TEdit;
    ADOCommand1: TADOCommand;
    procedure Label7Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(sender: tobject);
    procedure FormCreate(sender: Tobject);
    procedure DBComboBox2DropDown(Sender: TObject);
    procedure ComboBox2DropDown(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);

    procedure Edit1Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure Edit3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Jinhuoruku: TJinhuoruku;

implementation

uses FormRJinYaopinxinxi, FormRgongyingshang;

{$R *.dfm}

procedure TJinhuoruku.Label7Click(Sender: TObject);
begin
     JinYaopinxinxi.Show;

end;

procedure TJinhuoruku.Button2Click(Sender: TObject);
begin
    Jinhuoruku.close;
end;
procedure Tjinhuoruku.FormShow(sender: tobject);
begin
dbedit2.Text:=datetostr(date);
end;

procedure tjinhuoruku.FormCreate(sender: tobject);
var
temp:string;
k,num:integer;
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;
stringgrid1.Cols[0].Add('序号');
stringgrid1.ColWidths[0]:=32;
stringgrid1.Cols[1].Add('药品编号');
stringgrid1.ColWidths[1]:=64;
stringgrid1.Cols[2].Add('药品名称');
stringgrid1.ColWidths[2]:=64;
stringgrid1.Cols[3].Add('药品拼音简码');
stringgrid1.ColWidths[3]:=96;
stringgrid1.Cols[4].Add('厂商名称');
stringgrid1.ColWidths[4]:=64;
stringgrid1.Cols[5].Add('规格');
stringgrid1.ColWidths[5]:=32;
stringgrid1.Cols[6].Add('单位');
stringgrid1.ColWidths[6]:=32;
stringgrid1.Cols[7].Add('剂型名称');
stringgrid1.ColWidths[7]:=64;
stringgrid1.Cols[8].Add('类别名称');
stringgrid1.ColWidths[8]:=64;
stringgrid1.Cols[9].Add('批准文号');
stringgrid1.ColWidths[9]:=64;
stringgrid1.Cols[10].Add('处方标志');
stringgrid1.ColWidths[10]:=64;
stringgrid1.Cols[11].Add('仓库编号');
stringgrid1.ColWidths[11]:=64;
stringgrid1.Cols[12].Add('仓库名称');
stringgrid1.ColWidths[12]:=64;
stringgrid1.Cols[13].Add('批号');
stringgrid1.ColWidths[13]:=32;
stringgrid1.Cols[14].Add('有效期至');
stringgrid1.ColWidths[14]:=64;
stringgrid1.Cols[15].Add('进价');
stringgrid1.ColWidths[15]:=32;
stringgrid1.Cols[16].Add('数量');
stringgrid1.ColWidths[16]:=32;
stringgrid1.Cols[17].Add('金额');
stringgrid1.ColWidths[17]:=32;
stringgrid1.Cols[18].Add('预售价');
stringgrid1.ColWidths[18]:=48;
stringgrid1.Cols[19].Add('备注');
stringgrid1.ColWidths[19]:=32;
stringgrid1.Cols[20].Add('折价率');
stringgrid1.ColWidths[20]:=32;
for k:=1 to 19 do
  begin
  stringgrid1.Rows[k].Add(inttostr(k));
  stringgrid1.RowHeights[k]:=19;
  end;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select max(入库编号) as 最大编号  from 入库信息');
adoquery1.Open;
num:=adoquery1.fieldbyname('最大编号').AsInteger;
num:=num+1;
dbedit1.Text:=inttostr(num);
end;

procedure TJinhuoruku.DBComboBox2DropDown(Sender: TObject);
begin
rgongyingshang.Visible:=true;
end;

procedure TJinhuoruku.ComboBox2DropDown(Sender: TObject);
begin
rgongyingshang.Visible:=true;
end;

procedure TJinhuoruku.ComboBox1Select(Sender: TObject);
var
name:string;
num:integer;
begin
name:=combobox1.Text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:=('select 业务员编号 from 业务员信息 where 业务员姓名='''+name+'''');
adoquery1.Open;
num:=adoquery1.fieldbyname('业务员编号').AsInteger;
edit4.Text:=inttostr(num);
end;







procedure TJinhuoruku.Edit1Click(Sender: TObject);
var
k,j,num1:integer;
num2,num3:double;
begin
j:=0;
for k:=1 to 19 do
  begin
  if stringgrid1.Cells[1,k]<>'' then
    begin
    j:=j+1;
    end;
  end;
edit1.Text:=inttostr(j);
end;

procedure TJinhuoruku.Edit2Click(Sender: TObject);
var
num,i,j,k:integer;

begin
k:=0;
for i:=1 to 19 do
  begin
  if stringgrid1.Cells[16,i]<>'' then
    begin
    j:=strtoint(stringgrid1.Cells[16,i]);
    k:=k+j;
    end;
  end;
edit2.Text:=inttostr(k);
end;
procedure TJinhuoruku.Edit3Click(Sender: TObject);
var
num,k:double;
i:integer;
begin
num:=0.0;
for i:=1 to 19 do
  begin
  if stringgrid1.Cells[17,i]<>'' then
   begin
     k:=strtofloat(stringgrid1.Cells[17,i]);
     num:=num+k;
   end;
  end;
edit3.Text:=floattostr(num);
end;

procedure TJinhuoruku.Button1Click(Sender: TObject);
var
i,num,rnum:integer;
num2,rnum2,jixing,jixinghao,leibie,leibiehao:string;
begin
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:=('select max(库存编号) as 最大库存编号 from 库存信息');
   adoquery1.Open;
   num:=strtoint(adoquery1.fieldbyname('最大库存编号').AsString);
for i:=1 to 19 do
  begin
  if stringgrid1.Cells[1,i]<>'' then
   begin

   num:=num+1;
   num2:=inttostr(num);
   jixing:=stringgrid1.Cells[7,i];
   leibie:=stringgrid1.Cells[8,i];
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:=('select 剂型编号 from 药品剂型信息 where 剂型名称='''+jixing+'''');
   adoquery1.Open;
   jixinghao:=adoquery1.fieldbyname('剂型编号').AsString;
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:=('select 类别编号 from 药品分类 where 类别名称='''+leibie+'''');
   adoquery1.Open;
   leibiehao:=adoquery1.fieldbyname('类别编号').AsString;
  adocommand1.CommandText:='insert into 库存信息([库存编号],[入库编号],[药品编号],[剂型编号],[类别编号],[仓库编号],[业务员编号],[供应商编号],[单位],[批号],[进价],[库存数量],[库存金额],[加成率],[预售价],[有效期至],[备注]) values('''+num2+''','''+dbedit1.Text+''','''+stringgrid1.cells[1,i]+''','''+jixinghao+''','''+leibiehao+''','''+stringgrid1.cells[11,i]+''','''+edit4.Text+''','''+edit5.text+''','''+stringgrid1.cells[6,i]+''','''+stringgrid1.cells[13,i]+''','''+stringgrid1.cells[15,i]+''','''+stringgrid1.cells[16,i]+''','''+stringgrid1.cells[17,i]+''','''+stringgrid1.cells[20,i]+''','''+stringgrid1.cells[18,i]+''','''+stringgrid1.cells[14,i]+''','''+stringgrid1.cells[19,i]+''')';
  adocommand1.Execute;
   adoquery1.Active:=false;
   adoquery1.Active:=true;
   adotable1.Active:=false;
   adotable1.Active:=true;

   end;
  end;


//for i:=1 to 19 do
 // begin
  //  if stringgrid1.Cells[1,i]<>'' then
   //   begin

  //      adocommand1.CommandText:='insert into 入库信息  ([入库编号],[药品编号],[剂型编号],[类别编号],[仓库编号],[业务员编号],[供应商编号],[单位],[批号],[进价],[入库数量],[入库金额],[进货日期],[有效期至],[备注]) values('''+dbedit1.Text+''','''+stringgrid1.Cells[1,i]+''','''+jixinghao+''','''+leibiehao+''','''+stringgrid1.Cells[11,i]+''','''+edit4.Text+''','''+edit5.Text+''','''+stringgrid1.Cells[6,i]+''','''+stringgrid1.Cells[13,i]+''','''+stringgrid1.Cells[15,i]+''','''+stringgrid1.Cells[16,i]+''','''+stringgrid1.Cells[17,i]+''','''+dbedit2.Text+''','''+stringgrid1.Cells[14,i]+''','''+stringgrid1.Cells[19,i]+''')';
  //      adocommand1.Execute;
  //      adoquery1.Active:=false;
  //      adoquery1.Active:=true;
 //     end;
//  end;
end;

end.