【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-MC_WXDJ.pas,希望本篇文章对您学习有所帮助。
unit MC_WXDJ;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, DBCtrls, Db, Mask, DBTables, ExtCtrls, Buttons, ComCtrls;
type
TWXDJ = class(TForm)
Table1: TTable;
Table1BDEDesigner2: TStringField;
Table1BDEDesigner3: TStringField;
Table1BDEDesigner4: TStringField;
Table1BDEDesigner5: TStringField;
Table1BDEDesigner6: TStringField;
Table1BDEDesigner7: TFloatField;
Table1BDEDesigner8: TStringField;
Table1BDEDesigner9: TDateTimeField;
Table1BDEDesigner10: TDateTimeField;
Table1BDEDesigner11: TStringField;
Table1BDEDesigner12: TMemoField;
DataSource1: TDataSource;
GroupBox1: TGroupBox;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
Label10: TLabel;
DBEdit10: TDBEdit;
Label11: TLabel;
DBEdit11: TDBEdit;
Label12: TLabel;
DBMemo1: TDBMemo;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Table1BDEDesigner13: TStringField;
Label13: TLabel;
DBComboBox1: TDBComboBox;
Query1: TQuery;
Table1BDEDesigner14: TStringField;
Label14: TLabel;
DBText1: TDBText;
Bevel1: TBevel;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
Table4: TTable;
Table4BDEDesigner: TStringField;
Table4BDEDesigner2: TStringField;
Table4BDEDesigner3: TStringField;
DataSource4: TDataSource;
Table5: TTable;
Table5BDEDesigner: TIntegerField;
Table5BDEDesigner2: TStringField;
DataSource5: TDataSource;
Table1BDEDesigner15: TIntegerField;
DateTimePicker1: TDateTimePicker;
Table1BDEDesigner: TStringField;
BitBtn6: TBitBtn;
DBEdit1: TDBEdit;
Label1: TLabel;
procedure BitBtn5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WXDJ: TWXDJ;
implementation
uses MC_WXXXLL, MC_TSDJ, MC_RYLB, MC_MainForm;
{$R *.DFM}
procedure TWXDJ.FormShow(Sender: TObject);
begin
if MainForm.Query1.Locate('使用选项','维修信息登记',[loCaseInsensitive]) then
begin
if MainForm.Query1.FieldByName('读写').AsString='读' then
begin
Bitbtn1.Enabled:=False;
Bitbtn2.Enabled:=False;
Bitbtn3.Enabled:=False;
end;
end;
end;
procedure TWXDJ.BitBtn1Click(Sender: TObject); //添加或保存数据
begin
if BitBtn1.Caption='添加[&I]' then //添加数据
begin
Table1.Append; //增加一条新记录
BitBtn1.Caption:='保存[&S]';
BitBtn2.Caption:='取消[&U]';
BitBtn3.Enabled:=False;
BitBtn4.Enabled:=False;
BitBtn6.Enabled:=True;
DBNavigator1.Enabled:=False;
GroupBox1.Enabled:=True;
DBEdit2.Setfocus; //焦点跳转到“居住位置”输入框
End
Else //保存数据
begin
if (Length(Table1.FieldByname('居住位置').AsString)=0) or
(Length(Table1.FieldByname('维修项目').AsString)=0) or
(Length(Table1.FieldByname('开工时间').AsString)=0) then
begin
ShowMessage('请输入维修相关信息');
DBEdit2.SetFocus;
End
Else //保存数据添加
begin
BitBtn1.Caption:='添加[&I]';
BitBtn2.Caption:='修改[&E]';
BitBtn3.Enabled:=True;
BitBtn4.Enabled:=True;
BitBtn6.Enabled:=False;
DBNavigator1.Enabled:=True;
GroupBox1.Enabled:=False;
try
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select MAX(编号) From 维修信息');
Query1.Open;
Table1.FieldByName('编号').AsInteger:=Query1.Fields[0].AsInteger+1;
DateTimePicker1.Date:=Table1.FieldByName('开工时间').AsDateTime;
DateTimePicker1.Time:=0;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select Count(编号) From 维修信息 Where 开工时间>:A and 开工时间<:B');
Query1.ParamByname('A').AsDatetime:=DateTimePicker1.DateTime;
Query1.ParamByName('B').AsDatetime:=DateTimePicker1.DateTime+1;
Query1.Open;
Table1.FieldByName('维修编号').AsString:=DateTimeTOStr(DateTimePicker1.DateTime)+'00'+IntToStr(Query1.Fields[0].AsInteger+1);
Table1.Post;
Except
ShowMessage('重复维修编号,保存失败.');
end;
end;
end;
end;
procedure TWXDJ.BitBtn2Click(Sender: TObject); //修改或取消操作
begin
if BitBtn2.Caption='修改[&E]' then
begin
Table1.Edit; //数据处于编辑状态
BitBtn1.Caption:='保存[&S]';
BitBtn2.Caption:='取消[&U]';
BitBtn3.Enabled:=False;
BitBtn4.Enabled:=False;
BitBtn6.Enabled:=True;
DBNavigator1.Enabled:=False;
GroupBox1.Enabled:=True;
DBEdit2.Setfocus;
End
Else //取消操作
begin
BitBtn1.Caption:='添加[&I]';
BitBtn2.Caption:='修改[&E]';
BitBtn3.Enabled:=True;
BitBtn4.Enabled:=True;
BitBtn6.Enabled:=False;
DBNavigator1.Enabled:=True;
GroupBox1.Enabled:=False;
Table1.Cancel;
end;
end;
procedure TWXDJ.BitBtn3Click(Sender: TObject); //删除维修数据
begin
If Table1.RecordCount <> 0 Then
if MessageDlg('是否删除当前记录?',mtCustom,[mbYes,mbNo],0)=mrYes then
Table1.Delete;
end;
procedure TWXDJ.BitBtn4Click(Sender: TObject); //浏览维修数据
begin
If Not Assigned(WXXXLL) Then
begin
WXXXLL:=TWXXXLL.Create(Self);
WXXXLL.ShowModal;
end;
end;
procedure TWXDJ.BitBtn6Click(Sender: TObject); //添加或选择响应投诉信息
begin
If Not Assigned(TSDJ) Then
begin
TSDJ:=TTSDJ.Create(Self);
TSDJ.ShowModal;
end;
end;
procedure TWXDJ.BitBtn5Click(Sender: TObject); //退出
begin
Close;
end;
procedure TWXDJ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
WXDJ.Release;
WXDJ:=Nil;
end;
end.
上一篇:
IconTab.cpp
下一篇:
汝康皮肤护理液医治烧伤的可行性和效果分析