?? ufrmfix.pas
字號:
unit ufrmfix;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, Grids, DBGrids;
type
TfrmFix = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
DateTimePicker1: TDateTimePicker;
Label6: TLabel;
DateTimePicker2: TDateTimePicker;
Memo1: TMemo;
Label7: TLabel;
Button1: TButton;
Button2: TButton;
TabSheet2: TTabSheet;
Panel2: TPanel;
DBGrid1: TDBGrid;
Label8: TLabel;
ComboBox1: TComboBox;
Label9: TLabel;
Edit5: TEdit;
Button3: TButton;
Panel3: TPanel;
DBGrid2: TDBGrid;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmFix: TfrmFix;
implementation
uses udmclient;
{$R *.dfm}
//添加維修信息
procedure TfrmFix.Button1Click(Sender: TObject);
begin
if (edit1.Text<>'') and (length(edit1.Text)<>15) and (length(edit1.Text)<>18)
then
begin
messagedlg('身份證號碼不正確',mterror,[mbok],0);
exit;
end;
dmclient.cdsHomeMaster.Active:=false;
dmclient.cdsHomeMaster.CommandText:='select *from homemasters'
+' where homemasterSIDCardno=:cardno';
dmclient.cdsHomeMaster.Params.ParamByName('cardno').Value:=edit1.Text;
dmclient.cdsHomeMaster.Open;
if (dmclient.cdsHomeMaster.RecordCount=1) then
begin
if (edit3.Text<>'') and (edit4.Text<>'') and
(datetimepicker1.DateTime<=now) and (datetimepicker2.DateTime<=now)
and (datetimepicker1.DateTime<=datetimepicker2.DateTime) then
begin
dmclient.cdsFix.Append;
dmclient.cdsFix.FieldByName('homemasterSIDCardno').Value:=edit1.Text;
dmclient.cdsFix.FieldByName('homemastername').Value:=edit2.Text;
dmclient.cdsFix.FieldByName('fixtername').Value:=edit4.Text;
dmclient.cdsFix.FieldByName('fixkind').Value:=edit3.Text;
dmclient.cdsFix.FieldByName('fixbegindate').Value:=datetimepicker1.DateTime;
dmclient.cdsFix.FieldByName('fixenddate').Value:=datetimepicker2.DateTime;
dmclient.cdsFix.FieldByName('memo').Value:=memo1.Text;
dmclient.cdsFix.Post;
end
else
begin
messagedlg('輸入了非法數據',mterror,[mbok],0);
exit;
end;
end
else
messagedlg('不存在該戶主!',mterror,[mbok],0);
//數據輸入狀態清除
edit1.Text:='';
edit2.Text:='';
edit4.Text:='';
edit3.Text:='';
datetimepicker1.DateTime:=now;
datetimepicker2.DateTime:=now;
memo1.Text:='';
end;
//提交到遠程數據元
procedure TfrmFix.Button2Click(Sender: TObject);
begin
dmclient.cdsFix.ApplyUpdates(0);
dmclient.cdsFix.Active:=false;
dmclient.cdsFix.CommandText:='select *from fixinfos';
dmclient.cdsFix.Open;
end;
//查找維修信息
procedure TfrmFix.Button3Click(Sender: TObject);
begin
if edit5.Text='' then
exit;
if combobox1.Text='戶主姓名' then
begin
dmclient.cdsFix.Active:=false;
dmclient.cdsFix.CommandText:='select *from fixinfos'+
' where homemastername=:name';
dmclient.cdsFix.Params.ParamByName('name').Value:=edit5.Text;
dmclient.cdsFix.Open;
if dmclient.cdsFix.RecordCount=0 then
messagedlg('不存在該住戶',mterror,[mbok],0);
end;
if combobox1.Text='戶主身份證號碼' then
begin
dmclient.cdsFix.Active:=false;
dmclient.cdsFix.CommandText:='select *from fixinfos'+
' where homemasterSIDCardNo=:cardno';
dmclient.cdsFix.Params.ParamByName('cardno').Value:=edit5.Text;
dmclient.cdsFix.Open;
if dmclient.cdsFix.RecordCount=0 then
messagedlg('不存在該住戶',mterror,[mbok],0);
end;
if combobox1.Text='維修人' then
begin
dmclient.cdsFix.Active:=false;
dmclient.cdsFix.CommandText:='select *from fixinfos'+
' where fixtername=:name';
dmclient.cdsFix.Params.ParamByName('name').Value:=edit5.Text;
dmclient.cdsFix.Open;
if dmclient.cdsFix.RecordCount=0 then
messagedlg('不存在該住戶',mterror,[mbok],0);
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -