formmanage.~pas

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

unit FormManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, Grids, DBGrids, DB, ADODB, jpeg,
  ExtCtrls, StdCtrls, DBCtrls, XPMan,ShellApi, Buttons;

type
  Tmanage = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    Image1: TImage;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Panel1: TPanel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    StatusBar1: TStatusBar;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    N44: TMenuItem;
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure FormShow(sender: tobject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  manage: Tmanage;

implementation

uses FormXiugaimima, FormYonghuguanli, FormRJinhuoruku,
  FormYonghumingxiugai, FormYaopinxinxitianjia, FormYaopinfenleitianjia,
  FormJixingenleitianjia, FormDanweifenleitianjia,
  FormGongyingshengxinxitianjia, FormYewuyuanxinxitianjia,
  FormCangkuxinxitianjia, Rxiaoshoukaidan, FormJinhuotongjichaxun,
  FormJinhuodanchakan, FormXiaoshoudanchakan, FormLirunjiesuan, FormKuchuntiaozheng,
  FormKehuxinxi, FormXiaoshoutongjichaxun, FormLogin, FormQidongping,
  FormShujubeifen;

{$R *.dfm}

procedure Tmanage.N7Click(Sender: TObject);
begin
   dbgrid1.Visible:=true;
   image1.Visible:=false;
   button1.Visible:=true;
   edit1.Visible:=true;
   label1.Visible:=true;
   label2.Caption:='药 品 分 类';
   label2.Visible:=true;

   label1.Caption:='药品分类查询:';
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 药品分类';
   adoquery1.Open;
   bitbtn1.Visible:=true;
bitbtn2.Visible:=true;
bitbtn3.Visible:=true;
bitbtn4.Visible:=true;
bitbtn5.Visible:=true;
end;

procedure Tmanage.N8Click(Sender: TObject);
begin
    dbgrid1.Visible:=true;
   image1.Visible:=false;
   button1.Visible:=true;
   edit1.Visible:=true;
   label1.Visible:=true;
   label1.Caption:='药品剂型信息查询：';
   label2.Caption:='剂 型 分 类';
   label2.Visible:=true;

   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 药品剂型信息';
   adoquery1.Open;
 bitbtn1.Visible:=true;
bitbtn2.Visible:=true;
bitbtn3.Visible:=true;
bitbtn4.Visible:=true;
bitbtn5.Visible:=true;
end;

procedure Tmanage.N9Click(Sender: TObject);
begin
   dbgrid1.Visible:=true;
   image1.Visible:=false;
   button1.Visible:=true;
   edit1.Visible:=true;
   label1.Visible:=true;
   label1.Caption:='单位信息查询： ';
    label2.Caption:='单 位 分 类';
   label2.Visible:=true;

   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 单位信息';
   adoquery1.Open;
bitbtn1.Visible:=true;
bitbtn2.Visible:=true;
bitbtn3.Visible:=true;
bitbtn4.Visible:=true;
bitbtn5.Visible:=true;
end;

procedure Tmanage.N10Click(Sender: TObject);
begin
   dbgrid1.Visible:=true;
   image1.Visible:=false;
   button1.Visible:=true;
   edit1.Visible:=true;
   label1.Visible:=true;
   label1.Caption:='药品分类查询:';
   label2.Caption:='药 品 信 息';
   label2.Visible:=true;

   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 药品信息查询';
   adoquery1.Open;
bitbtn1.Visible:=true;
bitbtn2.Visible:=true;
bitbtn3.Visible:=true;
bitbtn4.Visible:=true;
bitbtn5.Visible:=true;
end;

procedure Tmanage.N11Click(Sender: TObject);
begin
   dbgrid1.Visible:=true;
   image1.Visible:=false;
   button1.Visible:=true;
   edit1.Visible:=true;
   label1.Visible:=true;
   label1.Caption:='供应商信息查询:';
   label2.Caption:='供 应 商 信 息';
   label2.Visible:=true;

   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 供应商信息';
   adoquery1.Open;
 bitbtn1.Visible:=true;
bitbtn2.Visible:=true;
bitbtn3.Visible:=true;
bitbtn4.Visible:=true;
bitbtn5.Visible:=true;
end;

procedure Tmanage.N12Click(Sender: TObject);
begin
   dbgrid1.Visible:=true;
   image1.Visible:=false;
   button1.Visible:=true;
   edit1.Visible:=true;
   label1.Visible:=true;
   label1.Caption:='业务员信息查询:';
   label2.Caption:='业 务 员 信 息';
   label2.Visible:=true;

   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 业务员信息';
   adoquery1.Open;
   bitbtn1.Visible:=true;
bitbtn2.Visible:=true;
bitbtn3.Visible:=true;
bitbtn4.Visible:=true;
bitbtn5.Visible:=true;
end;

procedure Tmanage.N13Click(Sender: TObject);
begin
   dbgrid1.Visible:=true;
   image1.Visible:=false;
   button1.Visible:=true;
   edit1.Visible:=true;
   label1.Visible:=true;
   label1.Caption:='仓库信息查询:';
   label2.Caption:='仓 库 信 息';
   label2.Visible:=true;

   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 仓库信息';
   adoquery1.Open;
bitbtn1.Visible:=true;
bitbtn2.Visible:=true;
bitbtn3.Visible:=true;
bitbtn4.Visible:=true;
bitbtn5.Visible:=true;  
end;
procedure tmanage.FormShow(sender: tobject);
begin
   statusbar1.Panels[3].Text:=datetostr(date);
end;

procedure Tmanage.N2Click(Sender: TObject);
begin
  xiugaimima.visible:=true;
//  manage.Enabled:=false  ;

end;

procedure Tmanage.N3Click(Sender: TObject);
begin
yonghuguanli.visible:=true;
// manage.Enabled:=false  ;
end;

procedure Tmanage.Button1Click(Sender: TObject);
begin
if label1.Caption='药品分类查询:' then
  begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from 药品分类 where 拼音简码 like ''%'+edit1.text+'%''');
  adoquery1.Open;
  end;
if label1.Caption='剂型分类查询:' then
  begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from 药品剂型信息 where 拼音简码 like ''%'+edit1.text+'%''');
  adoquery1.Open;
  end;
