【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了cfsrunit.pas提供大家参考,希望对大家有所帮助!
unit cfsrunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Mask, StdCtrls, ExtCtrls;
type
Tcfsr = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit7: TEdit;
Button1: TButton;
MaskEdit1: TMaskEdit;
Label8: TLabel;
ComboBox1: TComboBox;
procedure Edit1Exit(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
cfsr: Tcfsr;
implementation
uses datadomule, jlsrunit;
{$R *.dfm}
procedure Tcfsr.Edit1Exit(Sender: TObject);
begin
with datamodule1.qry_cfsr do
begin
close;
sql.clear;
sql.add('select * from xsmc where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
open;
if recordcount=0 then
begin
application.MessageBox('您所输入的不存在,请核对后再试!','提示',mb_ok+mb_iconinformation);
jlsr.close;
end;
edit2.text:=fields[5].asstring;
edit3.text:=fields[3].asstring;
edit4.text:=fields[1].asstring;
edit5.text:=fields[2].asstring;
end;
end;
procedure Tcfsr.Button1Click(Sender: TObject);
begin
if edit7.text='' then
begin
application.MessageBox('请输入惩处信息!','提示',mb_ok+mb_iconinformation);
exit;
end;
with datamodule1.qry_cfsr do
begin
close;
sql.Clear ;
sql.Add('select * from cfb0');
open;
edit;
append;
fields[0].asstring:=edit1.text;
fields[1].AsString:=combobox1.text;
fields[2].AsString:=maskedit1.text;
fields[3].AsString:=edit7.text;
post;
edit1.SetFocus ;
application.MessageBox('已经保持好了','提示',mb_ok+mb_iconinformation);
end;
end;
end.
上一篇:
CFSJJG.pas
下一篇:
月入5000,你有什么资格谈生活