csda.pas

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

unit csda;

interface

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

type
  Tfrm_csda = class(TForm)
    ToolBar1: TToolBar;
    tadd: TToolButton;
    tdel: TToolButton;
    tedit: TToolButton;
    tsave: TToolButton;
    tcancel: TToolButton;
    tprint: TToolButton;
    tfind: TToolButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    txtkhbh: TEdit;
    txtkhmc: TEdit;
    txtlxr: TEdit;
    txtdz: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    StatusBar1: TStatusBar;
    Label8: TLabel;
    txtfax: TEdit;
    Label9: TLabel;
    txtemail: TEdit;
    Label10: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label15: TLabel;
    Label3: TLabel;
    txtphone: TEdit;
    txthttp: TEdit;
    StringGrid1: TStringGrid;
    Label7: TLabel;
    TXTsfz: TEdit;
    ImageList2: TImageList;
    procedure taddClick(Sender: TObject);
    procedure txtkhbhExit(Sender: TObject);
    procedure txtlxrExit(Sender: TObject);
    procedure txtphoneExit(Sender: TObject);
    procedure txtkhmcExit(Sender: TObject);
    procedure txtdzExit(Sender: TObject);
    procedure txtkhbhKeyPress(Sender: TObject; var Key: Char);
    procedure txtlxrKeyPress(Sender: TObject; var Key: Char);
    procedure txtkhmcKeyPress(Sender: TObject; var Key: Char);
    procedure txtdzKeyPress(Sender: TObject; var Key: Char);
    procedure txtphoneKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tsaveClick(Sender: TObject);
    procedure khreflesh;
    procedure tdelClick(Sender: TObject);
    procedure teditClick(Sender: TObject);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure txtfaxExit(Sender: TObject);
    procedure txtemailExit(Sender: TObject);
    procedure txthttpExit(Sender: TObject);
    procedure txtkhbhMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TXTsfzKeyPress(Sender: TObject; var Key: Char);
    procedure TXTsfzExit(Sender: TObject);
    procedure txtcsrqKeyPress(Sender: TObject; var Key: Char);
    procedure txtfaxKeyPress(Sender: TObject; var Key: Char);
    procedure txtemailKeyPress(Sender: TObject; var Key: Char);
    procedure tcancelClick(Sender: TObject);
    procedure txthttpKeyPress(Sender: TObject; var Key: Char);
    procedure tfindClick(Sender: TObject);
    procedure csbhcreate;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_csda: Tfrm_csda;
  mycell:integer;
  editflag:integer;

implementation

uses date1;



{$R *.dfm}

function aenabeld(key:integer):boolean;
 begin
    with frm_csda do
    begin
    //浏览模式
    if key=0 then
    begin
    txtkhbh.enabled:=false;
    txtkhmc.enabled:=false;
    txtlxr.enabled:=false;
    txtphone.enabled:=false;
    txtfax.enabled:=false;
    txtdz.enabled:=false;
    txtemail.enabled:=false;
    txtsfz.enabled:=false;
    txthttp.enabled:=false;
    tadd.Enabled:=true;
    tdel.Enabled:=true;
    tedit.Enabled:=true;
    tsave.Enabled:=false;
    tcancel.Enabled:=false;
    tfind.Enabled:=true;
    tprint.Enabled:=true;
    end;
    //  编辑模式
    if key=1 then
    begin
    tadd.Enabled:=false;
    tdel.Enabled:=false;
    tedit.Enabled:=false;
    tsave.Enabled:=true;
    tcancel.Enabled:=true;
    tfind.Enabled:=false;
    txtkhbh.enabled:=false;
    txtkhmc.enabled:=true;
    txtlxr.enabled:=true;
    txtphone.enabled:=true;
    txtfax.enabled:=true;
    txtdz.enabled:=true;
    txtemail.enabled:=true;
    txtsfz.enabled:=true;
    txthttp.enabled:=true;
    txtkhMC.SetFocus;
    end;
    //新增
    if key=2 then
    begin
    tadd.Enabled:=false;
    tdel.Enabled:=false;
    tedit.Enabled:=false;
    tsave.Enabled:=true;
    tcancel.Enabled:=true;
    tfind.Enabled:=false;
    txtkhbh.Enabled:=false;
    txtkhmc.Enabled:=true;
    txtlxr.enabled:=true;
    txtphone.enabled:=true;
    txtfax.enabled:=true;
    txtdz.enabled:=true;
    txtemail.enabled:=true;
    txtsfz.enabled:=true;
    txthttp.enabled:=true;
    txtkhbh.Clear;
    txtkhmc.clear;
    txtlxr.clear;
    txtphone.clear;
    txtfax.clear;
    txtdz.clear;
    txtemail.clear;
    txtsfz.clear;
    txthttp.clear;
    txtkhmc.SetFocus;
    txtkhmc.Color:=clskyblue;
    end;
    //取消 保存
    if key=3 then
    begin
    txtkhbh.clear;
    txtkhmc.clear;
    txtlxr.clear;
    txtphone.clear;
    txtfax.clear;
    txtdz.clear;
    //txt.clear;
    txtemail.clear;
    txtsfz.clear;
    txthttp.clear;
    txtkhbh.enabled:=false;
    txtkhmc.enabled:=false;
    txtlxr.enabled:=false;
    txtphone.enabled:=false;
    txtfax.enabled:=false;
    txtdz.enabled:=false;
    txtemail.enabled:=false;
    txtsfz.enabled:=false;
    txthttp.enabled:=false;
    tadd.Enabled:=true;
    tdel.Enabled:=true;
    tedit.Enabled:=true;
    tsave.Enabled:=false;
    tcancel.Enabled:=false;
    tfind.Enabled:=true;
    tprint.Enabled:=true;
  end;
  end;
  end;

