usermodel.~pas

简单的餐饮软件部分源码

unit usermodel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  Tfusermodel = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    gbox: TGroupBox;
    cbox1: TCheckBox;
    cbox2: TCheckBox;
    cbox3: TCheckBox;
    cbox4: TCheckBox;
    cbox5: TCheckBox;
    cbox6: TCheckBox;
    cbox7: TCheckBox;
    cbox8: TCheckBox;
    spbut: TSpeedButton;
    but1: TButton;
    but2: TButton;
    but3: TButton;
    but4: TButton;
    but5: TButton;
    but6: TButton;
    cbox9: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure butvis(Sender:TObject);
    procedure editclear(Sender:TObject);
    procedure but1Click(Sender: TObject);
    procedure but5Click(Sender: TObject);
    procedure but6Click(Sender: TObject);
    procedure but3Click(Sender: TObject);
    procedure but4Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure but2Click(Sender: TObject);
    procedure spbutClick(Sender: TObject);
  private
    { Private declarations }
    Seflag:string;
    SQLUstr,SQLMstr:string;
    ftcbox1,ftcbox2,ftcbox3,ftcbox4,ftcbox5,ftcbox6,ftcbox7,ftcbox8,ftcbox9:string;
  public
    { Public declarations }
    Fidcode:string;
  end;

var
  fusermodel: Tfusermodel;

implementation
uses snackdm,seek2;
{$R *.dfm}
procedure Tfusermodel.editclear(Sender:TObject);
begin
 edit1.Clear;
 edit2.Clear;
 edit3.Clear;
 cbox1.Checked:=False;
 cbox2.Checked:=False;
 cbox3.Checked:=False;
 cbox4.Checked:=False;
 cbox5.Checked:=False;
 cbox6.Checked:=False;
 cbox7.Checked:=False;
 cbox8.Checked:=False;
end;
procedure Tfusermodel.butvis(Sender:TObject);
begin
 but1.Visible:=not but1.Visible;
 but2.Visible:=not but2.Visible;
 but3.Visible:=not but3.Visible;
 but4.Visible:=not but4.Visible;
 but5.Visible:=not but5.Visible;
 but6.Visible:=not but6.Visible;
end;
procedure Tfusermodel.FormCreate(Sender: TObject);
begin
 self.Caption:=datam.SPLanguage.ReadString('captions','00068','');
 but1.Caption:=datam.SPLanguage.ReadString('captions','00053','');
 but2.Caption:=datam.SPLanguage.ReadString('captions','00054','');
 but3.Caption:=datam.SPLanguage.ReadString('captions','00055','');
 but4.Caption:=datam.SPLanguage.ReadString('captions','00036','');
 but5.Caption:=datam.SPLanguage.ReadString('captions','00066','');
 but6.Caption:=datam.SPLanguage.ReadString('captions','00067','');
 label1.Caption:=datam.SPLanguage.ReadString('captions','00005','');
 label2.Caption:=datam.SPLanguage.ReadString('captions','00069','');
 label3.Caption:=datam.SPLanguage.ReadString('captions','00006','');
 gbox.Caption:=datam.SPLanguage.ReadString('captions','00070','');
 cbox1.Caption:=datam.SPLanguage.ReadString('captions','00071','');
 cbox2.Caption:=datam.SPLanguage.ReadString('captions','00072','');
 cbox3.Caption:=datam.SPLanguage.ReadString('captions','00073','');
 cbox4.Caption:=datam.SPLanguage.ReadString('captions','00074','');
 cbox5.Caption:=datam.SPLanguage.ReadString('captions','00075','');
 cbox6.Caption:=datam.SPLanguage.ReadString('captions','00076','');
 cbox7.Caption:=datam.SPLanguage.ReadString('captions','00077','');
 cbox8.Caption:=datam.SPLanguage.ReadString('captions','00078','');
 cbox9.Caption:=datam.SPLanguage.ReadString('captions','00116','');

end;
procedure Tfusermodel.but1Click(Sender: TObject);
begin
 seflag:='Addnew';
 butvis(Sender);
 editclear(Sender);
