formryaopinxinxi.pas

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

unit FormRyaopinxinxi;

interface

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

type
  TRyaopinxinxi = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Ryaopinxinxi: TRyaopinxinxi;

implementation

uses FormRJinYaopinxinxi;

{$R *.dfm}

procedure TRyaopinxinxi.Button2Click(Sender: TObject);
begin
    Ryaopinxinxi.close;

end;

procedure TRyaopinxinxi.DBGrid1DblClick(Sender: TObject);
var
num:string;
jianma,name,cname,guige,danwei,jixingname,leibiename,pizhunwenhao:string;
chufangbiaozhi,youxiaoqizhi:string;
begin
num:=Ryaopinxinxi.DBGrid1.Fields[0].AsString;
name:=ryaopinxinxi.DBGrid1.Fields[1].AsString;
jianma:=Ryaopinxinxi.DBGrid1.Fields[2].AsString;
cname:=Ryaopinxinxi.DBGrid1.Fields[3].AsString;
guige:=Ryaopinxinxi.DBGrid1.Fields[4].AsString;
danwei:=Ryaopinxinxi.DBGrid1.Fields[5].AsString;
jixingname:=Ryaopinxinxi.DBGrid1.Fields[6].AsString;
leibiename:=Ryaopinxinxi.DBGrid1.Fields[7].AsString;
pizhunwenhao:=Ryaopinxinxi.DBGrid1.Fields[8].AsString;
chufangbiaozhi:=Ryaopinxinxi.DBGrid1.Fields[9].AsString;
youxiaoqizhi:=Ryaopinxinxi.DBGrid1.Fields[10].AsString;
jinyaopinxinxi.DBEdit1.Text:=num;
jinyaopinxinxi.Edit1.Text:=name;
jinyaopinxinxi.DBEdit2.Text:=jianma;
jinyaopinxinxi.DBEdit3.Text:=cname;
jinyaopinxinxi.DBEdit4.Text:=guige;
jinyaopinxinxi.DBEdit5.Text:=danwei;
jinyaopinxinxi.DBEdit6.Text:=jixingname;
jinyaopinxinxi.DBEdit7.Text:=leibiename;
jinyaopinxinxi.DBEdit8.Text:=pizhunwenhao;
jinyaopinxinxi.DBEdit9.Text:=chufangbiaozhi;
jinyaopinxinxi.DBEdit11.Text:=youxiaoqizhi;
end;

end.