if label1.Caption='药品分类查询:' then
  begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from 药品分类信息 where 拼音简码 like ''%'+edit1.text+'%''');
  adoquery1.Open;
  end;
if label1.Caption='供应商信息查询:' then
  begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from 供应商信息 where 拼音简码 like ''%'+edit1.text+'%''');
  adoquery1.Open;
  end;
if label1.Caption='客户信息查询:' then
  begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from 客户信息 where 拼音简码 like ''%'+edit1.text+'%''');
  adoquery1.Open;
  end;
if label1.Caption='业务员信息查询:' then
  begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from 业务员信息 where 拼音简码 like ''%'+edit1.text+'%''');
  adoquery1.Open;
  end;

end;

procedure Tmanage.N15Click(Sender: TObject);
begin
  jinhuoruku.visible:=true;
end;

procedure Tmanage.N34Click(Sender: TObject);
begin
xiugaiyonghuming.Visible:=true;
// manage.Enabled:=false;
end;

procedure Tmanage.N39Click(Sender: TObject);
begin
yaopinxinxitianjia.Visible:=true;
//manage.Enabled:=false;
end;

procedure Tmanage.N36Click(Sender: TObject);
begin
yaopinfenleitianjia.Visible:=true;
//manage.Enabled:=false;

end;

procedure Tmanage.N37Click(Sender: TObject);
begin
jixingfenleitianjia.visible:=true;
//manage.Enabled:=false;
end;

procedure Tmanage.N38Click(Sender: TObject);
begin
danweifenleitianjia.visible:=true;
//manage.Enabled:=false;
end;

