📄 cszl.~pas

📁 这是用Delphi编写的中小企业管理系统
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
  if Application.MessageBox('确实要修改当前记录吗?','提示',mb_YesNo)=ID_Yes then
  begin
    if StrToInt(jkcs.Text)>2 then
    begin
      Application.MessageBox('月结款次数不能大于二.','提示',64);
      Exit;
    end;
    if EditIsNull = False then
    begin
      Try
        with Data.Query1 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('update t_cszl set csdm = :a,csmc = :b,csjc = :c,fzr = :d,ksb = :e,yjcs =:f,fktj = :g,qzts = :h,gj = :i,sf = :j,sx = :k,dhhm= :l,wz= :m where csdm = :n');
          ParamByName('a').AsString := Trim(csdm.Text);
          ParamByName('b').AsString := Trim(csmc.Text);
          ParamByName('c').AsString := Trim(csjc.Text);  
          ParamByName('d').AsString := Trim(fzr.Text);
          ParamByName('e').AsString := Trim(ksb.Text);
          ParamByName('f').AsInteger := StrToInt(jkcs.Text);
          ParamByName('g').AsString := Trim(fktj.Text);
          ParamByName('h').AsInteger := StrToInt(qzts.Text); 
          ParamByName('i').AsString := Trim(Edit1.Text);
          ParamByName('j').AsString := Trim(Edit2.Text);
          ParamByName('k').AsString := Trim(Edit3.Text);
          ParamByName('l').AsString := Trim(Edit5.Text);
          ParamByName('m').AsString := Trim(Edit4.Text);
          ParamByName('n').AsString :=Trim(Data.Query2.FieldByName('csdm').AsString);
          ExecSQL;
        end;  
        Application.MessageBox('修改成功.','提示',64);
        B4.OnClick(Sender);
      Except
        Application.MessageBox('修改失败.','提示',64);
      End;
    end
    else
      Application.MessageBox('数据项不能为空.','提示',64);
  end;
end;

procedure Tf_cszl.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_cszl.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_cszl.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_cszl.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_cszl.csmcKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  csdmKeyDown(Sender,Key,Shift);
  if Key = vk_Next then
  begin
    SelectTable('t_gsxz');
    chb.Tag := 1;
    SetListPos(csmc);
  end;
end;

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

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

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

procedure Tf_cszl.chbDblClick(Sender: TObject);

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


procedure Tf_cszl.chbKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key = vk_Return then
  begin
    Case chb.Tag of
      1: begin
           csmc.Text := csmc.Text+ chb.Items[chb.ItemIndex];
           csmc.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_cszl.Edit5KeyPress(Sender: TObject; var Key: Char);
var
  i: Boolean;
begin
  inherited;
  i := (Key<#8)or(Key>#8)and(Key<#45)or(Key>#45)and(Key<#48)or(Key>#57);
  if i then
    Key := #0;
end;

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

procedure Tf_cszl.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_cszl.CopyToRecord;
begin
  with Temp do
  begin
    Rcsmc := csmc.Text;
    Rcsjc := csjc.Text;
    Rfzr := fzr.Text;
    Rgj := Edit1.Text;
    Rsf := Edit2.Text;
    Rsx := Edit3.Text;
    Rdhhm := Edit5.Text;
    Rwz := Edit4.Text;
    Rfktj := fktj.Text;
    Rksb := ksb.Text;
    Rqzts := qzts.Text;
    Rjkcs := jkcs.Text;
  end;
end;

procedure Tf_cszl.CopyToForm;
begin
  with Temp do
  begin
    csmc.Text :=Rcsmc ;
    csjc.Text :=Rcsjc ;
    fzr.Text := Rfzr;
    Edit1.Text :=Rgj ;
    Edit2.Text :=Rsf ;
    Edit3.Text :=Rsx ;
    Edit5.Text :=Rdhhm ;
    Edit4.Text :=Rwz ;
    fktj.Text :=Rfktj ;
    ksb.Text :=Rksb ;
    qzts.Text :=Rqzts ;
    jkcs.Text := Rjkcs; 
  end; 
end;

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

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

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

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

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

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

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

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

end.
上一页 12
💿 文件大小 8389 K
👤 上传用户 xushenghao001
📂 所属分类企业管理
🏷️ 相关标签

#Delphi #编写 #企业管理
⌨️ 快捷键说明

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