procedure Tfrm_csda.taddClick(Sender: TObject);
{var s,s1,s2,s3,csbh:string;
    i,k,j:integer;}
begin
editflag:=0;
screen.Cursor:=crDefault;
{with data do
begin
  aq2.Connection:=adoc1;
   aq2.Close;
   aq2.SQL.Clear;
   aq2.sql.Add('select csbh from csda  order by csbh');
   aq2.open;
   if aq2.Recordset.RecordCount=0 then
         begin
          csbh:='2001';
          end
        else
           begin
           aq2.Last;
           csbh:=inttostr(strtoint(trim(aq2.Fields.Fieldbyname('csbh').value))+1);
        end;  }
        aenabeld(2);
        //txtkhbh.text:=csbh;

end;

procedure Tfrm_csda.txtkhbhExit(Sender: TObject);
begin
with data do
begin
aq1.Connection:=adoc1;
aq1.Close;
aq1.SQL.Clear;
aq1.SQL.add('select csbh from csda where csbh=:khbh');
aq1.Parameters.ParamByName('khbh').Value:=trim(txtkhbh.Text);
aq1.Open;
if aq1.Recordset.RecordCount>0 then
begin
showmessage('该供应商编号已存在');
txtkhbh.SetFocus;
txtkhbh.SelectAll;
exit;
end;
end;
if not txtkhbh.Focused then
   txtkhbh.Color:=clwindow;
end;
procedure Tfrm_csda.txtlxrExit(Sender: TObject);
begin
if not txtlxr.Focused then
   txtlxr.Color:=clwindow;
end; 
procedure Tfrm_csda.txtphoneExit(Sender: TObject);
begin
if not txtphone.Focused then
   txtphone.Color:=clwindow;
end;

procedure Tfrm_csda.txtkhmcExit(Sender: TObject);
begin
if not txtkhmc.Focused then
   txtkhmc.Color:=clwindow;
end;

procedure Tfrm_csda.txtdzExit(Sender: TObject);
begin
if not txtdz.Focused then
   txtdz.Color:=clwindow;
end;

procedure Tfrm_csda.txtkhbhKeyPress(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 csbh from csda where csbh=:khbh');
aq1.Parameters.ParamByName('khbh').Value:=trim(txtkhbh.Text);
aq1.Open;
if aq1.Recordset.RecordCount>0 then
begin
showmessage('该供应商编号已存在');
txtkhbh.SetFocus;
txtkhbh.SelectAll; 
exit;
end;
end;
txtkhmc.SetFocus;
txtkhmc.Color:=clskyblue;
end;
end;
procedure Tfrm_csda.txtlxrKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
txtphone.SetFocus;
txtphone.Color:=clskyblue;
end;
end;

procedure Tfrm_csda.txtkhmcKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if txtkhmc.Text<>'' then
begin
txtdz.SetFocus;
txtdz.Color:=clskyblue;
end
else
messagebox(frm_csda.Handle,'供应商 名称不能为空','提示信息',mb_ok);
end;
end;

procedure Tfrm_csda.txtdzKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
txtlxr.SetFocus;
txtlxr.Color:=clskyblue;
end;
end;

procedure Tfrm_csda.txtphoneKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
txtfax.SetFocus;
txtfax.Color:=clskyblue;
end;
end;
procedure Tfrm_csda.FormCreate(Sender: TObject);
begin
stringgrid1.FixedRows:=1;
stringgrid1.FixedColor:=clbtnface;
stringgrid1.RowCount:=2;
stringgrid1.ColCount:=10;
stringgrid1.Cells[0,0]:='';
stringgrid1.Cells[1,0]:='厂商编号';
stringgrid1.Cells[2,0]:='厂商名称';
stringgrid1.Cells[3,0]:='地址';
stringgrid1.Cells[4,0]:='身份证号';
stringgrid1.Cells[5,0]:='联系人';;
stringgrid1.Cells[6,0]:='电话';
stringgrid1.Cells[7,0]:='传真';