【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“fkdm.pas”一文，供大家参考学习

    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.
    
    

上一篇：Fkczk.pas
下一篇：基于web二手汽车交易管理系统(含录像)