supplier.pas

这是用delphi开发的一个物资管理信息系统

unit supplier;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, DBClient,supplier_unit,
  Menus, Buttons, ExtCtrls;

type
  Tsupplierfrm = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    supplier_ds1: TDataSource;
    supplier_cds1: TClientDataSet;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Panel1: TPanel;
    BitBtn3: TBitBtn;
    modify_btn: TButton;
    delete_btn: TButton;
    BitBtn1: TBitBtn;
    Button1: TButton;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    supplier_namelb: TLabel;
    supplier_nameed: TEdit;
    link_manlb: TLabel;
    link_maned: TEdit;
    link_phonelb: TLabel;
    link_phoneed: TEdit;
    supplier_addresslb: TLabel;
    remarklb: TLabel;
    supplier_addressed: TEdit;
    remarked: TMemo;
    supplier_codelb: TLabel;
    Label1: TLabel;
    Image1: TImage;
    procedure cancel_btnClick(Sender: TObject);
    procedure insert_btnClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure modify_btnClick(Sender: TObject);
    procedure delete_btnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure link_phoneedKeyPress(Sender: TObject; var Key: Char);
    procedure supplier_codeedKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure supplier_nameedKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure link_manedKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure link_phoneedKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure supplier_addressedKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure remarkedKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
     private
   supplier:Tsupplier;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  supplierfrm: Tsupplierfrm;

implementation

uses supplier_add, datamodule;

{$R *.dfm}

procedure Tsupplierfrm.cancel_btnClick(Sender: TObject);
begin
supplierfrm.Close;
end;

procedure Tsupplierfrm.insert_btnClick(Sender: TObject);
var
  insertsql,findsql:string;
begin
if  label1.Caption =''  then
begin
showmessage('供应商代码不能为空！');
exit;
end;

if supplier.CheckRec(label1.Caption) then
begin
showmessage('该供应商编号已经存在，请核查！');
exit;
end;

insertsql:='insert into supplier_info(supplier_code,'
+'supplier_name,supplier_address,link_man,link_phone,remark'
+')values('''+label1.Caption+''','''+supplier_nameed.Text+''','
+''''+supplier_addressed.Text+''','''+link_maned.Text+''','
+''''+link_phoneed.Text+''','''+remarked.Text+''')';
supplier.InsertRec(insertsql);

