khzl.pas

这是用Delphi编写的中小企业管理系统

          ParamByName('i').AsInteger := xded.ItemIndex;
          ParamByName('j').AsInteger := StrToInt(hcts.Text);
          ParamByName('k').AsString := Trim(xyed.Text);
          ParamByName('l').AsString := Trim(jzr.Text);
          ParamByName('m').AsString := Trim(Edit1.Text);
          ParamByName('n').AsString := Trim(Edit2.Text);
          ParamByName('o').AsString := Trim(Edit3.Text);
          ParamByName('p').AsString := Trim(Edit5.Text);
          ParamByName('q').AsString := Trim(Edit4.Text);
          ParamByName('r').AsString := Trim(wz.Text);
          ParamByName('s').AsString := Trim(Data.Query2.FieldByName('khdm').AsString);
          ExecSQL;
        end;  
        Application.MessageBox('修改成功.','提示',64);
        B4.OnClick(Sender);
      Except
        Application.MessageBox('修改失败.','提示',64);
      End;
    end
    else
      Application.MessageBox('数据项不能为空.','提示',64);
  end;
end;

procedure Tf_khzl.B5Click(Sender: TObject);
begin
  inherited;
  if Application.MessageBox('确实要删除当前记录吗?','提示',mb_YesNo)=ID_Yes then
    if Data.Query2.RecordCount>0 then
    begin
      Data.Query2.Delete;
      B4.OnClick(Sender);
    end;
end;

procedure Tf_khzl.FormShow(Sender: TObject);
begin
  inherited;
  fktj.Clear;
  Data.Query2.RequestLive := True;
  With Data.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select fktj from t_fkdm');
    Open;
  end;
  if Data.Query1.RecordCount>0 then
    while Not Data.Query1.Eof do
    begin
      fktj.Items.Add(Data.Query1.Fields[0].AsString);
      Data.Query1.Next;
    end;  
  xyed.Clear;
  With Data.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select dj from t_xyed');
    Open;
  end;
  if Data.Query1.RecordCount>0 then
    while Not Data.Query1.Eof do
    begin
      xyed.Items.Add(Data.Query1.Fields[0].AsString);
      Data.Query1.Next;
    end;      
  fktj.ItemIndex := 0;
  ksb.ItemIndex := 0;
  xded.ItemIndex := 0;
  xyed.ItemIndex := 0;
  B4.OnClick(Sender);
end;

procedure Tf_khzl.khmcKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  khdmKeyDown(Sender,Key,Shift);
  if Key = vk_Next then
  begin
    SelectTable('t_gsxz');
    chb.Tag := 1;
    SetListPos(khmc);
  end;
end;

procedure Tf_khzl.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  khdmKeyDown(Sender,Key,Shift);
  if Key = vk_Next then
  begin
    SelectTable('t_state');
    chb.Tag := 2;
    SetListPos(Edit1);
  end;
end;

procedure Tf_khzl.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  khdmKeyDown(Sender,Key,Shift);
  if Key = vk_Next then
  begin
    SelectTable('t_sf');
    chb.Tag := 3;
    SetListPos(Edit2);
  end;
end;

procedure Tf_khzl.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  KhdmKeyDown(Sender,Key,Shift);
  if Key = vk_Next then
  begin
    SelectTable('t_city');
    chb.Tag := 4;
    SetListPos(Edit3);
  end;
end;

procedure Tf_khzl.chbKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key = vk_Return then
  begin
    Case chb.Tag of
      1: begin
           khmc.Text := khmc.Text+ chb.Items[chb.ItemIndex];
           khmc.SetFocus;
         end;
      2: begin
           Edit1.Text := Edit1.Text+chb.Items[chb.ItemIndex];
           Edit1.SetFocus;
         end;
      3: begin
           Edit2.Text := Edit2.Text+chb.Items[chb.ItemIndex];
           Edit2.SetFocus;
         end;
      4: begin
           Edit3.Text := Edit3.Text+chb.Items[chb.ItemIndex];
           Edit3.SetFocus;
         end;
    end;
    chb.Visible := False;
  end;
end;

procedure Tf_khzl.B9Click(Sender: TObject);
begin
  inherited;
  Data.Query2.First;
  B2.Enabled := True;
  B5.Enabled := True;
  B3.Enabled := False;
  B9.Enabled := False;
  B10.Enabled := False;
  B11.Enabled := True;
  B12.Enabled := True;
  EditValue;
end;

procedure Tf_khzl.B10Click(Sender: TObject);
begin
  inherited;
  Data.Query2.Prior;
  B2.Enabled := True;
  B5.Enabled := True;
  B3.Enabled := False;
  B11.Enabled := True;
  B12.Enabled := True;
  if Data.Query2.Bof = True then
  begin
    B9.Enabled := False;
    B10.Enabled := False;
  end;
  EditValue;
end;

procedure Tf_khzl.B11Click(Sender: TObject);
begin
  inherited;
  Data.Query2.Next;
  B2.Enabled := True;
  B5.Enabled := True;
  B3.Enabled := False;
  B9.Enabled := True;
  B10.Enabled := True;
  if Data.Query2.Eof = True then
  begin
    B11.Enabled := False;
    B12.Enabled := False;
  end;
  EditValue;
