uxiugai.pas

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

unit Uxiugai;

interface

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

type
  Tfrmxiugai = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label4: TLabel;
    Edtfwdw: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    GroupBox3: TGroupBox;
    sptnclose: TSpeedButton;
    GroupBox4: TGroupBox;
    Label3: TLabel;
    Label13: TLabel;
    DateTimePicker1: TDateTimePicker;
    sptnsave: TSpeedButton;
    edtscqy: TRichEdit;
    edtypmc: TRichEdit;
    edtjx: TRichEdit;
    edtspm: TRichEdit;
    edtgg: TRichEdit;
    edtdw: TRichEdit;
    edtwh: TRichEdit;
    edtzlcc: TRichEdit;
    ComboBox1: TComboBox;
    edtzblsj: TEdit;
    procedure edtscqyMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure edtwhMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure edtjxMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure edtdwMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure edtypmcMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure edtggMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure edtspmMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure edtzblsjMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure edtzlccMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure sptnsaveClick(Sender: TObject);
    procedure sptncloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure edtscqyKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtypmcKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtjxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtspmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtggKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtdwKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtzblsjKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtzlccKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtglfsKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtscqyKeyPress(Sender: TObject; var Key: Char);
    procedure edtypmcKeyPress(Sender: TObject; var Key: Char);
    procedure edtjxKeyPress(Sender: TObject; var Key: Char);
    procedure edtspmKeyPress(Sender: TObject; var Key: Char);
    procedure edtggKeyPress(Sender: TObject; var Key: Char);
    procedure edtdwKeyPress(Sender: TObject; var Key: Char);
    procedure edtzlccKeyPress(Sender: TObject; var Key: Char);
    procedure edtzblsjKeyPress(Sender: TObject; var Key: Char);
    procedure edtglfsKeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edtzblsjExit(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure edtscqyChange(Sender: TObject);
    procedure edtypmcChange(Sender: TObject);
    procedure edtjxChange(Sender: TObject);
    procedure edtspmChange(Sender: TObject);
    procedure edtggChange(Sender: TObject);
    procedure edtdwChange(Sender: TObject);
    procedure edtzblsjChange(Sender: TObject);
    procedure edtwhChange(Sender: TObject);
    procedure edtzlccChange(Sender: TObject);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtwhKeyPress(Sender: TObject; var Key: Char);
    procedure edtwhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1Select(Sender: TObject);
  private
    { Private declarations }
     editflag:boolean; //editflag=true  修改界面改动标志
  public
    { Public declarations }
  //editflag=true  改动标志
   str:string;
  end;

var
  frmxiugai: Tfrmxiugai;
    //frmxiugai中的数据是否修改
   implementation  

uses Udm, Ulgb, Uinsert,uquery;

{$R *.dfm}

procedure Tfrmxiugai.edtscqyMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin
 edtscqy.SelectAll;

end;

procedure Tfrmxiugai.edtwhMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

begin
 edtwh.SelectAll;

end;

procedure Tfrmxiugai.edtjxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 edtjx.SelectAll;

end;

procedure Tfrmxiugai.edtdwMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 edtdw.SelectAll;

end;

procedure Tfrmxiugai.edtypmcMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 edtypmc.SelectAll;

end;

procedure Tfrmxiugai.edtggMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 edtgg.SelectAll;

end;

procedure Tfrmxiugai.edtspmMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 edtspm.SelectAll;

end;

procedure Tfrmxiugai.edtzblsjMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 edtzblsj.SelectAll;

end;

procedure Tfrmxiugai.edtzlccMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 edtzlcc.SelectAll;

end;

procedure Tfrmxiugai.sptnsaveClick(Sender: TObject);
begin
if (edtscqy.text='') or (edtypmc.text='') then
  application.MessageBox('生产企业和药品名称不能为空！','系统提示',mb_ok + mb_iconinformation)
else
begin
if editflag=false then
  begin
  application.MessageBox('您未做任何修改！','系统提示',mb_ok + mb_iconinformation);
  frmxiugai.edtscqy.SetFocus;
  frmxiugai.edtscqy.SelectAll;
  editflag:=false;
  end
 else
  begin
 if gxiugaibz=true then
 begin
   with frminsert do
 begin
 adoqopen(frminsert.adoquery1,'select  *  from zbcgb where zbcgb.id='+inttostr(frminsert.datasource1.DataSet.Fields[0].asinteger));
 frminsert.adoquery1.edit;
 frminsert.adoquery1.fieldbyname('scqy').asstring:=frmxiugai.edtscqy.text;
 frminsert.adoquery1.fieldbyname('wh').asstring:=frmxiugai.edtwh.text;
 frminsert.adoquery1.fieldbyname('ypmc').asstring:=frmxiugai.edtypmc.text;
 frminsert.adoquery1.fieldbyname('spm').asstring:=frmxiugai.edtspm.text;
 frminsert.adoquery1.fieldbyname('jx').asstring:=frmxiugai.edtjx.text;
 frminsert.adoquery1.fieldbyname('gg').asstring:=frmxiugai.edtgg.text;
 frminsert.adoquery1.fieldbyname('dw').asstring:=frmxiugai.edtdw.text;
 frminsert.adoquery1.fieldbyname('zlcc').asstring:=frmxiugai.edtzlcc.text;
 frminsert.adoquery1.fieldbyname('glfs').asstring:=frmxiugai.combobox1.text;
 frminsert.adoquery1.fieldbyname('zblsj').Asfloat:=strtofloat(frmxiugai.edtzblsj.Text);
 frminsert.adoquery1.fieldbyname('zbrq').Asstring:=datetostr(frmxiugai.DateTimePicker1.DateTime);
 frminsert.adoquery1.FieldByName('jgbm').AsString:=gjgbm;
 frminsert.adoquery1.Refresh;
 end;
 frminsert.adoqzbcg.Refresh;
 adoqopen(frminsert.adoqzbcg,'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');
 frminsert.adoqzbcg.MoveBy(frminsert.j-1);
 application.messagebox('数据保存成功！','系统提示',mb_ok+mb_iconinformation) ;
 close;
 frminsert.j:=0;
 frminsert.dbgrid1.Refresh;
 gxiugaibz:=false;
 editflag:=false;
 end;
  if gquerybz=true then
  begin
   frmquery.a:=frmquery.adoqzbcgb.RecNo;//当前操作记录号(序号)
   frmquery.dbgrid1.Refresh;
   with frmquery do
   begin
   adoqopen(frmquery.adoquery1,'select  *  from zbcgb where zbcgb.id='+inttostr(frmquery.datasource1.DataSet.Fields[0].asinteger));
   frmquery.adoquery1.edit;
   frmquery.adoquery1.fieldbyname('scqy').asstring:=frmxiugai.edtscqy.text;
   frmquery.adoquery1.fieldbyname('wh').asstring:=frmxiugai.edtwh.text;
   frmquery.adoquery1.fieldbyname('ypmc').asstring:=frmxiugai.edtypmc.text;
   frmquery.adoquery1.fieldbyname('spm').asstring:=frmxiugai.edtspm.text;
   frmquery.adoquery1.fieldbyname('jx').asstring:=frmxiugai.edtjx.text;
   frmquery.adoquery1.fieldbyname('gg').asstring:=frmxiugai.edtgg.text;
   frmquery.adoquery1.fieldbyname('dw').asstring:=frmxiugai.edtdw.text;
   frmquery.adoquery1.fieldbyname('zlcc').asstring:=frmxiugai.edtzlcc.text;
   frmquery.adoquery1.fieldbyname('glfs').asstring:=frmxiugai.combobox1.text;
   frmquery.adoquery1.fieldbyname('zblsj').Asfloat:=strtofloat(frmxiugai.edtzblsj.Text);
   frmquery.adoquery1.fieldbyname('zbrq').Asstring:=datetostr(frmxiugai.DateTimePicker1.DateTime);
   frmquery.adoquery1.FieldByName('jgbm').AsString:=gjgbm;
   frmquery.adoquery1.Refresh;
   str:='select zbcgb.*,str(zblsj,10,2) as jg,zzjjgb.jgmc as jgmc from zbcgb,zzjjgb where (zbrq>= :ksrq and zbrq< =:jsrq) and (zzjjgb.jgbm=zbcgb.jgbm) and zbcgb.jgbm='+#39+gjgbm +#39;
    if trim(edtscqy.Text )<>'' then
    str:=str+' and scqy like '+#39+'%'+trim(edtscqy.Text )+'%'+#39;
   if trim(edtypmc.Text )<>'' then
    str:=str+' and ypmc like '+#39+'%'+trim(edtypmc.Text )+'%'+#39;
   if trim(edtwh.Text )<>'' then
    str:=str+' and wh like'+#39+'%'+trim(edtwh.Text )+'%'+#39;
   if trim(edtspm.Text )<>'' then
    str:=str+' and spm like'+#39+'%'+trim(edtspm.Text )+'%'+#39;
   if trim(edtzblsj2.Text) <> '' then
    str := str + ' and zblsj<= ' + trim(edtzblsj2.Text);
   if trim(edtzblsj1.Text) <> '' then
    str := str + ' and zblsj>= ' + trim(edtzblsj1.Text);
 // if trim(cmbfwdw.text)<>'所有地市' then
  //  str:=str+'and zzjjgb.jgmc='+#39+trim(cmbfwdw.Text)+#39;
with adoqzbcgb do
  begin
    close;
    sql.Clear;
    sql.Add(str);
     Parameters.ParamByName('ksrq').Value := datetostr(dtzbrq1.Date);
    Parameters.ParamByName('jsrq').Value := datetostr(dtzbrq2.Date);
     try
    open;
    except
      begin
        application.MessageBox('网络无法连接，请重试！！！','系统提示',MB_OK+MB_ICONINFORMATION);
        abort;
      end;
    end;
  end;
 end;
  //adoqopen(frmquery.adoqzbcgb,'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');
   frmquery.adoqzbcgb.MoveBy(frmquery.a-1);
   application.messagebox('数据保存成功！','系统提示',mb_ok+mb_iconinformation) ;
   close;
   frmquery.a:=0;
   frmquery.dbgrid1.Refresh;
   gquerybz:=false;
   editflag:=false;
 end;
end;
end;
end;
procedure Tfrmxiugai.sptncloseClick(Sender: TObject);
begin
 if gxiugaibz then
   begin
   if editflag then
  begin
    if messagebox(GetforegroundWindow,'数据已改动，要保存吗？','系统提示',mb_okcancel+mb_iconinformation) =idok then
    begin
      sptnsave.Click;
      frminsert.dbgrid1.Refresh;
      close;
      frminsert.j:=0
      end else
      begin
      frminsert.dbgrid1.Refresh;
      close;
      frminsert.j:=0
      end;
 end else
    begin
     close;
     frminsert.dbgrid1.Refresh;
     frminsert.j:=0
    end;
end;
  gxiugaibz:=false;
if gquerybz=true then
   begin
   if editflag=true then
  begin
    if messagebox(GetforegroundWindow,'数据已改动，要保存吗？','系统提示',mb_okcancel+mb_iconinformation) =idok then
    begin
      sptnsave.Click;
      frmquery.dbgrid1.Refresh;
      close;
      frmquery.a:=0
     end else
      begin
      frmquery.dbgrid1.Refresh;
      close;
      frmquery.a:=0
      end;
 end else 
  begin
     close;
     frmquery.dbgrid1.Refresh;
     frmquery.a:=0
    end;
end;
 gquerybz:=false;
 editflag:=false;
end;

procedure Tfrmxiugai.FormCreate(Sender: TObject);
begin

Edtfwdw.Text:=gjgmc+'物价局';
combobox1.Items.Add ('政府定价');
combobox1.Items.add ('市场调节');
edtfwdw.Enabled:=false;
editflag:=false;

end;

procedure Tfrmxiugai.edtscqyKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then
  begin
    combobox1.SetFocus;
    combobox1.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edtypmc.SetFocus;
    edtypmc.SelectAll;
    abort;
  end;
end;