xtsz_shszform.~pas

明日腾龙编修管理系统,对于做相关软件的朋友是一个非常好的参考

unit XTSZ_SHSZFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, ADODB;

type
  TXTSZ_SHSZ = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    ADOQuery1: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XTSZ_SHSZ: TXTSZ_SHSZ;

implementation

uses MR_WXFORM;

{$R *.DFM}


procedure TXTSZ_SHSZ.FormShow(Sender: TObject);
begin
animatewindow(handle,300,AW_VER_NEGATIVE+AW_CENTER);
label1.Refresh;
label2.refresh;
label3.refresh;
label4.refresh;
bevel1.refresh;
label5.caption:=' 售'+#13+'  后'+#13+'   服'+#13+'    务'+#13+'信'+#13+
                ' 息'+#13+'  管'+#13+'   理'+#13+'    设'+#13+'     置';
label6.caption:=label5.caption;
label7.Caption:=label5.caption;
dbgrid1.refresh;
end;

procedure TXTSZ_SHSZ.BitBtn3Click(Sender: TObject);
begin
  MR_WX.Enabled:=TRUE;
  close;
end;

procedure TXTSZ_SHSZ.BitBtn1Click(Sender: TObject);
  var year,month:string;
begin
  if tbitbtn(sender).caption='添加[&A]' then begin
     mr_wx.ADOTable3.Insert;
     edit1.ReadOnly:=false;
     dbedit1.ReadOnly:=false;
     dbedit2.ReadOnly:=false;
     bitbtn1.Caption:='保存[&P]';
     bitbtn2.Caption:='取消[&C]';
     dbgrid1.enabled:=false;
     edit1.text:='';
     edit1.setfocus;
  end else begin
     if edit1.text='' then begin
        showmessage('维护方法不能为空,请添加');
        edit1.setfocus;
        exit;
     end;
     adoquery1.Close;
     adoquery1.sql.clear;
     adoquery1.sql.add('select 维护方法 from 维护方法 where 维护方法=:wei');
     adoquery1.Parameters.ParamByName('wei').datatype:=ftstring;
     adoquery1.Parameters.ParamByName('wei').value:=edit1.text;
     adoquery1.open;
     if adoquery1.RecordCount>0 then begin 
          showmessage('对不起,['+edit1.text+']的维护方法以存在,请从新填写.');
          edit1.setfocus;
          exit;
     end;
     bitbtn1.caption:='添加[&A]';
     bitbtn2.Caption:='删除[&D]';
     dbgrid1.enabled:=true;
     mr_wx.adotable3.fieldbyname('维护方法').asstring:=edit1.text;
     if mr_wx.ADOTable3.fieldbyname('year').asinteger<>0 then begin
        year:=inttostr(mr_wx.ADOTable3.fieldbyname('year').asinteger)+'年';
     end else begin
        year:='';
     end;
     if mr_wx.adotable3.fieldbyname('month').asinteger<>0 then begin
        month:=inttostr(mr_wx.adotable3.fieldbyname('month').asinteger)+'个月';
     end else begin
        month:='';
     end;
     MR_WX.ADOTable3.FieldByName('维护期限').asstring:=year+month;
     mr_wx.ADOTable3.Post;
  end;
end;

procedure TXTSZ_SHSZ.BitBtn2Click(Sender: TObject);
begin
    if tbitbtn(sender).caption='删除[&D]' then begin
         if mr_wx.ADOTable3.RecordCount<>0 then begin
               if messagedlg('您确定要删除'+mr_wx.adotable3.fieldbyname('维护方法').asstring+
               '的维护期限吗',mtCustom,[mbyes,mbno],0)=mryes then begin
                     mr_wx.ADOTable3.delete;
               end;
         end else begin
              showmessage('系统无信息.');
         end;
    end else begin
         mr_wx.ADOTable3.Cancel;
         bitbtn1.Caption:='添加[&A]';
         bitbtn2.Caption:='删除[&D]';
         edit1.ReadOnly:=true;
         dbedit1.ReadOnly:=true;
         dbedit2.ReadOnly:=true;
         dbgrid1.enabled:=true;
    end;
end;

procedure TXTSZ_SHSZ.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if mr_wx.ADOTable3.RecordCount>0 then begin
    if mr_wx.ADOTable3.fieldbyname('维护方法').asstring<>'' then
        edit1.text:=mr_wx.ADOTable3.fieldbyname('维护方法').asstring;
end;

end;

procedure TXTSZ_SHSZ.Edit1Enter(Sender: TObject);
begin
tedit(sender).color:=claqua;
end;

procedure TXTSZ_SHSZ.Edit1Exit(Sender: TObject);
begin
tedit(sender).color:=clwindow;
end;

procedure TXTSZ_SHSZ.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
   if (activecontrol is Tedit) or (activecontrol is tdbedit)then
     Perform(WM_nextdlgctl,0,0);
end;

end;

end.