📄 urkdj.~pas

📁 我的毕业设计
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
             dbgrid1.Refresh;
             query1.Close;
             query1.open;
             comhwh.Clear;
             frmmcquery.commc.clear;
             frmhhquery.commc.clear;
             table1.Active:=true;
             for m:=1 to table1.RecordCount do
             begin
             comhwh.Items.Add(table1.fieldbyname('货物号').AsString );
             frmmcquery.commc.Items.Add(table1.fieldbyname('货物名').AsString );
             frmhhquery.commc.Items.Add(table1.fieldbyname('货物号').AsString );
             table1.Next;
              end;
              table2.Active:=true;
              table2records:=table2.RecordCount;
              table2.Insert;
              table2.FieldByName('编号').AsString:=inttostr(table2records+1);
              table2.FieldByName('货物号').AsString:= comhwh.Text;
               table2.FieldByName('货物数').AsString:= edhus.Text;
               table2.FieldByName('仓库号').AsString:= comckh.Text;
               table2.FieldByName('货物价格').AsString:=edhujg.Text;
               table2.FieldByName('供应商号').AsString:= edgysm.Text;
              table2.FieldByName('日期').AsDateTime:= edrkdate.datetime;
              table2.FieldByName('出入标志').AsString:=inttostr(crflag) ;
              table2.Post;
              table2.Active:=false;
            sbtnsave.Enabled:=true;
            sbtnxg.Enabled:=true;
            sbtndel.Enabled:=true;
            comhwh.Text:='';
            comckh.Text:='' ;
            edgysm.Text:='';
            edhum.Text:='' ;
            edhus.Text:='' ;
            edhujg.Text:='';
            edrkdate.DateTime:=now;
            comhwh.SetFocus;
            end
         else
           begin
           comhwh.SetFocus;
           sbtnxg.Enabled:=true;
           sbtndel.Enabled:=true;
           end;
         end
 else
     begin
     table1.Active:=true;
     table1.RecNo:=j;
       if application.MessageBox(pchar('此货物信息已存在，货物数量为'+table1.FieldByName('货物数').asstring+#13+'在此数量上加'+edhus.Text+'么？'), '系统提示', MB_yesno + MB_ICONINFORMATION) = mryes then
       begin
       query1.close;
       query1.SQL.Clear;
       query1.SQL.Add('select * from hwb where  货物号=' + #39 + trim(comhwh.Text) + #39);
       query1.Open;
       hws:= strtoint(table1.FieldByName('货物数').AsString);
       total:=hws+strtoint(edhus.Text);
       crflag:=1;
       table1.Active:=true;
        table1.Edit;
       table1.FieldByName('货物数').AsString:=inttostr(total);
       table1.Post;
       table2.Active:=true;
       table2records:=table2.RecordCount;
       table2.Insert;
       table2.FieldByName('编号').AsString:=inttostr(table2records+1);
       table2.FieldByName('货物号').AsString:= comhwh.Text;
       table2.FieldByName('货物数').AsString:= edhus.Text;
       table2.FieldByName('仓库号').AsString:= comckh.Text;
        table2.FieldByName('货物价格').AsString:=edhujg.Text;
       table2.FieldByName('供应商号').AsString:= edgysm.Text;
       table2.FieldByName('日期').AsDateTime:= edrkdate.datetime;
       table2.FieldByName('出入标志').AsString:=inttostr(crflag) ;
       table2.Post;
       table2.Active:=false;
       end;
    end;
 end
 else
   begin
   application.MessageBox('请选择正确的仓库号，您的选择范围是1--5！','系统提示',mb_ok + mb_iconinformation);
    comckh.setfocus;
    end;
end;
end;
end;
procedure Tfrmrkdj.sbtnexitClick(Sender: TObject);
begin
comhwh.text:='';
edhum.text:='';
edhus.text:='';
edhujg.text:='';
comckh.text:='';
edgysm.text:='';
query1.Close;
close;

end;

procedure Tfrmrkdj.sbtndelClick(Sender: TObject);
var
  m:integer;
begin
query1.Open;
if application.messagebox(Pchar('确实要删除货物号为  '+table1.fieldbyname('货物号').asstring+#13
         +'货物名为:'+table1.fieldbyname('货物名').asstring+#13+'的货物信息吗？'), '系统提示',mb_okcancel+mb_iconexclamation)=idok then
table1.Delete;
query1.Close;
query1.open;
table1.Active:=false;
comhwh.Clear;
frmmcquery.commc.clear;
frmhhquery.commc.clear;
table1.Active:=true;
for m:=1 to table1.RecordCount do
begin
comhwh.Items.Add(table1.fieldbyname('货物号').AsString );
frmmcquery.commc.Items.Add(table1.fieldbyname('货物名').AsString );
frmhhquery.commc.Items.Add(table1.fieldbyname('货物号').AsString );
table1.Next;
end;
comhwh.text:='';
edhum.text:='';
edhus.text:='';
edhujg.text:='';
comckh.text:='';
edgysm.text:='';
edrkdate.DateTime:=now;
end;

procedure Tfrmrkdj.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;
comhwh.Text:=table1.Fieldbyname('货物号').asstring;
edhum.Text:=table1.Fieldbyname('货物名').AsString;
edhus.Text:=table1.Fieldbyname('货物数').AsString;
edhujg.Text:=table1.Fieldbyname('货物价格').AsString;
edgysm.Text:=table1.Fieldbyname('供应商号').AsString;
comckh.Text:=table1.Fieldbyname('仓库号').AsString;
query1.Close;
end;

procedure Tfrmrkdj.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;
frmxiugai.edhwh.Text:=query1.Fieldbyname('货物号').asstring;
frmxiugai.edhwm.Text:=query1.Fieldbyname('货物名').AsString;
frmxiugai.edhws.Text:=query1.Fieldbyname('货物数').AsString;
frmxiugai.edhwjg.Text:=query1.Fieldbyname('货物价格').AsString;
frmxiugai.edgysm.Text:=query1.Fieldbyname('供应商号').AsString;
frmxiugai.edckh.Text:=query1.Fieldbyname('仓库号').AsString;
query1.Close;
frmxiugai.showmodal;
 
end;

procedure Tfrmrkdj.FormCreate(Sender: TObject);
var
 j:integer;
begin
query1.Close;
query1.open;
table1.Active:=true;
for j:=1 to table1.RecordCount do
begin
  comhwh.Items.Add(table1.fieldbyname('货物号').AsString );
  table1.Next;
end;
comckh.Items.Add('1');
comckh.Items.Add('2');
comckh.Items.Add('3');
comckh.Items.Add('4');
comckh.Items.Add('5');
sbtnxg.Enabled:=true;
sbtndel.Enabled:=true;
comhwh.text:='';
edhum.text:='';
edhus.text:='';
edhujg.text:='';
comckh.text:='';
edgysm.text:='';
edrkdate.DateTime:=now;
end;

procedure Tfrmrkdj.ComhwhClick(Sender: TObject);
begin
 query1.close;
query1.SQL.Clear;
query1.SQL.Add('select * from hwb where  货物号='+ #39 + trim(comhwh.Text) + #39);
query1.Open;
edhum.text:=query1.FieldByName('货物名').AsString;
comckh.text:=query1.FieldByName('仓库号').AsString;
edhujg.text:=query1.FieldByName('货物价格').AsString;
edgysm.text:=query1.FieldByName('供应商号').AsString;
end;

procedure Tfrmrkdj.ComhwhSelect(Sender: TObject);
begin
 table1.Active:=true;
query1.close;
query1.SQL.Clear;
query1.SQL.Add('select * from hwb where  货物号=' + #39 + trim(comhwh.Text) + #39);
query1.Open;
edhum.text:=query1.FieldByName('货物名').AsString;
comckh.text:=query1.FieldByName('仓库号').AsString;
edhujg.text:=query1.FieldByName('货物价格').AsString;
edgysm.text:=query1.FieldByName('供应商号').AsString;
end;

procedure Tfrmrkdj.ComhwhKeyDown(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.ComckhKeyDown(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;
   if key=40 then
  begin
    edhujg.SetFocus;
    edhujg.SelectAll;
    abort;
  end;
end;

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

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -