urkdj.pas

我的毕业设计

unit Urkdj;

interface

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

type
  Tfrmrkdj = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    edhwjg: TLabel;
    Label8: TLabel;
    edgysm: TEdit;
    edhujg: TEdit;
    edrkdate: TDateTimePicker;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    sbtnsave: TSpeedButton;
    sbtnxg: TSpeedButton;
    sbtndel: TSpeedButton;
    sbtnxz: 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;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Comckh: TComboBox;
    Comhwh: TComboBox;
    Table2: TTable;
    procedure sbtnxzClick(Sender: TObject);
    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 FormCreate(Sender: TObject);
    procedure ComhwhClick(Sender: TObject);
    procedure ComhwhSelect(Sender: TObject);
    procedure ComhwhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComckhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edrkdateKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
  ui:integer;
    { Public declarations }
  end;

var
  frmrkdj: Tfrmrkdj;

implementation

uses  uxiugai,udm, Umcquery, Uhhquery;

{$R *.dfm}

procedure Tfrmrkdj.sbtnxzClick(Sender: TObject);
begin
comhwh.Text:=' ';
comckh.Text:=' ' ;
 edgysm.Text:=' ';
 edhum.Text:=' ' ;
 edhus.Text:=' ' ;
 edhujg.Text:=' ';
 comhwh.SetFocus;
 edrkdate.DateTime:=now;
 sbtnsave.Enabled:=true;
sbtnxg.Enabled:=false;
sbtndel.Enabled:=false;

end;


procedure Tfrmrkdj.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 Tfrmrkdj.edhumKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then edhus.SetFocus; edhus.SelectAll;
   if key=38 then
  begin
    comhwh.SetFocus;
    comhwh.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 Tfrmrkdj.edhusKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then comckh.SetFocus; comckh.SelectAll;
     if key=38 then
  begin
    edhum.SetFocus;
    edhum.SelectAll;
    abort;
  end;
     if key=40 then
  begin
    comckh.SetFocus;
    comckh.SelectAll;
    abort;
  end;
    if key=39 then
  begin
    edrkdate.SetFocus;
    abort;
  end;
 end;

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

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

procedure Tfrmrkdj.edgysmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then edrkdate.SetFocus;
   if key=38 then
  begin
    edhujg.SetFocus;
    edhujg.SelectAll;
    abort;
  end;
    if key=37 then
  begin
    edhum.SetFocus;
   edhum.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edrkdate.SetFocus;
     abort;
  end;
end;

procedure Tfrmrkdj.sbtnsaveClick(Sender: TObject);
var
  m,hws,total,table2records,i,j:integer;

begin
 if (trim(comhwh.Text)='')or(trim(edhum.Text)='')or(trim(edhujg.Text)='')or (trim(comckh.Text)='')
 or(trim(edgysm.Text)='') then
     application.MessageBox('请输入完整的货物信息！','系统提示',mb_ok + mb_iconinformation)
 else
    begin
         if  (trim(edhus.Text)='') then
          begin
           application.MessageBox('请输入入库数量！','系统提示',mb_ok + mb_iconinformation);
           edhus.SetFocus;
           edhus.SelectAll;
          end
       else
         begin
           if (trim(comckh.Text)='5') or (trim(comckh.Text)='4')or (trim(comckh.Text)='3')or (trim(comckh.Text)='2')or (trim(comckh.Text)='1')then
           begin
           query1.close;
           query1.SQL.Clear;
           query1.SQL.Add('select * from hwb where  货物号=' + #39 + trim(comhwh.Text) + #39);
           query1.Open;
           table1.Active:=true;
           for i := 1 to table1.RecordCount do
           begin
           table1.RecNo := i;
            if table1.Fieldbyname('货物号').AsString = trim(comhwh.text) then
             j := table1.recno;
            end;
           if query1.Eof then
            begin
           if application.MessageBox('没有此货物号，作为新记录添加么？', '系统提示', MB_yesno + MB_ICONINFORMATION) = mryes then
             begin
             crflag:=1;
             table1.Active:=true;
             table1.Insert;
             table1.FieldByName('货物名').AsString:= edhum.Text;
             table1.FieldByName('货物号').AsString:= comhwh.Text;
             table1.FieldByName('货物数').AsString:= edhus.Text;
             table1.FieldByName('仓库号').AsString:= comckh.Text;
             table1.FieldByName('货物价格').AsString:=edhujg.Text;
             table1.FieldByName('供应商号').AsString:= edgysm.Text;
             table1.Post;
             table1.Active:=false;
             application.MessageBox('保存信息成功！','系统提示',mb_ok + mb_iconinformation);
             dbgrid1.Refresh;