end;

procedure Tf_khzl.B12Click(Sender: TObject);
begin
  inherited;
  Data.Query2.Last;
  B2.Enabled := True;
  B3.Enabled := False;
  B5.Enabled := True;
  B9.Enabled := True;      
  B10.Enabled := True;
  B11.Enabled := False;
  B12.Enabled := False;
  EditValue;
end;

procedure Tf_khzl.khdmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key = vk_ReTurn then
    FindNext;
end;

procedure Tf_khzl.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Case Key of
    VK_INSERT : if B1.Enabled = True then
                  B1.OnClick(Sender);
    VK_F2: if B2.Enabled = True then
             B2.OnClick(Sender);
    VK_F3: if B3.Enabled = True then
             B3.OnClick(Sender);
    VK_End: if B4.Enabled = True then
              B4.OnClick(Sender);
    VK_Left: if (B9.Enabled = True)and(Shift =[ssAlt]) then
               B9.OnClick(Sender);
    VK_Up: if (B10.Enabled = True)and(Shift =[ssAlt]) then 
             B10.OnClick(Sender);
    VK_Down: if (B11.Enabled = True)and(Shift =[ssAlt]) then 
               B11.OnClick(Sender);
    VK_Right: if (B12.Enabled = True)and(Shift =[ssAlt]) then
                B12.OnClick(Sender);
    VK_DELETE: if B5.Enabled = True then
                 B5.OnClick(Sender);
    VK_ESCAPE: if B8.Enabled = True then
                 B8.OnClick(Sender);
    VK_F7 :if BPaste.Enabled = True then
                 BPaste.OnClick(Sender);
    VK_F8: if BCopy.Enabled = True  then
                 BCopy.OnClick(Sender);
  end;
end;

procedure Tf_khzl.BCopyClick(Sender: TObject);
begin
  inherited;
  CopyToRecord;
  BPaste.Enabled := True;
end;

procedure Tf_khzl.BPasteClick(Sender: TObject);
begin
  inherited;
  CopyToForm;
end;

procedure Tf_khzl.chbDblClick(Sender: TObject);
var
  Key: Word;
begin
  inherited;
  Key:= vk_ReTurn;
  chb.OnKeyDown(nil,Key,[ssLeft]);
end;

procedure Tf_khzl.CopyToRecord;
begin
  with Temp do
  begin
    Rkhmc:= khmc.Text;
    Rkhjc:= khjc.Text;
    Rfzr:= fzr.Text;
    Rgj:= Edit1.Text;
    Rsf:= Edit2.Text;
    Rsx:= Edit3.Text;
    Rdhhm:= Edit5.Text;
    Rwz:= wz.Text;
    Rcz:= Edit4.Text;
    Rjzr:= jzr.Text;
    Rhcts:= hcts.Text;
    Rfktj:= fktj.Text;
    Rksb:= ksb.Text;
    Rxyed:= xyed.Text;
    Rxded:=xded.Text;
  end;
end;

procedure Tf_khzl.CopyToForm;
begin
  with Temp do
  begin
    khmc.Text:= Rkhmc;
    khjc.Text:= Rkhjc ;
    fzr.Text:= Rfzr;
    Edit1.Text:= Rgj;
    Edit2.Text:= Rsf;
    Edit3.Text:= Rsx;
    Edit5.Text:= Rdhhm;
    wz.Text:= Rwz;
    Edit4.Text:= Rcz;
    jzr.Text:= Rjzr;
    hcts.Text:= Rhcts;
    fktj.Text:= Rfktj;
    ksb.Text:= Rksb;
    xyed.Text:= Rxyed;
    xded.Text:= Rxded;
  end;
end;

procedure Tf_khzl.jzrKeyPress(Sender: TObject; var Key: Char);
var
  i: Boolean;
begin
  inherited;
  i := (Key<#8)or(Key>#8)and(Key<#48)or(Key>#57);
  if i then
    Key := #0;
end;

procedure Tf_khzl.Button1Click(Sender: TObject);
var
  Key: Word;
begin
  inherited;
  Key := vk_Next;
  khmc.OnKeyDown(Nil,Key,[ssLeft]);
end;

procedure Tf_khzl.Button2Click(Sender: TObject);
var
  Key: Word;
begin
  inherited;
  Key := vk_Next;
  Edit1.OnKeyDown(Nil,Key,[ssLeft]);
end;

procedure Tf_khzl.Button3Click(Sender: TObject);
var
  Key: Word;
begin
  inherited;
  Key := vk_Next;
  Edit3.OnKeyDown(Nil,Key,[ssLeft]);
end;

procedure Tf_khzl.Button4Click(Sender: TObject);
var
  Key: Word;
begin
  inherited;
  Key := vk_Next;
  Edit2.OnKeyDown(Nil,Key,[ssLeft]);
end;

procedure Tf_khzl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Data.Query2.RequestLive := False;
end;

procedure Tf_khzl.chbExit(Sender: TObject);
begin
  inherited;           
  chb.Visible := False;
end;

end.