【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“MC_ZXDDJ.pas”一文,供大家参考学习
unit MC_ZXDDJ;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, DBCtrls, Db, Mask, DBTables, Buttons, ExtCtrls;
type
TZXDDJ = class(TForm)
GroupBox1: TGroupBox;
Table1: TTable;
Table1BDEDesigner: TStringField;
Table1BDEDesigner2: TStringField;
Table1BDEDesigner3: TStringField;
Table1BDEDesigner4: TStringField;
Table1BDEDesigner5: TStringField;
Table1BDEDesigner6: TStringField;
Table1BDEDesigner7: TMemoField;
Label1: TLabel;
DBEdit1: TDBEdit;
DataSource1: TDataSource;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBMemo1: TDBMemo;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
DBNavigator1: TDBNavigator;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit1Enter(Sender: TObject);
procedure DBEdit1Exit(Sender: TObject);
procedure DBMemo1Enter(Sender: TObject);
procedure DBMemo1Exit(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ZXDDJ: TZXDDJ;
implementation
uses MC_ZXDLL, MC_MainForm;
{$R *.DFM}
procedure TZXDDJ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ZXDDJ.Release;
ZXDDJ:=Nil;
end;
procedure TZXDDJ.BitBtn3Click(Sender: TObject);
begin
if Table1.RecordCount<>0 then
if MessageDLg('是否删除['+Table1.FieldByName('装修队名').AsString+']的信息?'
,mtCustom,[mbYes,mbNo],0)=mryes then Table1.Delete;
end;
procedure TZXDDJ.BitBtn1Click(Sender: TObject);
begin
if BitBtn1.Caption='添加[&I]' then
begin
table1.Append;
BitBtn1.caption:='保存[&S]';
Bitbtn2.Caption:='取消[&U]';
BitBtn3.Enabled:=False;
BitBtn4.enabled:=False;
DBNavigator1.Enabled:=False;
GroupBox1.Enabled:=True;
DBEdit1.SetFocus;
end
else
begin
if Length(Table1.FieldbyName('装修队名').AsString)=0 then
ShowMessage('请输入装修队名称')
else
begin
table1.Post;
BitBtn1.Caption:='添加[&I]';
BitBtn2.Caption:='修改[&E]';
BitBtn3.Enabled:=True;
BitBtn4.Enabled:=True;
DBNavigator1.Enabled:=True;
GroupBox1.Enabled:=False;
end;
end;
end;
procedure TZXDDJ.BitBtn2Click(Sender: TObject);
begin
if BitBtn2.Caption='修改[&E]' then
begin
Table1.Edit;
BitBtn1.caption:='保存[&S]';
Bitbtn2.Caption:='取消[&U]';
BitBtn3.Enabled:=False;
BitBtn4.enabled:=False;
DBNavigator1.Enabled:=False;
GroupBox1.Enabled:=True;
DBEdit1.SetFocus;
end
else
begin
BitBtn1.Caption:='添加[&I]';
BitBtn2.Caption:='修改[&E]';
BitBtn3.Enabled:=True;
BitBtn4.Enabled:=True;
DBNavigator1.Enabled:=True;
GroupBox1.Enabled:=False;
Table1.Cancel;
end;
end;
procedure TZXDDJ.BitBtn4Click(Sender: TObject);
begin
if not Assigned(ZXDLL) then
begin
ZXDLL:=TZXDLL.Create(Self);
ZXDLL.ShowModal;
end;
end;
procedure TZXDDJ.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);
end;
procedure TZXDDJ.DBEdit1Enter(Sender: TObject);
begin
TDBEdit(Sender).Color:=ClAQua;
end;
procedure TZXDDJ.DBEdit1Exit(Sender: TObject);
begin
TDBEdit(Sender).Color:=ClWindow;
end;
procedure TZXDDJ.DBMemo1Enter(Sender: TObject);
begin
DBMemo1.Color:=CLAQua;
end;
procedure TZXDDJ.DBMemo1Exit(Sender: TObject);
begin
DBMemo1.Color:=CLWindow;
end;
procedure TZXDDJ.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;
end.