fkdm.pas

已经给出使用的每个SQL Server数据库

unit fkdm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, qydm, DB, ImgList, Grids, DBGrids, StdCtrls, ExtCtrls, ComCtrls,
  ToolWin;
                     
type
  Tf_fkdm = class(Tf_qydm)
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure B4Click(Sender: TObject);override;
    procedure DBGrid1CellClick(Column: TColumn); override;
    procedure B2Click(Sender: TObject);override;
    procedure B3Click(Sender: TObject); override;
    procedure Edit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    Procedure FindNext;Override;
    { Public declarations }
  end;

var
  f_fkdm: Tf_fkdm;

implementation
  uses DataModal;
{$R *.dfm}

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



procedure Tf_fkdm.FindNext;
begin
  if (FindNextControl(ActiveControl,True,False,False)is TEdit)and
    (TEdit(FindNextControl(ActiveControl,True,False,False)).Enabled = True) then
    TEdit(FindNextControl(ActiveControl,True,False,False)).SetFocus
  else if FindNextControl(ActiveControl,True,False,False)is TComboBox then
    TComboBox(FindNextControl(ActiveControl,True,False,False)).SetFocus;
end;

procedure Tf_fkdm.B4Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit1.SetFocus;
  ComboBox1.ItemIndex := 0;
  with Data.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from t_fkdm');
    Open;
  end;
  if Data.Query1.RecordCount>0 then
      DataSource1.DataSet := Data.Query1;
end;

procedure Tf_fkdm.DBGrid1CellClick(Column: TColumn);
begin
  if (Data.Query1.Active = True)and(Data.Query1.RecordCount>0) then
  begin
    Edit1.Text := Data.Query1.Fields[0].AsString;
    ComboBox1.Text := Trim(Data.Query1.Fields[1].AsString);
    Edit2.Text := IntToStr(Data.Query1.Fields[2].AsInteger);
    Edit3.Text := Data.Query1.Fields[3].AsString;
  end;
end;

procedure Tf_fkdm.B2Click(Sender: TObject);
begin
  if (Data.Query1.Active = True)and(Data.Query1.RecordCount>0) then
    if(Trim(Edit1.Text)<>'')and(Trim(Edit2.Text)<>'')and(Trim(ComboBox1.Text)<>'')and(Trim(Edit3.Text)<>'') then
    begin
      if Application.MessageBox('确实要修改当前记录吗?','提示',mb_YesNo)=ID_Yes then
      begin
        Try
          with Data.Query2 do
          begin
            Close;
            SQL.Clear;
            SQL.Add('update t_fkdm set fkdm =:a,fkfs = :b,ts = :c,fktj = :d where fkdm = :e');
            ParamByName('a').AsString := Trim(Edit1.Text);
            ParamByName('b').AsString := Trim(ComboBox1.Text);
            ParamByName('c').AsInteger := StrToInt(Edit2.Text);
            ParamByName('d').AsString := Trim(Edit3.Text);
            ParamByName('e').AsString := Trim(Data.Query1.Fields[0].AsString);
            ExecSQL;
          end;
          Application.MessageBox('修改成功.','提示',64);
          B4.OnClick(Sender);
        Except
          Application.MessageBox('修改失败.','提示',64);
        end;
      end;
    end
    else
      Application.MessageBox('区域信息不完整.','提示',64)
  else
    Application.MessageBox('没有可修改的数据.','提示',64);  
end;

procedure Tf_fkdm.B3Click(Sender: TObject);
begin
   if (Trim(Edit1.Text)<>'')and(Trim(Edit2.Text)<>'')and(Trim(Edit3.Text)<>'')and
    (Trim(ComboBox1.Text)<>'') then
    Try
      with Data.Query2 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('insert t_fkdm values(:a,:b,:c,:d)');
        ParamByName('a').AsString := Trim(Edit1.Text);
        ParamByName('b').AsString := Trim(ComboBox1.Text);
        ParamByName('c').AsInteger := StrToInt(Edit2.Text);
        ParamByName('d').AsString := Trim(Edit3.Text);
        ExecSQL;
      end;
      Application.MessageBox('操作成功.','提示',64);
      B4.OnClick(Sender);
      B3.Enabled := False;
    Except
      Application.MessageBox('操作失败.','提示',64);
    End
  else
    Application.MessageBox('付款方式信息不能为空.','提示',64);

end;

procedure Tf_fkdm.Edit2Change(Sender: TObject);
begin
  inherited;
  if (Trim(Edit2.Text)<>'')and(Trim(ComboBox1.Text)<>'') then
    if StrToInt(Edit2.Text)<>0 then
      Edit3.Text := Trim(ComboBox1.Text)+ Trim(Edit2.Text)+'天付款'
    else
      Edit3.Text := Trim(ComboBox1.Text)+'付款'
  else
    Edit3.Clear;
end;

end.