uhwxg.pas

我的毕业设计

unit Uhwxg;

interface

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

type
  Tfrmhwxg = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    edhwjg: TLabel;
    edhwh: TEdit;
    edckh: TEdit;
    edgysm: TEdit;
    edhujg: TEdit;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    sbtnxg: TSpeedButton;
    edhum: TEdit;
    edhus: TEdit;
    DataSource1: TDataSource;
    sbtnexit: TSpeedButton;
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TCurrencyField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Query1: TQuery;
    sbtndel: TSpeedButton;
    procedure sbtnxzClick(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure edhwhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edhumKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edhusKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edhujgKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edckhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edgysmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure sbtnsaveClick(Sender: TObject);
    procedure sbtnexitClick(Sender: TObject);
    procedure sbtndelClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure sbtnxgClick(Sender: TObject);
    procedure sbtdelClick(Sender: TObject);
  private
    { Private declarations }
  public
  ui:integer;
    { Public declarations }
  end;

var
  frmhwxg: Tfrmhwxg;

implementation

uses uxiugai, uhwxiugai;

{$R *.dfm}

procedure Tfrmhwxg.sbtnxzClick(Sender: TObject);
begin
edhwh.Text:=' ';
edckh.Text:=' ' ;
 edgysm.Text:=' ';
 edhum.Text:=' ' ;
 edhus.Text:=' ' ;
 edhujg.Text:=' ';
 edhwh.SetFocus;
 sbtnxg.Enabled:=false;
sbtndel.Enabled:=false;

end;


procedure Tfrmhwxg.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
 begin
 //query1.open;
//edhwh.Text:=query1.FieldValues['货物号'];
//edhum.Text:=query1.FieldValues['货物名'];
//edhus.Text:=query1.FieldValues['货物数'];
//edhujg.Text:=query1.FieldValues['货物价格'];
//edgysm.Text:=query1.FieldValues['供应商号'];
//edckh.Text:=query1.FieldValues['仓库号'];
//query1.Close;
end;

procedure Tfrmhwxg.edhwhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then edhum.SetFocus; edhum.SelectAll;
      if key=39 then
  begin
    edhujg.SetFocus;
    edhujg.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edhum.SetFocus;
    edhum.SelectAll;
    abort;
  end;
end;

procedure Tfrmhwxg.edhumKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then edhus.SetFocus; edhus.SelectAll;
   if key=38 then
  begin
    edhwh.SetFocus;
    edhwh.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edhus.SetFocus;
    edhus.SelectAll;
    abort;
  end;
  if key=39 then
  begin
    edgysm.SetFocus;
    edgysm.SelectAll;
    abort;
  end;
end;

procedure Tfrmhwxg.edhusKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then edhujg.SetFocus; edhujg.SelectAll;
     if key=38 then
  begin
    edhum.SetFocus;
    edhum.SelectAll;
    abort;
  end;
     if key=39 then
  begin
    edckh.SetFocus;
    edckh.SelectAll;
    abort;
  end;
 end;

procedure Tfrmhwxg.edhujgKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then edgysm.SetFocus; edgysm.SelectAll;
    if key=37 then
  begin
    edhwh.SetFocus;
    edhwh.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edgysm.SetFocus;
    edgysm.SelectAll;
    abort;
  end;
  end;

procedure Tfrmhwxg.edckhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=37 then
  begin
    edhus.SetFocus;
    edhus.SelectAll;
    abort;
  end;
  if key=38 then
  begin
    edgysm.SetFocus;
    edgysm.SelectAll;
    abort;
  end;
  end;

procedure Tfrmhwxg.edgysmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then edckh.SetFocus; edckh.SelectAll;

   if key=38 then
  begin
    edhujg.SetFocus;
    edhujg.SelectAll;
    abort;
  end;
   if key=37 then
  begin
    edhus.SetFocus;
    edhus.SelectAll;
    abort;
  end;
   if key=40 then
  begin
    edckh.SetFocus;
    edckh.SelectAll;
    abort;
 end;
end;
procedure Tfrmhwxg.sbtnsaveClick(Sender: TObject);
begin
if (edhwh.Text='')or(edhum.Text='')or(edhus.Text='')or (edckh.Text='')or
(edhus.Text='') or(edgysm.Text='') then
  application.MessageBox('请输入完整的货物信息！','系统提示',mb_ok + mb_iconinformation)
else
begin
table1.Edit;
table1.Insert;
table1.FieldByName('货物名').AsString:= edhum.Text;
table1.FieldByName('货物号').AsString:= edhwh.Text;
table1.FieldByName('货物数').AsString:= edhus.Text;
table1.FieldByName('仓库号').AsString:= edckh.Text;
table1.FieldByName('货物价格').AsFloat:= strtofloat(edhujg.Text);
table1.FieldByName('供应商号').AsString:= edgysm.Text;
table1.Post;
application.MessageBox('保存信息成功！','系统提示',mb_ok + mb_iconinformation);
sbtnxg.Enabled:=true;
sbtndel.Enabled:=true;
edhwh.Text:=' ';
edckh.Text:=' ' ;
 edgysm.Text:=' ';
 edhum.Text:=' ' ;
 edhus.Text:=' ' ;
 edhujg.Text:=' ';
 edhwh.SetFocus;
 end
  // ([edhwh.Text,edhum.Text,edhus.Text,edhus.Text,edgysm.Text,edckh.Text]);
//query1.Close;
//query1.SQL.Clear;
//query1.SQL.Add('select * from hwb');
//query1.SQL.Add('insert edhwh.Text,edhum.Text,edhus.Text,edhus.Text,edgysm.Text,edckh.Text into hwb.dbf' ) ;
//query1.ExecSQL;
end;

procedure Tfrmhwxg.sbtnexitClick(Sender: TObject);
begin
query1.Close;
close;

end;

procedure Tfrmhwxg.sbtndelClick(Sender: TObject);
begin
query1.Open;
if application.messagebox(Pchar('确实要删除货物号为  '+table1.fieldbyname('货物号').asstring+#13
         +'货物名:'+table1.fieldbyname('货物名').asstring+#13+'的药品吗？'), '系统提示',mb_okcancel+mb_iconexclamation)=idok then
table1.Delete;

end;

procedure Tfrmhwxg.DBGrid1CellClick(Column: TColumn);
 var
 h:string;
 begin
 h:=dbgrid1.Fields[0].AsString;
 query1.Close;
query1.SQL.Clear;
 query1.SQL.Add('select * from hwb where 货物号='+#39+h+#39+ '');
query1.Open;
edhwh.Text:=table1.Fieldbyname('货物号').asstring;
edhum.Text:=table1.Fieldbyname('货物名').AsString;
edhus.Text:=table1.Fieldbyname('货物数').AsString;
edhujg.Text:=table1.Fieldbyname('货物价格').AsString;
edgysm.Text:=table1.Fieldbyname('供应商号').AsString;
edckh.Text:=table1.Fieldbyname('仓库号').AsString;
query1.Close;
end;

procedure Tfrmhwxg.sbtnxgClick(Sender: TObject);
var
hwh:string;
begin
hwh:=dbgrid1.Fields[0].AsString;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from hwb where 货物号='+#39+hwh+#39+ '');
query1.Open;
frmhwxiugai.edhwh.Text:=query1.Fieldbyname('货物号').asstring;
frmhwxiugai.edhwm.Text:=query1.Fieldbyname('货物名').AsString;
frmhwxiugai.edhws.Text:=query1.Fieldbyname('货物数').AsString;
frmhwxiugai.edhwjg.Text:=query1.Fieldbyname('货物价格').AsString;
frmhwxiugai.edgysm.Text:=query1.Fieldbyname('供应商号').AsString;
frmhwxiugai.edckh.Text:=query1.Fieldbyname('仓库号').AsString;
query1.Close;
 frmhwxiugai.showmodal;

end;

procedure Tfrmhwxg.sbtdelClick(Sender: TObject);
begin
query1.Open;
if application.messagebox(Pchar('确实要删除货物号为  '+table1.fieldbyname('货物号').asstring+#13
         +'货物名:'+table1.fieldbyname('货物名').asstring+#13+'的货物吗？'), '系统提示',mb_okcancel+mb_iconexclamation)=idok then
table1.Delete;

end;

end.