end;
procedure Tfusermodel.but5Click(Sender: TObject);
begin
if cbox1.Checked=True then ftcbox1:='En' else ftcbox1:='Un';
if cbox2.Checked=True then ftcbox2:='En' else ftcbox2:='Un';
if cbox3.Checked=True then ftcbox3:='En' else ftcbox3:='Un';
if cbox4.Checked=True then ftcbox4:='En' else ftcbox4:='Un';
if cbox5.Checked=True then ftcbox5:='En' else ftcbox5:='Un';
if cbox6.Checked=True then ftcbox6:='En' else ftcbox6:='Un';
if cbox7.Checked=True then ftcbox7:='En' else ftcbox7:='Un';
if cbox8.Checked=True then ftcbox8:='En' else ftcbox8:='Un';
if cbox9.Checked=True then ftcbox8:='En' else ftcbox8:='Un';
if seflag='Addnew' then
 begin
  SQLUstr:='insert snuser(userid,username,userpassword) Values('''+Trim(edit1.Text)+''','''+Trim(edit2.Text)+''','''+Trim(edit3.Text)+''')';
  SQLMstr:='insert snmodel(userid,model1,model2,model3,model4,model5,model6,model7,model8,model9) Values('''+Trim(edit1.Text)+''','''+ftcbox1+''','''+ftcbox2+''','''+ftcbox3+''','''+ftcbox4+''','''+ftcbox5+''','''+ftcbox6+''','''+ftcbox7+''','''+ftcbox8+''','''+ftcbox9+''')';
 end else if seflag='Edit' then
  begin
   SQLUstr:='update snuser set username='''+Trim(edit2.Text)+''',userpassword='''+Trim(edit3.Text)+''' where userid='''+edit1.Text+'''';
   SQLMstr:='update snmodel set model1='''+ftcbox1+''',model2='''+ftcbox2+''',model3='''+ftcbox3+''',model4='''+ftcbox4+''',model5='''+ftcbox5+''',model6='''+ftcbox6+''',model7='''+ftcbox7+''',model8='''+ftcbox8+'''';
  end;
 with datam.UserADO do
  begin
   Close;
   SQL.Clear;
   SQL.Add(''+SQLUstr+'');
   ExecSQL;
  end;
 with datam.modelado do
  begin
   Close;
   SQL.Clear;
   SQL.Add(''+SQLMstr+'');
   ExecSQL;
  end;
 butvis(Sender);
 editclear(Sender);
end;
procedure Tfusermodel.but6Click(Sender: TObject);
begin
 messagebeep(0);
 if messagebox(0,Pchar(''+DataM.SPLanguage.ReadString('msgbox','0018','')+''),Pchar(''+DataM.SPLanguage.ReadString('msgbox','0019','')+''),MB_ICONQUESTION or MB_OKCANCEL)=IDOK then
  begin
   butvis(Sender);
   editclear(Sender);
  end; 
end;
procedure Tfusermodel.but3Click(Sender: TObject);
begin
 seflag:='Edit';
 butvis(Sender);
end;
procedure Tfusermodel.but4Click(Sender: TObject);
begin
 self.Close;
 self.Release;
end;
procedure Tfusermodel.FormResize(Sender: TObject);
begin
 if fusermodel.Height<>316 then fusermodel.Height:=316;
 if fusermodel.Width<>334 then fusermodel.Width:=334;
end;
procedure Tfusermodel.but2Click(Sender: TObject);
begin
 messagebeep(0);
 try
  if messagebox(0,Pchar(''+DataM.SPLanguage.ReadString('msgbox','0014','')+''),Pchar(''+DataM.SPLanguage.ReadString('msgbox','0017','')+''),MB_ICONWARNING or MB_YESNO)=IDYES then
   begin
    with datam.UserADO do
     begin
      Close;
      SQL.Clear;
      SQL.Add('Delete snuser where userid='''+Trim(edit1.Text)+'''');
      ExecSQL;
     end;
   end;
 editclear(Sender);
finally
  Abort;
 end;
end;
procedure Tfusermodel.spbutClick(Sender: TObject);
begin
 fseek2:=Tfseek2.Create(nil);
 fseek2.ShowModal;
 edit1.Text:=Fidcode;
 if edit1.Text<>'' then
  begin
   with DataM.UserADO do
    begin
     Close;
     SQL.Clear;
     SQL.Add('select * from snuser where userid='''+Fidcode+'''');
     Open;
     edit2.Text:=Fields[1].Value;
     edit3.Text:=Fields[2].Value;
    end;
   with DataM.modelado do
    begin
     Close;
     SQL.Clear;
     SQL.Add('select * from snmodel where userid='''+Fidcode+'''');
     Open;
    if Trim(FieldValues['model1'])='En' then cbox1.Checked:=True else cbox1.Checked:=False;
    if Trim(FieldValues['model2'])='En' then cbox2.Checked:=True else cbox2.Checked:=False;
    if Trim(FieldValues['model3'])='En' then cbox3.Checked:=True else cbox3.Checked:=False;
    if Trim(FieldValues['model4'])='En' then cbox4.Checked:=True else cbox4.Checked:=False;
    if Trim(FieldValues['model5'])='En' then cbox5.Checked:=True else cbox5.Checked:=False;
    if Trim(FieldValues['model6'])='En' then cbox6.Checked:=True else cbox6.Checked:=False;
    if Trim(FieldValues['model7'])='En' then cbox7.Checked:=True else cbox7.Checked:=False;
    if Trim(FieldValues['model8'])='En' then cbox8.Checked:=True else cbox8.Checked:=False;
  end;
 end;
end;

end.