uliulan.pas

在公司做的一个小的系统源代码

unit Uliulan;

interface

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

type
  Tfrmliulan = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    StatusBar1: TStatusBar;
    Sptnliulan: TSpeedButton;
    Sptnxhpx: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Sptnmcpx: TSpeedButton;
    Sptnqypx: TSpeedButton;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    procedure SptnliulanClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SptnxhpxClick(Sender: TObject);
    procedure SptnmcpxClick(Sender: TObject);
    procedure SptnqypxClick(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure FormResize(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
  private
   mousedown:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmliulan: Tfrmliulan;

implementation

uses Udm, Ulgb;

{$R *.dfm}

procedure Tfrmliulan.SptnliulanClick(Sender: TObject);
begin
  adoqopen(adoquery1,'select  zbcgb.* ,str(zblsj,10,2) as jg,zzjjgb.jgmc as jgmc from zzjjgb,zbcgb where zbcgb.jgbm ='+#39+gjgbm+#39+'and zzjjgb.jgbm=zbcgb.jgbm   ');
  adoquery1.Last;
  if  DataSource1.DataSet.RecordCount=0 then
  application.MessageBox('无任何药品！','系统提示',mb_ok + mb_iconinformation)
  else
   begin
  sptnqypx.Enabled:=true;
  sptnmcpx.Enabled:=true;
  sptnxhpx.Enabled:=true;
  end;
end;

procedure Tfrmliulan.SpeedButton3Click(Sender: TObject);
begin
adoquery1.Close;
close;
end;

procedure Tfrmliulan.SptnxhpxClick(Sender: TObject);
begin
if  adoquery1.Active then adoquery1.close;
  with adoquery1 do
  begin
  sql.Add('select  zbcgb.* ,str(zblsj,10,2) as jg,zzjjgb.jgmc as jgmc from zzjjgb,zbcgb where zbcgb.jgbm ='+#39+gjgbm+#39+'and zzjjgb.jgbm=zbcgb.jgbm order by id');
  try
  open;
  except
     begin
       application.MessageBox(Gcntinfo,'药品价格库',MB_OK+MB_ICONINFORMATION);
       abort;
     end;
  end;
  end;
end;

procedure Tfrmliulan.SptnmcpxClick(Sender: TObject);
begin
 if  adoquery1.Active then adoquery1.close;
  with adoquery1 do
  begin
  sql.Add('select  zbcgb.* ,str(zblsj,10,2) as jg,zzjjgb.jgmc as jgmc from zzjjgb,zbcgb where zbcgb.jgbm ='+#39+gjgbm+#39+'and zzjjgb.jgbm=zbcgb.jgbm ');
  try
  open;
  adoquery1.Sort := dbgrid1.columns.Items[2].FieldName;
   dbgrid1.Refresh;
  except
     begin
       application.MessageBox(Gcntinfo,'药品价格库',MB_OK+MB_ICONINFORMATION);
       abort;
     end;
  end;

  end;
end;

procedure Tfrmliulan.SptnqypxClick(Sender: TObject);
begin
if  adoquery1.Active then adoquery1.close;
  with adoquery1 do
  begin
  sql.Add('select  zbcgb.* ,str(zblsj,10,2) as jg,zzjjgb.jgmc as jgmc from zzjjgb,zbcgb where zbcgb.jgbm ='+#39+gjgbm+#39+'and zzjjgb.jgbm=zbcgb.jgbm ');
  try
  open;
  adoquery1.Sort := dbgrid1.columns.Items[4].FieldName;
   dbgrid1.Refresh;
  except
     begin
       application.MessageBox(Gcntinfo,'药品价格库',MB_OK+MB_ICONINFORMATION);
       abort;
     end;
  end;

  end;
end;

procedure Tfrmliulan.DataSource1DataChange(Sender: TObject; Field: TField);
begin
statusbar1.Panels[0].Text:='当前药品：序号为'+datasource1.DataSet.Fields[0].AsString;
 statusbar1.Panels[1].Text:='药品总数：'+IntToStr(DataSource1.DataSet.RecordCount);
end;

procedure Tfrmliulan.FormResize(Sender: TObject);
begin
dbgrid1.Left:=0;
dbgrid1.top:=39;
dbgrid1.width:=frmliulan.Width-18;
dbgrid1.Height:=frmliulan.Height-105;
end;

procedure Tfrmliulan.DBGrid1TitleClick(Column: TColumn);
begin
if adoquery1.Active=false then
   abort;
  mousedown := mousedown + 1;
  if mousedown mod 2 = 1 then
    ADOQuery1.Sort := column.FieldName
  else
   ADOQuery1.Sort := column.FieldName + '   ' + 'DESC';
 end;

procedure Tfrmliulan.FormCreate(Sender: TObject);
begin
  mousedown:=0;
  sptnqypx.Enabled:=false;
  sptnmcpx.Enabled:=false;
  sptnxhpx.Enabled:=false;
end;

end.