procedure Tmanage.N40Click(Sender: TObject);
begin
gongyingshangxinxitianjia.visible:=true;
//manage.Enabled:=false;
end;

procedure Tmanage.N41Click(Sender: TObject);
begin
yewuyuanxinxitianjia.visible:=true;
//manage.Enabled:=false;
end;

procedure Tmanage.N42Click(Sender: TObject);
begin
cangkuxinxitianjia.visible:=true;
//manage.Enabled:=false;
end;

procedure Tmanage.N43Click(Sender: TObject);
begin
dbgrid1.Visible:=true;
   image1.Visible:=false;
   button1.Visible:=true;
   edit1.Visible:=true;
   label1.Visible:=true;
   label1.Caption:='客户信息查询:';
   label2.Caption:='客 户 信 息';
   label2.Visible:=true;

   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 客户信息';
   adoquery1.Open;
   bitbtn1.Visible:=true;
bitbtn2.Visible:=true;
bitbtn3.Visible:=true;
bitbtn4.Visible:=true;
bitbtn5.Visible:=true;
end;

procedure Tmanage.N19Click(Sender: TObject);
begin
xiaoshoukaidan.Show;
end;

procedure Tmanage.N26Click(Sender: TObject);
begin
 dbgrid1.Visible:=true;
   image1.Visible:=false;
   button1.Visible:=true;
   edit1.Visible:=true;
   label1.Visible:=true;
   label2.Caption:='库 存 信 息';
   label2.Visible:=true;

   label1.Caption:='库存信息查询:';
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from 库存信息查询';
   adoquery1.Open;
end;

procedure Tmanage.BitBtn1Click(Sender: TObject);
begin
datasource1.DataSet.First;
end;

procedure Tmanage.BitBtn2Click(Sender: TObject);
begin
datasource1.DataSet.Prior;
end;

procedure Tmanage.BitBtn3Click(Sender: TObject);
begin
datasource1.DataSet.Next;
end;

procedure Tmanage.BitBtn4Click(Sender: TObject);
begin
if application.MessageBox('删除该纪录?','',mb_okcancel)=idok then
datasource1.DataSet.Delete;
end;

procedure Tmanage.N17Click(Sender: TObject);
begin
jinhuotongjichaxun.Show();
end;

procedure Tmanage.N16Click(Sender: TObject);
begin
jinhuodanchakan.Show;
end;

procedure Tmanage.N20Click(Sender: TObject);
begin
xiaoshoudanchakan.show;

end;

procedure Tmanage.N22Click(Sender: TObject);
begin
lirunjiesuan.Show;
end;

procedure Tmanage.N24Click(Sender: TObject);
begin
kuchuntiaozheng.show
end;

procedure Tmanage.Button2Click(Sender: TObject);
begin
jinhuoruku.visible:=true;
end;

procedure Tmanage.Button3Click(Sender: TObject);
begin
 xiaoshoukaidan.Show;
end;

procedure Tmanage.Button4Click(Sender: TObject);
begin
manage.Close;
login.Close;
qidongping.Close;
end;

procedure Tmanage.N44Click(Sender: TObject);
begin
kehuxinxi.Show;
end;

procedure Tmanage.N21Click(Sender: TObject);
begin
xiaoshoutongjichaxun.show;
end;

procedure Tmanage.N4Click(Sender: TObject);
begin
shujubeifen.Caption:='数据备份';
shujubeifen.button1.Caption:='数据备份';
shujubeifen.Show;
end;

procedure Tmanage.N5Click(Sender: TObject);
begin
shujubeifen.Caption:='数据恢复';
shujubeifen.button1.Caption:='数据恢复';
shujubeifen.Show;
end;

procedure Tmanage.N28Click(Sender: TObject);
begin
    shellexecute(handle,nil,pchar('C:\Program Files\Borland\Delphi7\Projects\药品进销存系统\药1.hlp'),nil,nil,sw_shownormal);
end;

end.