gysgl.~pas

帮助学校更快捷方便的完成考试

    BitBtn7.Enabled := False;
    BitBtn1.Enabled := False;
    BitBtn2.Enabled := False;
  end
  else
  EditValue;
end;
procedure TForm3.ShowDate;
begin
  with data.ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 供应商基础信息表');
    Open;
  end;
  EditValue;
end;

procedure TForm3.BitBtn5Click(Sender: TObject);
begin
   if data.ADOQuery2.FieldByName('供应商编号').Value = null then
  begin
    BitBtn5.Enabled := False;
    BitBtn1.Enabled := False;
    BitBtn2.Enabled := False;
    Exit;
  end;
  Try
  if Application.MessageBox('确实要修改该条记录吗？','提示',MB_YESNO )= ID_Yes then
  begin
    if IsNullEdit = False then
    begin
      with data.ADOQuery2 do
      begin
        Edit;
        FieldByName('供应商编号').Value := Edit1.Text ;
        FieldByName('供应商全称').Value := Edit2.Text ;
        FieldByName('简称').Value := Edit3.Text ;
        FieldByName('地址').Value := Edit4.Text ;
        FieldByName('所属地区').Value := Edit5.Text ;
        FieldByName('邮政编码').Value := Edit10.Text ;
        FieldByName('电话').Value := MaskEdit1.Text ;
        FieldByName('传真').Value := Edit11.Text ;
        FieldByName('联系人').Value := Edit12.Text ;
        FieldByName('联系人电话').Value := Edit7.Text ;
        FieldByName('开户银行').Value := Edit8.Text ;
        FieldByName('纳税人').Value := Edit9.Text ;
        FieldByName('邮箱网址').Value := Edit13.Text ;
        FieldByName('银行账号').Value := Edit14.Text ;
        Post;
      end;
      Application.MessageBox('修改成功','提示',0+64);
      ShowDate;
    end
    else
    begin
      Application.MessageBox('数据项不能为空.','提示',64);
      Exit;
    end;    
  end
  else
    EditValue;
  Except
  Application.MessageBox('系统出错','提示',0+64);
  Close;
  end;
end;

procedure TForm3.BitBtn6Click(Sender: TObject);
begin
   BitBtn4.Enabled := False;
  if data.ADOQuery2.FieldByName('供应商编号').Value = null then
  begin
    BitBtn6.Enabled := False;
    Exit;
  end;
  try
  If Application.MessageBox('确实要删除该条记录吗？','提示',MB_YESNO )= ID_Yes then
  begin
    with data.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('delete 供应商基础信息表 where 供应商编号= :a');
      Parameters.ParamByName('a').Value := Trim(Edit1.Text);
      ExecSQL
    end;
    Application.MessageBox('该条记录已经删除。','提示',0+64);
    ShowDate;
  end ;
  Except
  Application.MessageBox('系统出错。','提示',0+64);
  Close
  end;
end;

procedure TForm3.BitBtn7Click(Sender: TObject);
begin
  ShowDate;
  BitBtn5.Enabled := True;
  BitBtn6.Enabled := True;
  BitBtn2.Enabled := True;
end;
function TForm3.IsNullEdit: Boolean;
var
  Count: Integer;
begin
  IsNullEdit := False;
  For Count := 0 to Panel3.ControlCount-1 do
    if Panel3.Controls[Count]is TEdit then
      if Trim(TEdit(Panel3.Controls[Count]).Text)='' then
      begin
        IsNullEdit := True;
        Break;
      end;
end;

procedure TForm3.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   TBitBtn(Sender).Font.Color := clRed;
end;

procedure TForm3.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   TBitBtn(Sender).Font.Color := clBlue;
end;

procedure TForm3.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Screen.Cursor := -2;
end;

procedure TForm3.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Screen.Cursor := -21;
end;

procedure TForm3.Edit1Change(Sender: TObject);
begin
  if (Trim(Edit1.Text)<>'')and(Trim(Edit2.Text)<>'')and(Trim(Edit3.Text)<>'')and
    (Trim(Edit4.Text)<>'')and(Trim(Edit5.Text)<>'')and(Trim(Edit7.Text)<>'')and
      (Trim(Edit8.Text)<>'')and(Trim(Edit9.Text)<>'')and(Trim(Edit10.Text)<>'')and
        (Trim(Edit11.Text)<>'')and(Trim(Edit12.Text)<>'')and(Trim(Edit13.Text)<>'')
          and(Trim(Edit14.Text)<>'')and(Trim(MaskEdit1.Text)<>'')and(aa = True)then
    BitBtn4.Enabled := True
  else
    BitBtn4.Enabled := False;
end;
procedure TForm3.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key = vk_return then
    Edit2.SetFocus;
end;

procedure TForm3.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_return then
    Edit3.SetFocus;
  if key = vk_up then
    Edit1.SetFocus;
end;

procedure TForm3.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_return then
    Edit4.SetFocus;
  if key = vk_up then
    Edit2.SetFocus;
end;

procedure TForm3.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_return then
    Edit5.SetFocus;
  if key = vk_up then
    Edit3.SetFocus;
end;

procedure TForm3.Edit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_return then
    Edit10.SetFocus;
  if key = vk_up then
    Edit4.SetFocus;
end;

procedure TForm3.Edit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_return then
    MaskEdit1.SetFocus;
  if key = vk_up then
    Edit5.SetFocus;
end;

procedure TForm3.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key = vk_return then
    Edit11.SetFocus;
  if key = vk_up then
    Edit10.SetFocus;
end;

procedure TForm3.Edit11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key = vk_return then
    Edit12.SetFocus;
  if key = vk_up then
    MaskEdit1.SetFocus;
end;

procedure TForm3.Edit12KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_return then
    Edit7.SetFocus;
  if key = vk_up then
    Edit11.SetFocus;
end;

procedure TForm3.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_return then
    Edit8.SetFocus;
  if key = vk_up then
    Edit12.SetFocus;
end;

procedure TForm3.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_return then
    Edit14.SetFocus;
  if key = vk_up then
    Edit7.SetFocus;
end;

procedure TForm3.Edit14KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key = vk_return then
    Edit9.SetFocus;
  if key = vk_up then
    Edit8.SetFocus;
end;

procedure TForm3.Edit9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_return then
    Edit13.SetFocus;
  if key = vk_up then
    Edit14.SetFocus;
end;

procedure TForm3.Edit13KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key = vk_up then
    Edit9.SetFocus;
end;

procedure TForm3.Edit10KeyPress(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;
end.