ygda.pas

一个基于数据的药品行业管理系统,较全面,可供学习数据的开发人员参考消息

unit ygda;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ComCtrls, StdCtrls, ToolWin, Buttons, ExtCtrls, ExtDlgs,
  ImgList;

type
  Tfrmyg = class(TForm)
    ToolBar1: TToolBar;
    t1: TToolButton;
    t2: TToolButton;
    t3: TToolButton;
    t4: TToolButton;
    t5: TToolButton;
    t6: TToolButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit6: TEdit;
    StatusBar1: TStatusBar;
    GroupBox2: TGroupBox;
    stgid1: TStringGrid;
    Label3: TLabel;
    OpenPictureDialog1: TOpenPictureDialog;
    BitBtn1: TBitBtn;
    GroupBox3: TGroupBox;
    Edit7: TEdit;
    Label7: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    TreeView1: TTreeView;
    ToolButton1: TToolButton;
    ImageList1: TImageList;
    procedure t1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure Edit6Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure t4Click(Sender: TObject);
    procedure ygreflesh;
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    //procedure t7Click(Sender: TObject);
    procedure stgid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure t2Click(Sender: TObject);
    procedure t3Click(Sender: TObject);
    procedure t5Click(Sender: TObject);
    procedure t7Click(Sender: TObject);
    procedure addbm; //增加部门
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure ToolButton1Click(Sender: TObject);
    procedure addyg;
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure showdata(str:string);
    procedure treeviewflesh;
    procedure TreeView1Expanding(Sender: TObject; Node: TTreeNode;
      var AllowExpansion: Boolean);
    procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmyg: Tfrmyg;
  mycell,bmsave,ygsave:integer;
  editflag:integer;
implementation
uses date1, ygcx;
{$R *.dfm} 
procedure Tfrmyg.t1Click(Sender: TObject);
begin
editflag:=0;
screen.Cursor:=crDefault;
groupbox1.Enabled:=true;
groupbox2.Enabled:=true;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit6.Clear;
if treeview1.Selected.Text='部门' then
begin
  bmsave:=1;
  edit5.Clear;
  edit5.SetFocus;
  edit5.Color:=clskyblue;
  edit5.Enabled:=true;
end
else
begin
  ygsave:=1;
  edit1.Enabled:=true;
  edit2.Enabled:=true;
  edit3.Enabled:=true;
  edit4.Enabled:=true;
  edit6.Enabled:=true;
  edit1.SetFocus;
  edit1.Color:=clskyblue;
end;
t1.Enabled:=false;
t2.Enabled:=false;
t3.Enabled:=false;
t4.Enabled:=true;
t5.Enabled:=true;
t6.Enabled:=false;
bitbtn1.Enabled:=true;
end;

procedure Tfrmyg.Edit1Exit(Sender: TObject);
begin
with data do
begin
aq1.Connection:=adoc1;
aq1.Close;
aq1.SQL.Clear;
aq1.SQL.add('select ygbh from ygzl where ygbh=:ygbh and bmbh=:bmbh');
aq1.Parameters.ParamByName('ygbh').Value:=trim(edit1.Text);
aq1.Parameters.ParamByName('bmbh').Value:=trim(edit5.Text);
aq1.Open;
if aq1.Recordset.RecordCount>0 then
begin
showmessage('该员工编号已存在');
edit1.SetFocus;
edit1.SelectAll;
edit1.Color:=clskyblue;
exit;
end;
end;
if not edit1.Focused then
edit1.Color:=clwindow;
end;
procedure Tfrmyg.Edit3Exit(Sender: TObject);
begin
if not edit3.Focused then
edit3.Color:=clwindow;
end;
procedure Tfrmyg.Edit2Exit(Sender: TObject);
begin
if not edit2.Focused then
edit2.Color:=clwindow;
end;

procedure Tfrmyg.Edit4Exit(Sender: TObject);

begin
if not edit4.Focused then
edit4.Color:=clwindow;

end;

procedure Tfrmyg.Edit6Exit(Sender: TObject);

begin
if not edit6.Focused then
edit6.Color:=clwindow;

end;

procedure Tfrmyg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
with data do
begin
aq1.Connection:=adoc1;
aq1.Close;
aq1.SQL.Clear;
aq1.SQL.add('select ygbh from ygzl where ygbh=:ygbh and bmbh=:bmbh');
aq1.Parameters.ParamByName('ygbh').Value:=trim(edit1.Text);
aq1.Parameters.ParamByName('bmbh').Value:=trim(edit5.Text);
aq1.Open;
if aq1.Recordset.RecordCount>0 then
begin
showmessage('该员工编号已存在');
edit1.SetFocus;
edit1.SelectAll;
edit1.Color:=clskyblue;
exit;
end;
end;
edit2.SetFocus;
edit2.Color:=clskyblue;
end;
end;
procedure Tfrmyg.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit4.SetFocus;
edit4.Color:=clskyblue;
end;
end;
procedure Tfrmyg.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit3.SetFocus;
edit3.Color:=clskyblue;
end;
end;
procedure Tfrmyg.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit6.SetFocus;
edit6.Color:=clskyblue;
end;
end;
procedure Tfrmyg.FormCreate(Sender: TObject);
begin
treeviewflesh;
stgid1.FixedRows:=1;
stgid1.FixedColor:=clbtnface;
stgid1.RowCount:=2;
stgid1.ColCount:=5;
stgid1.Cells[0,0]:='员工编号';
stgid1.Cells[1,0]:='员工名称';
stgid1.Cells[2,0]:='电话';
stgid1.Cells[3,0]:='地址';
stgid1.Cells[4,0]:='职务';
stgid1.ColWidths[0]:=50;
stgid1.ColWidths[1]:=80;
stgid1.ColWidths[2]:=80;
stgid1.ColWidths[3]:=150;
stgid1.ColWidths[4]:=50;
 treeview1.Enabled:=true; 
end;

procedure Tfrmyg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   action:=cafree;
end;

procedure Tfrmyg.t4Click(Sender: TObject);
begin
   addbm;
   addyg;
   treeviewflesh;
groupbox1.Enabled:=false;
t1.Enabled:=true;
t2.Enabled:=true;
t3.Enabled:=true;
t4.Enabled:=false;
t5.Enabled:=false;
t6.Enabled:=true;
end;
procedure Tfrmyg.ygreflesh;
var i:integer;
begin
with data do
begin
aq1.Connection:=adoc1;
aq1.Close;
aq1.SQL.Clear;
aq1.SQL.Add('select * from ygzl order by ygbh');
aq1.Open;
stgid1.RowCount:=aq1.Recordset.RecordCount+1;
frmyg.StatusBar1.Panels[1].Text:=inttostr(aq1.Recordset.RecordCount);
stgid1.Font.Color:=clblack;
while not aq1.Eof do
begin
for i:=1 to stgid1.RowCount do
begin
stgid1.Cells[0,i]:=aq1.Fields.fieldbyname('ygbh').Value;
stgid1.Cells[1,i]:=aq1.Fields.fieldbyname('ygmc').Value;
stgid1.Cells[2,i]:=aq1.Fields.fieldbyname('phone').Value;
stgid1.Cells[3,i]:=aq1.Fields.fieldbyname('dz').Value;
stgid1.Cells[4,i]:=aq1.Fields.fieldbyname('zw').Value;
aq1.Next;
end;
end;
aq1.Close;
end;
end;
procedure Tfrmyg.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit6.Color:=clwindow;
t4.Click;
toolbutton1.Click;
end;
end; 


procedure Tfrmyg.stgid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
if stgid1.Focused then
begin
mycell:=arow;
frmyg.edit1.Text:=frmyg.stgid1.Cells[0,arow];
frmyg.edit2.Text:=frmyg.stgid1.Cells[1,arow];
frmyg.edit3.Text:=frmyg.stgid1.Cells[2,arow];
frmyg.edit4.Text:=frmyg.stgid1.Cells[3,arow];
frmyg.edit6.Text:=frmyg.stgid1.Cells[4,arow];
end;
end;

procedure Tfrmyg.t2Click(Sender: TObject);
begin
if (stgid1.Focused) and (stgid1.Cells[0,mycell]<>'') and (mycell<>0) then
begin
with data do
begin
aq1.Connection:=adoc1;
aq1.Close;
aq1.SQL.Clear;
aq1.SQL.Add('delete from ygzl where ygbh=:ygbh and bmbh=:bmbh');
aq1.Parameters.ParamByName('ygbh').Value:=stgid1.Cells[0,mycell];
aq1.Parameters.ParamByName('bmbh').Value:=trim(edit5.Text);
try
if messagedlg('确定删除此员工吗？',mtinformation,[mbyes,mbno],0)=mrno then exit;
   aq1.ExecSQL;
   edit1.Clear;
   edit2.Clear;
   edit3.Clear;
   edit4.Clear;
   edit6.Clear;
   messagedlg('此员工已删除库',mtinformation,[mbyes],1);
   ygreflesh;
except
   showmessage('数据库连接错误');
   end;
end;
end
else
begin
showmessage('请选择纪录');
exit;
end;
end;
procedure Tfrmyg.t3Click(Sender: TObject);
begin
if (stgid1.Focused) and (stgid1.Cells[0,mycell]<>'') and (mycell<>0) then
begin
edit1.Enabled:=false;
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
edit6.Enabled:=true;
edit1.Text:=frmyg.stgid1.Cells[0,mycell];
edit2.Text:=frmyg.stgid1.Cells[1,mycell];
edit3.Text:=frmyg.stgid1.Cells[2,mycell];
edit4.Text:=frmyg.stgid1.Cells[3,mycell];
edit6.Text:=frmyg.stgid1.Cells[4,mycell];
groupbox1.Enabled:=true;
edit2.SetFocus;
editflag:=1;
t1.Enabled:=false;
t2.Enabled:=false;
t3.Enabled:=false;
t4.Enabled:=true;
t5.Enabled:=true;
t6.Enabled:=false;
end
else
begin
showmessage('请选择纪录');
exit;
end;
end;
procedure Tfrmyg.t5Click(Sender: TObject);
begin
t1.Enabled:=true;
t2.Enabled:=true;
t3.Enabled:=true;
t4.Enabled:=false;
t5.Enabled:=false;