findsql:='select supplier_code 供应商代码,supplier_name 供应商名称,'
+'supplier_address 供应商地址,link_man 联系人,link_phone 联系电话,remark 备注 '
+'from  supplier_info where supplier_code='''+label1.Caption+'''';

supplier_cds1.Data:=supplier.FindAll(findsql);
   supplier_nameed.Text :='';
  link_maned.Text :='';
  link_phoneed.Text :='';
  supplier_addressed.Text :='';
  remarked.Text :='';
showmessage('恭喜你，录入成功！');

end;

procedure Tsupplierfrm.DBGrid1CellClick(Column: TColumn);
begin

label1.Caption:=DBGrid1.fields[0].asstring;
supplier_nameed.Text:=DBGrid1.fields[1].asstring;
supplier_addressed.Text:=DBGrid1.fields[2].asstring;
link_maned.Text:=DBGrid1.fields[3].asstring;
link_phoneed.Text:=DBGrid1.fields[4].asstring;
remarked.Text:=DBGrid1.fields[5].asstring;
end;

procedure Tsupplierfrm.modify_btnClick(Sender: TObject);
begin
if  application.MessageBox('要修改吗？','提示',mb_yesno+mb_iconquestion)=idyes then
begin

if label1.Caption='' then
begin
showmessage('请输入要修改记录的供应商代码！');
exit;
end;

if  (supplier.CheckRec(label1.Caption)=false)  then
begin
showmessage('该供应商编号不存在，请核查！');
exit;
end;

supplier.UpdateRec('update  supplier_info  set supplier_name='''+supplier_nameed.Text+''', '
+'supplier_address='''+supplier_addressed.Text+''',link_man='''+link_maned.Text+''','
+'link_phone='''+link_phoneed.Text+''',remark='''+remarked.Text+''' where  '
+'supplier_code='''+label1.Caption+'''');

supplier_cds1.Data:=supplier.FindAll('select supplier_code 供应商代码,'
+'supplier_name 供应商名称,supplier_address 供应商地址,link_man 联系人,'
+'link_phone 联系电话,remark 备注 '
+'from  supplier_info where supplier_code='''+label1.Caption+'''');

  supplier_nameed.Text :='';
  link_maned.Text :='';
  link_phoneed.Text :='';
  supplier_addressed.Text :='';
  remarked.Text :='';
showmessage('修改成功！');
end;

end;

procedure Tsupplierfrm.delete_btnClick(Sender: TObject);
begin
if  application.MessageBox('要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then
begin

if   label1.Caption=''  then
begin
showmessage('请输入要删除记录供应商代码！');
exit;
end;

if  (supplier.CheckRec(label1.Caption)=false)  then
begin
showmessage('该供应商编号不存在，请核查！');
exit;
end;

supplier.DeleteRec('delete  from  supplier_info where  '
+'supplier_code='''+label1.Caption+'''');

supplier_cds1.Data:=supplier.FindAll('select supplier_code 供应商代码,'
+'supplier_name 供应商名称,supplier_address 供应商地址,link_man 联系人,'
+'link_phone 联系电话,remark 备注 from  supplier_info ');

supplier_nameed.Text:='';
supplier_addressed.Text:='';link_maned.Text:='';
link_phoneed.Text:='';remarked.Text :='';

showmessage('删除成功！');
end;

end;

procedure Tsupplierfrm.FormActivate(Sender: TObject);
begin

supplier:=Tsupplier.create ;

supplier_cds1.Data:=supplier.FindAll('select supplier_code 供应商代码,'
+'supplier_name 供应商名称,supplier_address 供应商地址,link_man 联系人,'
+'link_phone 联系电话,remark 备注 from  supplier_info ');
end;

procedure Tsupplierfrm.N1Click(Sender: TObject);
begin

supplier_cds1.Data:=supplier.FindAll('select supplier_code 供应商代码,'
+'supplier_name 供应商名称,supplier_address 供应商地址,link_man 联系人,'
+'link_phone 联系电话,remark 备注 from  supplier_info ');
end;

procedure Tsupplierfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin

supplier.Free;
end;

procedure Tsupplierfrm.BitBtn1Click(Sender: TObject);
begin
 supplierfrm.Close ;
end;

procedure Tsupplierfrm.BitBtn3Click(Sender: TObject);
 var
   s,m:string;
   i:integer;
   begin
 with datamod.ADOQuery1 do
  begin
 close;
 sql.Clear ;
 sql.Add('select max(supplier_code) as ss from supplier_info');
 open;
 end;
 if datamod.adoquery1.FieldByName ('ss').Value =null then
  s:='00001'
 else
 begin
 m:=trim(datamod.adoquery1.fieldbyname('ss').Value );
  i:=strtoint(trim(copy(m,1,5)));
 if i<9then
 s:=s+'0000'+inttostr(i+1)
 else if i<99then
 s:=s+'000'+inttostr(i+1)
 else if i<999 then
 s:=s+'00'+inttostr(i+1)
 else if i<9999 then
 s:=s+'0'+inttostr(i+1)
 else
  s:=s+inttostr(i+1);
end;
  label1.caption:=s;
  supplier_nameed.SetFocus ;
supplier_nameed.Text:='';
supplier_addressed.Text:='';
link_maned.Text:='';
link_phoneed.Text:='';
remarked.Text :='';
end;



procedure Tsupplierfrm.link_phoneedKeyPress(Sender: TObject; var Key: Char);
  var
   m:boolean;
  begin
   m:=(key <#8)or(key>#8) and(key <#48)or(key>#57);
   if m then key:=#0;
end;

procedure Tsupplierfrm.supplier_codeedKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   supplier_nameed.SetFocus ;
end;

procedure Tsupplierfrm.supplier_nameedKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   link_maned.SetFocus ;
end;

procedure Tsupplierfrm.link_manedKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   link_phoneed.SetFocus ;
end;

procedure Tsupplierfrm.link_phoneedKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   supplier_addressed.SetFocus ;
end;

procedure Tsupplierfrm.supplier_addressedKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if(key=vk_return)or(key=vk_down) then
   remarked.SetFocus ;
end;

procedure Tsupplierfrm.remarkedKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   Button1.SetFocus ;
end;

procedure Tsupplierfrm.Button1Click(Sender: TObject);
var
  insertsql,findsql:string;
begin
if   label1.Caption =''  then
begin
showmessage('供应商代码不能为空！');
exit;
end;
if  supplier_nameed.Text  =''  then
begin
showmessage('供应商名称不能为空！');
exit;
end;
if supplier.CheckRec(label1.Caption) then
begin
showmessage('该供应商编号已经存在，请核查！');
exit;
end;
insertsql:='insert into supplier_info(supplier_code,'
+'supplier_name,supplier_address,link_man,link_phone,remark'
+')values('''+label1.Caption+''','''+supplier_nameed.Text+''','
+''''+supplier_addressed.Text+''','''+link_maned.Text+''','
+''''+link_phoneed.Text+''','''+remarked.Text+''')';
supplier.InsertRec(insertsql);

findsql:='select supplier_code 供应商代码,supplier_name 供应商名称,'
+'supplier_address 供应商地址,link_man 联系人,link_phone 联系电话,remark 备注 '
+'from  supplier_info where supplier_code='''+label1.Caption+'''';
supplier_cds1.Data:=supplier.FindAll(findsql);
showmessage('恭喜你这条消息录入成功！');
 supplier_nameed.Text:='';
supplier_addressed.Text:='';link_maned.Text:='';
link_phoneed.Text:='';remarked.Text :='';
end;

end.