![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mainformunit.pas CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / src / sbbs3 / useredit|
Return to mainformunit.pas CVS log | Up to [Synchronet] / sbbs / src / sbbs3 / useredit |
1.1 root 1: { Synchronet User Editor (Delphi 5 for Win32 project) }
2:
3: { $Id: MainFormUnit.pas,v 1.9 2003/02/20 00:11:25 rswindell Exp $ }
4:
5: {****************************************************************************
6: * @format.tab-size 4 (Plain Text/Source Code File Header) *
7: * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
8: * *
9: * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html *
10: * *
11: * This program is free software; you can redistribute it and/or *
12: * modify it under the terms of the GNU General Public License *
13: * as published by the Free Software Foundation; either version 2 *
14: * of the License, or (at your option) any later version. *
15: * See the GNU General Public License for more details: gpl.txt or *
16: * http://www.fsf.org/copyleft/gpl.html *
17: * *
18: * Anonymous FTP access to the most recent released source is available at *
19: * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net *
20: * *
21: * Anonymous CVS access to the development source and modification history *
22: * is available at cvs.synchro.net:/cvsroot/sbbs, example: *
23: * cvs -d :pserver:[email protected]:/cvsroot/sbbs login *
24: * (just hit return, no password is necessary) *
25: * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src *
26: * *
27: * For Synchronet coding style and modification guidelines, see *
28: * http://www.synchro.net/source.html *
29: * *
30: * You are encouraged to submit any modifications (preferably in Unix diff *
31: * format) via e-mail to [email protected] *
32: * *
33: * Note: If this box doesn't appear square, then you need to fix your tabs. *
34: ****************************************************************************}
35:
36: { User Data function Notes:
37:
38: The Tag member of the Edit boxes is used to indicate modified data.
39: GetUserXxxx() calls GetXxxxField() sets the Tag to 0.
40: PutUserXxxx() only gets PutXxxxField() if Tag = 1.
41: GetXxxxField() and PutXxxxField() do not care about TEdits or Tags.
42: }
43:
44: unit MainFormUnit;
45:
46: interface
47:
48: uses
49: Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
50: StdCtrls, Menus, ComCtrls, ExtCtrls, Buttons, ActnList, ImgList, CheckLst,
51: ToolWin, Registry;
52:
53: type
54: TForm1 = class(TForm)
55: MainMenu: TMainMenu;
56: FileMenuItem: TMenuItem;
57: Panel: TPanel;
58: FileExitMenuItem: TMenuItem;
59: FileDeleteMenuItem: TMenuItem;
60: PageControl: TPageControl;
61: PersonalTabSheet: TTabSheet;
62: Label2: TLabel;
63: NameEdit: TEdit;
64: Label1: TLabel;
65: ComputerEdit: TEdit;
66: NetmailAddress: TLabel;
67: NetmailEdit: TEdit;
68: Label7: TLabel;
69: NoteEdit: TEdit;
70: HandleLabel: TLabel;
71: HandleEdit: TEdit;
72: Label5: TLabel;
73: PasswordEdit: TEdit;
74: Label6: TLabel;
75: BirthdateEdit: TEdit;
76: Label8: TLabel;
77: ModemEdit: TEdit;
78: Label16: TLabel;
79: SexEdit: TEdit;
80: Label18: TLabel;
81: PhoneEdit: TEdit;
82: SecurityTabSheet: TTabSheet;
83: Label10: TLabel;
84: LevelEdit: TEdit;
85: Label11: TLabel;
86: ExpireEdit: TEdit;
87: StatsTabSheet: TTabSheet;
88: TopPanel: TPanel;
89: NumberLabel: TLabel;
90: NumberEdit: TEdit;
91: TotalStaticText: TStaticText;
92: AliasLabel: TLabel;
93: AliasEdit: TEdit;
94: Label24: TLabel;
95: CommentEdit: TEdit;
96: FileNewUserMenuItem: TMenuItem;
97: Label25: TLabel;
98: ExemptionsEdit: TEdit;
99: Label26: TLabel;
100: RestrictionsEdit: TEdit;
101: Label27: TLabel;
102: CreditsEdit: TEdit;
103: Label28: TLabel;
104: MinutesEdit: TEdit;
105: Label29: TLabel;
106: FreeCreditsEdit: TEdit;
107: FileSaveUserMenuItem: TMenuItem;
108: ActionList: TActionList;
109: SaveUser: TAction;
110: NewUser: TAction;
111: RefreshUser: TAction;
112: ImageList: TImageList;
113: DeleteUser: TAction;
114: FileRefreshUserMenuItem: TMenuItem;
115: GroupBox1: TGroupBox;
116: TimeOnEdit: TEdit;
117: Label22: TLabel;
118: Label23: TLabel;
119: TimeOnTodayEdit: TEdit;
120: Label30: TLabel;
121: ExtraTimeEdit: TEdit;
122: Label31: TLabel;
123: LastCallTimeEdit: TEdit;
124: GroupBox2: TGroupBox;
125: Label20: TLabel;
126: LogonsEdit: TEdit;
127: Label21: TLabel;
128: LogonsTodayEdit: TEdit;
129: GroupBox3: TGroupBox;
130: Label17: TLabel;
131: FirstOnEdit: TEdit;
132: Label19: TLabel;
133: LastOnEdit: TEdit;
134: GroupBox4: TGroupBox;
135: Label32: TLabel;
136: PostsTotalEdit: TEdit;
137: Label33: TLabel;
138: PostsTodayEdit: TEdit;
139: GroupBox5: TGroupBox;
140: Label34: TLabel;
141: Label35: TLabel;
142: EmailTotalEdit: TEdit;
143: EmailTodayEdit: TEdit;
144: Label36: TLabel;
145: FeedbackEdit: TEdit;
146: GroupBox6: TGroupBox;
147: Label37: TLabel;
148: UploadedFilesEdit: TEdit;
149: Label38: TLabel;
150: UploadedBytesEdit: TEdit;
151: GroupBox7: TGroupBox;
152: Label39: TLabel;
153: Label40: TLabel;
154: DownloadedFilesEdit: TEdit;
155: DownloadedBytesEdit: TEdit;
156: GroupBox8: TGroupBox;
157: Label12: TLabel;
158: Flags1Edit: TEdit;
159: Label13: TLabel;
160: Flags2Edit: TEdit;
161: Label14: TLabel;
162: Flags3Edit: TEdit;
163: Label15: TLabel;
164: Flags4Edit: TEdit;
165: GroupBox9: TGroupBox;
166: AddressEdit: TEdit;
167: LocationEdit: TEdit;
168: ZipCodeEdit: TEdit;
169: DeactivateUser: TAction;
170: N1: TMenuItem;
171: FileDeactivateUserMenuItem: TMenuItem;
172: SettingsTabSheet: TTabSheet;
173: GroupBox10: TGroupBox;
174: Label3: TLabel;
175: RowsEdit: TEdit;
176: GroupBox11: TGroupBox;
177: GroupBox13: TGroupBox;
178: GroupBox15: TGroupBox;
179: ShellEdit: TEdit;
180: ExpertCheckBox: TCheckBox;
181: ChatCheckListBox: TCheckListBox;
182: TerminalCheckListBox: TCheckListBox;
183: LogonCheckListBox: TCheckListBox;
184: ToolBar: TToolBar;
185: ToolButton1: TToolButton;
186: ToolButton2: TToolButton;
187: ToolButton3: TToolButton;
188: ToolButton4: TToolButton;
189: ToolButton5: TToolButton;
190: FindEdit: TEdit;
191: ToolButton6: TToolButton;
192: FindNextButton: TButton;
193: FindButton: TButton;
194: ScrollBar: TScrollBar;
195: Label42: TLabel;
196: LeechEdit: TEdit;
197: Status: TEdit;
198: ToolButton7: TToolButton;
199: MsgFileSettingsTabSheet: TTabSheet;
200: GroupBox16: TGroupBox;
201: Label41: TLabel;
202: MessageCheckListBox: TCheckListBox;
203: EditorEdit: TEdit;
204: GroupBox12: TGroupBox;
205: Label4: TLabel;
206: Label9: TLabel;
207: TempFileExtEdit: TEdit;
208: ProtocolEdit: TEdit;
209: FileCheckListBox: TCheckListBox;
210: GroupBox14: TGroupBox;
211: QWKCheckListBox: TCheckListBox;
212: ExtendedCommentTabSheet: TTabSheet;
213: Memo: TMemo;
214: procedure FormShow(Sender: TObject);
215: procedure ScrollBarChange(Sender: TObject);
216: procedure NumberEditKeyPress(Sender: TObject; var Key: Char);
217: procedure FileExitMenuItemClick(Sender: TObject);
218: procedure EditChange(Sender: TObject);
219: procedure SaveUserExecute(Sender: TObject);
220: procedure NewUserExecute(Sender: TObject);
221: procedure DeleteUserExecute(Sender: TObject);
222: procedure FormClose(Sender: TObject; var Action: TCloseAction);
223: procedure DeactivateUserExecute(Sender: TObject);
224: procedure FindButtonClick(Sender: TObject);
225: procedure FindEditKeyPress(Sender: TObject; var Key: Char);
226: private
227: { Private declarations }
228: public
229: { Public declarations }
230: data_dir: AnsiString;
231: users: Integer;
232: user_misc: Integer;
233: user_chat: Integer;
234: user_qwk: Integer;
235: function LastUser: Integer;
236: procedure GetUserData(usernumber: Integer);
237: procedure PutUserData(usernumber: Integer);
238: end;
239:
240: var
241: Form1: TForm1;
242:
243: implementation
244:
245: const ETX=#3; { End Of Text character, all fields use for padding/terminator }
246: const CR=#13; { Carriage-return }
247: const LF=#10; { Line-feed }
248:
249: const { String lengths }
250: LEN_ALIAS =25; { User alias }
251: LEN_NAME =25; { User name }
252: LEN_HANDLE =8; { User chat handle }
253: LEN_NOTE =30; { User note }
254: LEN_COMP =30; { User computer description }
255: LEN_COMMENT =60; { User comment }
256: LEN_NETMAIL =60; { NetMail forwarding address }
257: LEN_PASS =8; { User password }
258: LEN_PHONE =12; { User phone number }
259: LEN_BIRTH =8; { Birthday in xx/xx/YY format }
260: LEN_ADDRESS =30; { User address }
261: LEN_LOCATION =30; { Location (City, State) }
262: LEN_ZIPCODE =10; { Zip/Postal code }
263: LEN_MODEM =8; { User modem type description }
264: LEN_FDESC =58; { File description }
265: LEN_FCDT =9; { 9 digits for file credit values }
266: LEN_TITLE =70; { Message title }
267: LEN_MAIN_CMD =40; { Storage in user.dat for custom commands }
268: LEN_XFER_CMD =40;
269: LEN_SCAN_CMD =40;
270: LEN_MAIL_CMD =40;
271: LEN_CID =25; { Caller ID (phone number) }
272: LEN_ARSTR =40; { Max length of Access Requirement string }
273: LEN_CHATACTCMD =9; { Chat action command }
274: LEN_CHATACTOUT =65; { Chat action output string }
275:
276:
277: { This is a list of offsets into the USER.DAT file for different variables
278: that are stored (for each user) }
279: const
280: U_ALIAS =0; { Offset to alias }
281: U_NAME =U_ALIAS+LEN_ALIAS; { Offset to name }
282: U_HANDLE =U_NAME+LEN_NAME;
283: U_NOTE =U_HANDLE+LEN_HANDLE+2;
284: U_COMP =U_NOTE+LEN_NOTE;
285: U_COMMENT =U_COMP+LEN_COMP+2;
286:
287: U_NETMAIL =U_COMMENT+LEN_COMMENT+2;
288:
289: U_ADDRESS =U_NETMAIL+LEN_NETMAIL+2;
290: U_LOCATION =U_ADDRESS+LEN_ADDRESS;
291: U_ZIPCODE =U_LOCATION+LEN_LOCATION;
292:
293: U_PASS =U_ZIPCODE+LEN_ZIPCODE+2;
294: U_PHONE =U_PASS+8; { Offset to phone-number }
295: U_BIRTH =U_PHONE+12; { Offset to users birthday }
296: U_MODEM =U_BIRTH+8;
297: U_LASTON =U_MODEM+8;
298: U_FIRSTON =U_LASTON+8;
299: U_EXPIRE =U_FIRSTON+8;
300: U_PWMOD =U_EXPIRE+8;
301:
302: U_LOGONS =U_PWMOD+8+2;
303: U_LTODAY =U_LOGONS+5;
304: U_TIMEON =U_LTODAY+5;
305: U_TEXTRA =U_TIMEON+5;
306: U_TTODAY =U_TEXTRA+5;
307: U_TLAST =U_TTODAY+5;
308: U_POSTS =U_TLAST+5;
309: U_EMAILS =U_POSTS+5;
310: U_FBACKS =U_EMAILS+5;
311: U_ETODAY =U_FBACKS+5;
312: U_PTODAY =U_ETODAY+5;
313:
314: U_ULB =U_PTODAY+5+2;
315: U_ULS =U_ULB+10;
316: U_DLB =U_ULS+5;
317: U_DLS =U_DLB+10;
318: U_CDT =U_DLS+5;
319: U_MIN =U_CDT+10;
320:
321: U_LEVEL =U_MIN+10+2; { Offset to Security Level }
322: U_FLAGS1 =U_LEVEL+2; { Offset to Flags }
323: U_TL =U_FLAGS1+8; { Offset to unused field }
324: U_FLAGS2 =U_TL+2;
325: U_EXEMPT =U_FLAGS2+8;
326: U_REST =U_EXEMPT+8;
327: U_ROWS =U_REST+8+2; { Number of Rows on user's monitor }
328: U_SEX =U_ROWS+2; { Sex, Del, ANSI, color etc. }
329: U_MISC =U_SEX+1; { Miscellaneous flags in 8-byte hex }
330: U_OLDXEDIT =U_MISC+8; { External editor (Version 1 method) }
331: U_LEECH =U_OLDXEDIT+2; { two hex digits - leech attempt count }
332: U_CURSUB =U_LEECH+2; { Current sub (internal code }
333: U_CURDIR =U_CURSUB+8; { Current dir (internal code }
334: U_CMDSET =U_CURDIR+8; { unused }
335: U_MAIN_CMD =U_CMDSET+2+2; { unused }
336: U_XFER_CMD =U_MAIN_CMD+LEN_MAIN_CMD; { unused }
337: U_SCAN_CMD =U_XFER_CMD+LEN_XFER_CMD+2; { unused }
338: U_MAIL_CMD =U_SCAN_CMD+LEN_SCAN_CMD; { unused }
339: U_FREECDT =U_MAIL_CMD+LEN_MAIL_CMD+2;
340: U_FLAGS3 =U_FREECDT+10; { Flag set #3 }
341: U_FLAGS4 =U_FLAGS3+8; { Flag set #4 }
342: U_XEDIT =U_FLAGS4+8; { External editor (code) }
343: U_SHELL =U_XEDIT+8; { Command shell (code) }
344: U_QWK =U_SHELL+8; { QWK settings }
345: U_TMPEXT =U_QWK+8; { QWK extension }
346: U_CHAT =U_TMPEXT+3; { Chat settings }
347: U_NS_TIME =U_CHAT+8; { New-file scan date/time }
348: U_PROT =U_NS_TIME+8; { Default transfer protocol }
349: U_UNUSED =U_PROT+1;
350: U_LEN =(U_UNUSED+28+2);
351:
352: { Bit values for user_misc }
353: const
354: DELETED =(1 shl 0); { Deleted user }
355: ANSI =(1 shl 1); { Supports ANSI terminal emulation }
356: UCOLOR =(1 shl 2); { Send color codes }
357: RIP =(1 shl 3); { Supports RIP terminal emulation }
358: UPAUSE =(1 shl 4); { Pause on every screen full }
359: SPIN =(1 shl 5); { Spinning cursor - Same as K_SPIN }
360: INACTIVE =(1 shl 6); { Inactive user slot }
361: EXPERT =(1 shl 7); { Expert menu mode }
362: ANFSCAN =(1 shl 8); { Auto New file scan }
363: CLRSCRN =(1 shl 9); { Clear screen before each message }
364: QUIET =(1 shl 10); { Quiet mode upon logon }
365: BATCHFLAG =(1 shl 11); { File list allow batch dl flags }
366: NETMAIL =(1 shl 12); { Forward e-mail to fidonet addr }
367: CURSUB =(1 shl 13); { Remember current sub-board/dir }
368: ASK_NSCAN =(1 shl 14); { Ask for newscanning upon logon }
369: NO_EXASCII =(1 shl 15); { Don't send extended ASCII }
370: ASK_SSCAN =(1 shl 16); { Ask for messages to you at logon }
371: AUTOTERM =(1 shl 17); { Autodetect terminal type }
372: COLDKEYS =(1 shl 18); { No hot-keys }
373: EXTDESC =(1 shl 19); { Extended file descriptions }
374: AUTOHANG =(1 shl 20); { Auto-hang-up after transfer }
375: WIP =(1 shl 21); { Supports WIP terminal emulation }
376: AUTOLOGON =(1 shl 22); { AutoLogon via IP }
377:
378: { Bit values for user_chat }
379: const
380: CHAT_ECHO =(1 shl 0); { Multinode chat echo }
381: CHAT_ACTION =(1 shl 1); { Chat actions }
382: CHAT_NOPAGE =(1 shl 2); { Can't be paged }
383: CHAT_NOACT =(1 shl 3); { No activity alerts }
384: CHAT_SPLITP =(1 shl 4); { Split screen private chat }
385:
386: { Bits for user_qwk }
387: const
388: QWK_FILES =(1 shl 0); { Include new files list }
389: QWK_EMAIL =(1 shl 1); { Include unread e-mail }
390: QWK_ALLMAIL =(1 shl 2); { Include ALL e-mail }
391: QWK_DELMAIL =(1 shl 3); { Delete e-mail after download }
392: QWK_BYSELF =(1 shl 4); { Include messages from self }
393: QWK_UNUSED =(1 shl 5); { Currently unused }
394: QWK_EXPCTLA =(1 shl 6); { Expand ctrl-a codes to ascii }
395: QWK_RETCTLA =(1 shl 7); { Retain ctrl-a codes }
396: QWK_ATTACH =(1 shl 8); { Include file attachments }
397: QWK_NOINDEX =(1 shl 9); { Do not create index files in QWK }
398: QWK_TZ =(1 shl 10); { Include "@TZ" time zone in msgs }
399: QWK_VIA =(1 shl 11); { Include "@VIA" seen-bys in msgs }
400: QWK_NOCTRL =(1 shl 12); { No extraneous control files }
401:
402: {$R *.DFM}
403:
404: { Returns total number of users in database }
405: function TForm1.LastUser: Integer;
406: var Str: AnsiString;
407: f: TFileStream;
408: begin
409: Str:=data_dir+'user/user.dat';
410: try
411: f:=TFileStream.Create(Str,fmOpenRead or fmShareDenyNone);
412: Result := f.Size div U_LEN;
413: f.Free;
414: except
415: Result := 0;
416: end;
417: end;
418:
419: procedure SaveChanges;
420: begin
421: if Application.MessageBox('Save Changes','User Modified',MB_YESNO)=IDYES
422: then
423: Form1.SaveUserExecute(Form1)
424: else
425: Form1.GetUserData(Form1.ScrollBar.Position);
426: end;
427:
428: { ************* }
429: { GET USER DATA }
430: { ************* }
431:
432: { Parses a single text data field }
433: function GetTextField(buf : PChar; maxlen : Integer): AnsiString;
434: var str: AnsiString;
435: len: Integer;
436: term: PChar;
437: begin
438: term:=StrScan(buf,ETX); { Look for end-of-text marker }
439: if term = nil then
440: len:=maxlen { not found? }
441: else
442: len:=Term-buf;
443: if len > maxlen then len:=maxlen;
444: SetString(str,buf,len);
445: Result:=str;
446: end;
447:
448: { Get a 16-bit decimal integer field }
449: function GetShortIntField(buf : PChar): AnsiString;
450: begin
451: Result:=GetTextField(buf,5);
452: end;
453:
454: { Get a 32-bit decimal integer field }
455: function GetLongIntField(buf : PChar): AnsiString;
456: begin
457: Result:=GetTextField(buf,10);
458: end;
459:
460: { Parses a flag field returning string with flag letters and spaces }
461: { This function can be used for exemptions and restrictions too }
462: function GetFlagsField(buf : PChar): AnsiString;
463: var str: AnsiString;
464: flagstr: AnsiString;
465: flags: Integer;
466: i: Integer;
467: begin
468: str:='0x'+GetTextField(buf,8);
469: flags:=StrToIntDef(str,0);
470: for i:=0 to 25 do
471: if flags AND (1 shl i) <> 0 then
472: flagstr:=flagstr+Char(65+i)
473: else
474: flagstr:=flagstr+' ';
475: Result:=TrimRight(flagstr);
476: end;
477:
478: { Get a hexadecimal integer field (of any size) }
479: function GetHexField(buf : PChar; maxlen : Integer): Integer;
480: var str: AnsiString;
481: begin
482: str:='0x'+GetTextField(buf,maxlen);
483: Result:=StrToIntDef(str,0);
484: end;
485:
486: { Convert a hexadecimal time field (in unix format) to xx/xx/YY }
487: function GetDateField(buf : PChar): AnsiString;
488: var str: AnsiString;
489: date: TDateTime;
490: time: Integer;
491: begin
492: str:='0x'+GetTextField(buf,8);
493: time:=StrToIntDef(str,0);
494: if time=0 then begin
495: Result:='00/00/00';
496: Exit;
497: end;
498: time:=time div (24*60*60); { convert from seconds to days }
499: date:=EncodeDate(1970,1,1)+time; { convert to days since 1970 }
500: Result:=DateToStr(date);
501: end;
502:
503: { Reads a user data record to an Edit box and clears modified flag }
504: function GetUserText(Edit: Tedit; buf: PChar; maxlen: Integer) : AnsiString;
505: begin
506: Edit.Text:=GetTextField(buf,maxlen);
507: Edit.Tag:=0; { clear modified flag }
508: Edit.MaxLength:=maxlen;
509: Result:=Edit.Text;
510: end;
511:
512: { Reads a user data record to an Edit box and clears modified flag }
513: function GetUserShortInt(Edit: Tedit; buf: PChar) : AnsiString;
514: begin
515: GetUserText(Edit,buf,5);
516: Result:=Edit.Text;
517: end;
518:
519: { Reads a user data record to an Edit box and clears modified flag }
520: function GetUserLongInt(Edit: Tedit; buf: PChar) : AnsiString;
521: begin
522: GetUserText(Edit,buf,10);
523: Result:=Edit.Text;
524: end;
525:
526: { Reads and parses a single user record, filling in edit boxes, etc. }
527: procedure TForm1.GetUserData(usernumber: Integer);
528: var Str: AnsiString;
529: f: TFileStream;
530: buf: array[0..U_LEN] of Char;
531: begin
532: { Open file and read user record }
533: Str:=data_dir+'user/user.dat';
534: try
535: f:=TFileStream.Create(Str,fmOpenRead or fmShareDenyNone);
536: except
537: Exit;
538: end;
539: f.Seek((usernumber-1)*U_LEN,soFromBeginning);
540: f.Read(buf,U_LEN);
541: f.Free;
542:
543: { ********************** }
544: { Parse user data buffer }
545: { ********************** }
546:
547: { Personal }
548: GetUserText(AliasEdit,buf+U_ALIAS,LEN_ALIAS);
549: GetUserText(NameEdit,buf+U_NAME,LEN_NAME);
550: GetUserText(HandleEdit,buf+U_HANDLE,LEN_HANDLE);
551: GetUserText(ComputerEdit,buf+U_COMP,LEN_COMP);
552: GetUserText(NetMailEdit,buf+U_NETMAIL,LEN_NETMAIL);
553: GetUserText(AddressEdit,buf+U_ADDRESS,LEN_ADDRESS);
554: GetUserText(LocationEdit,buf+U_LOCATION,LEN_LOCATION);
555: GetUserText(NoteEdit,buf+U_NOTE,LEN_NOTE);
556: GetUserText(BirthDateEdit,buf+U_BIRTH,LEN_BIRTH);
557: GetUserText(PasswordEdit,buf+U_PASS,LEN_PASS);
558: GetUserText(ModemEdit,buf+U_MODEM,LEN_MODEM);
559: GetUserText(ZipCodeEdit,buf+U_ZIPCODE,LEN_ZIPCODE);
560: GetUserText(SexEdit,buf+U_SEX,1);
561: GetUserText(PhoneEdit,buf+U_PHONE,LEN_PHONE);
562: GetUserText(CommentEdit,buf+U_COMMENT,LEN_COMMENT);
563:
564: { Settings }
565: GetUserText(RowsEdit,buf+U_ROWS,2);
566: GetUserText(ShellEdit,buf+U_SHELL,8);
567: GetUserText(EditorEdit,buf+U_XEDIT,8);
568: GetUserText(ProtocolEdit,buf+U_PROT,1);
569: GetUserText(TempFileExtEdit,buf+U_TMPEXT,3);
570:
571: { Read 'misc' bit-field }
572: user_misc:=GetHexField(buf+U_MISC,8);
573: ExpertCheckBox.Checked:=user_misc AND EXPERT <> 0;
574: ExpertCheckBox.Tag:=0;
575:
576: TerminalCheckListBox.Checked[0]:=user_misc AND AUTOTERM <> 0;
577: TerminalCheckListBox.Checked[1]:=user_misc AND NO_EXASCII = 0;
578: TerminalCheckListBox.Checked[2]:=user_misc AND ANSI <> 0;
579: TerminalCheckListBox.Checked[3]:=user_misc AND UCOLOR <> 0;
580: TerminalCheckListBox.Checked[4]:=user_misc AND RIP <> 0;
581: TerminalCheckListBox.Checked[5]:=user_misc AND WIP <> 0;
582: TerminalCheckListBox.Checked[6]:=user_misc AND UPAUSE <> 0;
583: TerminalCheckListBox.Checked[7]:=user_misc AND COLDKEYS = 0;
584: TerminalCheckListBox.Checked[8]:=user_misc AND SPIN <> 0;
585: TerminalCheckListBox.Tag:=0;
586:
587: MessageCheckListBox.Checked[0]:=user_misc AND NETMAIL <> 0;
588: MessageCheckListBox.Checked[1]:=user_misc AND CLRSCRN <> 0;
589: MessageCheckListBox.Tag:=0;
590:
591: FileCheckListBox.Checked[0]:=user_misc AND ANFSCAN <> 0;
592: FileCheckListBox.Checked[1]:=user_misc AND EXTDESC <> 0;
593: FileCheckListBox.Checked[2]:=user_misc AND BATCHFLAG <> 0;
594: FileCheckListBox.Checked[3]:=user_misc AND AUTOHANG <> 0;
595: FileCheckListBox.Tag:=0;
596:
597: LogonCheckListBox.Checked[0]:=user_misc AND ASK_NSCAN <> 0;
598: LogonCheckListBox.Checked[1]:=user_misc AND ASK_SSCAN <> 0;
599: LogonCheckListBox.Checked[2]:=user_misc AND CURSUB <> 0;
600: LogonCheckListBox.Checked[3]:=user_misc AND QUIET <> 0;
601: LogonCheckListBox.Checked[4]:=user_misc AND AUTOLOGON <> 0;
602: LogonCheckListBox.Tag:=0;
603:
604: { Read 'QWK' bit-field }
605: user_qwk:=GetHexField(buf+U_QWK,8);
606: QWKCheckListBox.Checked[0]:=user_qwk AND QWK_FILES <> 0;
607: QWKCheckListBox.Checked[1]:=user_qwk AND QWK_EMAIL <> 0;
608: QWKCheckListBox.Checked[2]:=user_qwk AND QWK_ALLMAIL <> 0;
609: QWKCheckListBox.Checked[3]:=user_qwk AND QWK_DELMAIL <> 0;
610: QWKCheckListBox.Checked[4]:=user_qwk AND QWK_BYSELF <> 0;
611: QWKCheckListBox.Checked[5]:=user_qwk AND QWK_EXPCTLA <> 0;
612: QWKCheckListBox.Checked[6]:=user_qwk AND QWK_RETCTLA = 0;
613: QWKCheckListBox.Checked[7]:=user_qwk AND QWK_ATTACH <> 0;
614: QWKCheckListBox.Checked[8]:=user_qwk AND QWK_NOINDEX <> 0;
615: QWKCheckListBox.Checked[9]:=user_qwk AND QWK_TZ <> 0;
616: QWKCheckListBox.Checked[10]:=user_qwk AND QWK_VIA <> 0;
617: QWKCheckListBox.Checked[11]:=user_qwk AND QWK_NOCTRL = 0;
618: QWKCheckListBox.Tag:=0;
619:
620: { Read 'chat' bit-field }
621: user_chat:=GetHexField(buf+U_CHAT,8);
622: ChatCheckListBox.Checked[0]:=user_chat AND CHAT_ECHO <> 0;
623: ChatCheckListBox.Checked[1]:=user_chat AND CHAT_ACTION <> 0;
624: ChatCheckListBox.Checked[2]:=user_chat AND CHAT_NOPAGE = 0;
625: ChatCheckListBox.Checked[3]:=user_chat AND CHAT_NOACT = 0;
626: ChatCheckListBox.Checked[4]:=user_chat AND CHAT_SPLITP <> 0;
627: ChatCheckListBox.Tag:=0;
628:
629: { Initialize controls based on bits set/unset }
630: if user_misc AND DELETED <> 0 then begin
631: Status.Text := 'Deleted User';
632: Status.Color := clRed;
633: end
634: else if user_misc AND INACTIVE <> 0 then begin
635: Status.Text := 'Inactive User';
636: Status.Color := clYellow;
637: end
638: else begin
639: Status.Text := 'Active User';
640: Status.Color := clMenu;
641: end;
642:
643: { Security }
644: GetUserText(LevelEdit,buf+U_LEVEL,2);
645: ExpireEdit.Text:=GetDateField(buf+U_EXPIRE);
646: ExpireEdit.Tag:=0;
647: Flags1Edit.Text:=GetFlagsField(buf+U_FLAGS1);
648: Flags1Edit.Tag:=0;
649: Flags2Edit.Text:=GetFlagsField(buf+U_FLAGS2);
650: Flags2Edit.Tag:=0;
651: Flags3Edit.Text:=GetFlagsField(buf+U_FLAGS3);
652: Flags3Edit.Tag:=0;
653: Flags4Edit.Text:=GetFlagsField(buf+U_FLAGS4);
654: Flags4Edit.Tag:=0;
655: ExemptionsEdit.Text:=GetFlagsField(buf+U_EXEMPT);
656: ExemptionsEdit.Tag:=0;
657: RestrictionsEdit.Text:=GetFlagsField(buf+U_REST);
658: RestrictionsEdit.Tag:=0;
659: GetUserLongInt(CreditsEdit,buf+U_CDT);
660: GetUserLongInt(FreeCreditsEdit,buf+U_FREECDT);
661: GetUserLongInt(MinutesEdit,buf+U_MIN);
662:
663: { Stats }
664: FirstOnEdit.Text:=GetDateField(buf+U_FIRSTON);
665: FirstOnEdit.Tag:=0;
666: LastOnEdit.Text:=GetDateField(buf+U_LASTON);
667: LastOnEdit.Tag:=0;
668: GetUserShortInt(LogonsEdit,buf+U_LOGONS);
669: GetUserShortInt(LogonsTodayEdit,buf+U_LTODAY);
670: GetUserShortInt(TimeOnEdit,buf+U_TIMEON);
671: GetUserShortInt(LastCallTimeEdit,buf+U_TLAST);
672: GetUserShortInt(TimeOnTodayEdit,buf+U_TTODAY);
673: GetUserShortInt(ExtraTimeEdit,buf+U_TEXTRA);
674: GetUserShortInt(PostsTotalEdit,buf+U_POSTS);
675: GetUserShortInt(PostsTodayEdit,buf+U_PTODAY);
676: GetUserShortInt(EmailTotalEdit,buf+U_EMAILS);
677: GetUserShortInt(EmailTodayEdit,buf+U_ETODAY);
678: GetUserShortInt(FeedbackEdit,buf+U_FBACKS);
679: GetUserShortInt(UploadedFilesEdit,buf+U_ULS);
680: GetUserLongInt(UploadedBytesEdit,buf+U_ULB);
681: GetUserShortInt(DownloadedFilesEdit,buf+U_DLS);
682: GetUserLongInt(DownloadedBytesEdit,buf+U_DLB);
683: LeechEdit.Text:=IntToStr(GetHexField(buf+U_LEECH,2));
684:
685: { etc... }
686:
687: { Extended Comment }
688: Memo.Lines.Clear();
689: Str:=data_dir+Format('USER/%.4d.MSG',[usernumber]);
690: if FileExists(Str) then Memo.Lines.LoadFromFile(Str);
691: Memo.Tag:=0;
692:
693: { Update User Number }
694: NumberEdit.Text:=IntToStr(ScrollBar.Position);
695: SaveUser.Enabled:=false; { no changes have been made yet }
696: end;
697:
698: { ************* }
699: { PUT USER DATA }
700: { ************* }
701:
702: { Encodes a single text data field (of any length) }
703: procedure PutTextField(buf : PChar; str : AnsiString; maxlen : Integer);
704: var len:Integer;
705: i:Integer;
706: begin
707: for i:=0 to maxlen-1 do buf[i]:=ETX;
708: len:=Length(str);
709: if len > maxlen then len:=maxlen;
710: for i:=0 to len-1 do buf[i]:=str[i+1];
711: end;
712:
713: { Encodes a flag field (A-Z) into a 32-bit Hex string }
714: procedure PutFlagsField(buf : PChar; str : AnsiString);
715: var flags: Integer;
716: i:Integer;
717: begin
718: flags:=0;
719: for i:=0 to 25 do
720: if Pos(Chr(65+i),str) <> 0 then
721: flags:=flags OR (1 shl i);
722: PutTextField(buf,IntToHex(flags,8),8);
723: end;
724:
725: { Converts a date string in xx/xx/YY format into a unix time_t format in hex }
726: procedure PutDateField(buf : PChar; str : AnsiString);
727: var val: Integer;
728: begin
729: { convert to days since 1970 }
730: try
731: val:=Round(StrToDate(str)-EncodeDate(1970,1,1));
732: except
733: val:=0;
734: end;
735: if val < 0 then val:=0;
736: { convert from days to seconds }
737: val:=val*(24*60*60);
738: PutTextField(buf,IntToHex(val,8),8);
739: end;
740:
741: { Writes to a 16-bit decimal integer field }
742: procedure PutShortIntField(buf : PChar; str : AnsiString);
743: begin
744: PutTextField(buf, str, 5);
745: end;
746:
747: { Writes to a 32-bit decimal integer field }
748: procedure PutLongIntField(buf : PChar; str : AnsiString);
749: begin
750: PutTextField(buf, str, 10);
751: end;
752:
753: { Writes to a hexadecimal integer field (of any length) }
754: procedure PutHexField(buf : PChar; val : Integer; maxlen : Integer);
755: begin
756: PutTextField(buf,IntToHex(val,maxlen),maxlen);
757: end;
758:
759: { Writes a user Edit box's contents to the buffer, if changed, resets Tag }
760: procedure PutUserText(Edit:Tedit; buf:PChar; maxlen:Integer);
761: begin
762: if Edit.Tag = 1 then { field modified, change record }
763: PutTextField(buf,Edit.Text,maxlen);
764: Edit.Tag:=0; { clear modified flag }
765: end;
766:
767: { Writes a flag Edit box's contents to the buffer, if changed }
768: { This function can be used for exemptions and restrictions too }
769: procedure PutUserFlags(Edit:Tedit; buf:PChar);
770: begin
771: if Edit.Tag = 1 then { field modified, change record }
772: PutFlagsField(buf,Edit.Text);
773: Edit.Tag:=0; { clear modified flag }
774: end;
775:
776: { Writes a 16-bit integer Edit box's contents to the buffer, if changed }
777: procedure PutUserShortInt(Edit:Tedit; buf:PChar);
778: begin
779: if Edit.Tag = 1 then { field modified, change record }
780: PutTextField(buf,Edit.Text,5);
781: Edit.Tag:=0; { clear modified flag }
782: end;
783:
784: { Writes a 32-bit integer Edit box's contents to the buffer, if changed }
785: procedure PutUserLongInt(Edit:Tedit; buf:PChar);
786: begin
787: if Edit.Tag = 1 then { field modified, change record }
788: PutTextField(buf,Edit.Text,10);
789: Edit.Tag:=0; { clear modified flag }
790: end;
791:
792: { Writes a date Edit box's contents to the buffer, if changed }
793: procedure PutUserDate(Edit:Tedit; buf:PChar);
794: begin
795: if Edit.Tag = 1 then { field modified, change record }
796: PutDateField(buf,Edit.Text);
797: Edit.Tag:=0; { clear modified flag }
798: end;
799:
800: function SetBit(set_it: bool; field: Cardinal; bit: Cardinal): Cardinal;
801: begin
802: if set_it then
803: Result:=field OR bit { set bit }
804: else
805: Result:=field AND NOT bit; { clear bit }
806: end;
807:
808: { Writes a complete user record. }
809: procedure TForm1.PutUserData(usernumber:Integer);
810: var Str: AnsiString;
811: f: TFileStream;
812: i: Integer;
813: buf: array[0..U_LEN] of Char;
814: begin
815: if AliasEdit.Tag = 1 then begin
816: { Set-up buffer for NAME.DAT record }
817: if user_misc AND DELETED <> 0 then
818: PutTextField(buf,'',LEN_ALIAS)
819: else
820: PutTextField(buf,AliasEdit.Text,LEN_ALIAS);
821: buf[LEN_ALIAS]:=CR;
822: buf[LEN_ALIAS+1]:=LF;
823:
824: { Open NAME.DAT write user name }
825: Str:=data_dir+'USER/NAME.DAT';
826: if FileExists(Str) then
827: f:=TFileStream.Create(Str,fmOpenWrite or fmShareExclusive)
828: else
829: f:=TFileStream.Create(Str,fmCreate or fmShareExclusive);
830: f.Seek((usernumber-1)*(LEN_ALIAS+2),soFromBeginning);
831: f.Write(buf,LEN_ALIAS+2);
832: f.Free;
833: end;
834:
835: { Initialize USER record buffer }
836: for i:=0 to U_LEN-1 do buf[i]:=ETX;
837:
838: { Open file and read current user record }
839: Str:=data_dir+'user/user.dat';
840: if FileExists(Str) then
841: f:=TFileStream.Create(Str,fmOpenReadWrite or fmShareExclusive)
842: else
843: f:=TFileStream.Create(Str,fmCreate or fmShareExclusive);
844:
845: f.Seek((usernumber-1)*U_LEN,soFromBeginning);
846: f.Read(buf,U_LEN);
847:
848: { Update changed fields }
849: PutUserText(AliasEdit,buf+U_ALIAS,LEN_ALIAS);
850: PutUserText(NameEdit,buf+U_NAME,LEN_NAME);
851: PutUserText(HandleEdit,buf+U_HANDLE,LEN_HANDLE);
852: PutUserText(ComputerEdit,buf+U_COMP,LEN_COMP);
853: PutUserText(NetMailEdit,buf+U_NETMAIL,LEN_NETMAIL);
854: PutUserText(AddressEdit,buf+U_ADDRESS,LEN_ADDRESS);
855: PutUserText(LocationEdit,buf+U_LOCATION,LEN_LOCATION);
856: PutUserText(NoteEdit,buf+U_NOTE,LEN_NOTE);
857: PutUserText(ZipCodeEdit,buf+U_ZIPCODE,LEN_ZIPCODE);
858: PutUserText(PasswordEdit,buf+U_PASS,LEN_PASS);
859: PutUserText(PhoneEdit,buf+U_PHONE,LEN_PHONE);
860: PutUserText(BirthDateEdit,buf+U_BIRTH,LEN_BIRTH);
861: PutUserText(ModemEdit,buf+U_MODEM,LEN_MODEM);
862: PutUserText(SexEdit,buf+U_SEX,1);
863: PutUserText(CommentEdit,buf+U_COMMENT,LEN_COMMENT);
864: { etc. }
865:
866: { Settings }
867: PutUserText(RowsEdit,buf+U_ROWS,2);
868: PutUserText(ShellEdit,buf+U_SHELL,8);
869: PutUserText(EditorEdit,buf+U_XEDIT,8);
870: PutUserText(ProtocolEdit,buf+U_PROT,1);
871: PutUserText(TempFileExtEdit,buf+U_TMPEXT,3);
872:
873: { Write MISC bit-field}
874: if (ExpertCheckBox.Tag = 1)
875: or (LogonCheckListBox.Tag = 1)
876: or (TerminalCheckListBox.Tag = 1)
877: or (MessageCheckListBox.Tag = 1)
878: or (FileCheckListBox.Tag = 1)
879: then begin
880: user_misc:=SetBit(ExpertCheckBox.Checked, user_misc, EXPERT);
881:
882: { TerminalCeckListBox }
883: user_misc:=SetBit(TerminalCheckListBox.Checked[0],user_misc,AUTOTERM);
884: user_misc:=SetBit(NOT TerminalCheckListBox.Checked[1],user_misc,NO_EXASCII);
885: user_misc:=SetBit(TerminalCheckListBox.Checked[2],user_misc,ANSI);
886: user_misc:=SetBit(TerminalCheckListBox.Checked[3],user_misc,UCOLOR);
887: user_misc:=SetBit(TerminalCheckListBox.Checked[4],user_misc,RIP);
888: user_misc:=SetBit(TerminalCheckListBox.Checked[5],user_misc,WIP);
889: user_misc:=SetBit(TerminalCheckListBox.Checked[6],user_misc,UPAUSE);
890: user_misc:=SetBit(NOT TerminalCheckListBox.Checked[7],user_misc,COLDKEYS);
891: user_misc:=SetBit(TerminalCheckListBox.Checked[8],user_misc,SPIN);
892:
893: { MessageCheckListBox }
894: user_misc:=SetBit(MessageCheckListBox.Checked[0],user_misc,NETMAIL);
895: user_misc:=SetBit(MessageCheckListBox.Checked[1],user_misc,CLRSCRN);
896:
897: { FileCheckListBox }
898: user_misc:=SetBit(FileCheckListBox.Checked[0],user_misc,ANFSCAN);
899: user_misc:=SetBit(FileCheckListBox.Checked[1],user_misc,EXTDESC);
900: user_misc:=SetBit(FileCheckListBox.Checked[2],user_misc,BATCHFLAG);
901: user_misc:=SetBit(FileCheckListBox.Checked[3],user_misc,AUTOHANG);
902:
903: { LogonCheckListBox }
904: user_misc:=SetBit(LogonCheckListBox.Checked[0],user_misc,ASK_NSCAN);
905: user_misc:=SetBit(LogonCheckListBox.Checked[1],user_misc,ASK_SSCAN);
906: user_misc:=SetBit(LogonCheckListBox.Checked[2],user_misc,CURSUB);
907: user_misc:=SetBit(LogonCheckListBox.Checked[3],user_misc,QUIET);
908: user_misc:=SetBit(LogonCheckListBox.Checked[4],user_misc,AUTOLOGON);
909:
910: PutHexField(buf+U_MISC, user_misc, 8);
911: end;
912:
913: if (ChatCheckListBox.Tag = 1) then begin
914: user_chat:=SetBit(ChatCheckListBox.Checked[0],user_chat,CHAT_ECHO);
915: user_chat:=SetBit(ChatCheckListBox.Checked[1],user_chat,CHAT_ACTION);
916: user_chat:=SetBit(NOT ChatCheckListBox.Checked[2],user_chat,CHAT_NOPAGE);
917: user_chat:=SetBit(NOT ChatCheckListBox.Checked[3],user_chat,CHAT_NOACT);
918: user_chat:=SetBit(ChatCheckListBox.Checked[4],user_chat,CHAT_SPLITP);
919:
920: PutHexField(buf+U_CHAT, user_chat, 8);
921: end;
922:
923: if (QWKCheckListBox.Tag =1) then begin
924: user_qwk:=SetBit(QWKCheckListBox.Checked[0],user_qwk,QWK_FILES);
925: user_qwk:=SetBit(QWKCheckListBox.Checked[1],user_qwk,QWK_EMAIL);
926: user_qwk:=SetBit(QWKCheckListBox.Checked[2],user_qwk,QWK_ALLMAIL);
927: user_qwk:=SetBit(QWKCheckListBox.Checked[3],user_qwk,QWK_DELMAIL);
928: user_qwk:=SetBit(QWKCheckListBox.Checked[4],user_qwk,QWK_BYSELF);
929: user_qwk:=SetBit(QWKCheckListBox.Checked[5],user_qwk,QWK_EXPCTLA);
930: user_qwk:=SetBit(NOT QWKCheckListBox.Checked[6],user_qwk,QWK_RETCTLA);
931: user_qwk:=SetBit(QWKCheckListBox.Checked[7],user_qwk,QWK_ATTACH);
932: user_qwk:=SetBit(QWKCheckListBox.Checked[8],user_qwk,QWK_NOINDEX);
933: user_qwk:=SetBit(QWKCheckListBox.Checked[9],user_qwk,QWK_TZ);
934: user_qwk:=SetBit(QWKCheckListBox.Checked[10],user_qwk,QWK_VIA);
935: user_qwk:=SetBit(NOT QWKCheckListBox.Checked[11],user_qwk,QWK_NOCTRL);
936:
937: PutHexField(buf+U_QWK, user_qwk, 8);
938: end;
939:
940: { Security }
941: PutUserText(LevelEdit,buf+U_LEVEL,2);
942: PutUserDate(ExpireEdit,buf+U_EXPIRE);
943: PutUserFlags(Flags1Edit,buf+U_FLAGS1);
944: PutUserFlags(Flags2Edit,buf+U_FLAGS2);
945: PutUserFlags(Flags3Edit,buf+U_FLAGS3);
946: PutUserFlags(Flags4Edit,buf+U_FLAGS4);
947: PutUserFlags(ExemptionsEdit,buf+U_EXEMPT);
948: PutUserFlags(RestrictionsEdit,buf+U_REST);
949: PutUserLongInt(CreditsEdit,buf+U_CDT);
950: PutUserLongInt(FreeCreditsEdit,buf+U_FREECDT);
951: PutUserLongInt(MinutesEdit,buf+U_MIN);
952: { etc. }
953:
954: { Stats }
955: PutUserDate(FirstOnEdit,buf+U_FIRSTON);
956: PutUserDate(LastOnEdit,buf+U_LASTON);
957: PutUserShortInt(LogonsEdit,buf+U_LOGONS);
958: PutUserShortInt(LogonsTodayEdit,buf+U_LTODAY);
959: PutUserShortInt(TimeOnEdit,buf+U_TIMEON);
960: PutUserShortInt(TimeOnTodayEdit,buf+U_TTODAY);
961: PutUserShortInt(LastCallTimeEdit,buf+U_TLAST);
962: PutUserShortInt(ExtraTimeEdit,buf+U_TEXTRA);
963: PutUserShortInt(PostsTotalEdit,buf+U_POSTS);
964: PutUserShortInt(PostsTodayEdit,buf+U_PTODAY);
965: PutUserShortInt(EmailTotalEdit,buf+U_EMAILS);
966: PutUserShortInt(EmailTodayEdit,buf+U_ETODAY);
967: PutUserShortInt(FeedbackEdit,buf+U_FBACKS);
968: PutUserShortInt(UploadedFilesEdit,buf+U_ULS);
969: PutUserLongInt(UploadedBytesEdit,buf+U_ULB);
970: PutUserShortInt(DownloadedFilesEdit,buf+U_DLS);
971: PutUserLongInt(DownloadedBytesEdit,buf+U_DLB);
972: PutHexField(buf+U_LEECH, StrToIntDef(LeechEdit.Text,0), 2);
973: { etc. }
974:
975: { Write user record and close file }
976: f.Seek((usernumber-1)*U_LEN,soFromBeginning);
977: f.Write(buf,U_LEN);
978: f.Free;
979:
980: { Extended Comemnt }
981: if Memo.Tag = 1 then begin
982: Str:=data_dir+Format('USER/%.4d.MSG',[usernumber]);
983: if Memo.Lines.Count<>0 then
984: Memo.Lines.SaveToFile(Str)
985: else
986: DeleteFile(Str);
987: end;
988:
989: SaveUser.Enabled:=false;
990: end;
991:
992: { ********* }
993: { MAIN FORM }
994: { ********* }
995:
996: { There's probably a better place to do this init stuff... constructor? }
997: procedure TForm1.FormShow(Sender: TObject);
998: begin
999:
1000: { Over-ride Locale settings here }
1001: DateSeparator:='/';
1002:
1003: if (ShortDateFormat = 'M/d/yy')
1004: or (ShortDateFormat = 'M/d/yyyy')
1005: or (ShortDateFormat = 'MM/dd/yy')
1006: or (ShortDateFormat = 'MM/dd/yyyy')
1007: then
1008: ShortDateFormat:='mm/dd/yy' { American }
1009: else
1010: ShortDateFormat:='dd/mm/yy'; { European }
1011:
1012: data_dir:=ParamStr(1);
1013: { if Length(data_dir)=0 then data_dir:='.\'; }
1014:
1015: users:=LastUser();
1016:
1017: if users = 0 then { Create user if none exist }
1018: users:=1;
1019:
1020: ScrollBar.Min:=1;
1021: ScrollBar.Max:=users;
1022: TotalStaticText.Caption:='of '+IntToStr(users);
1023: { *********************************** }
1024: { Set max lengths for edit boxes here }
1025: { *********************************** }
1026: { Personal }
1027: AliasEdit.MaxLength:=LEN_ALIAS;
1028: NameEdit.MaxLength:=LEN_NAME;
1029: PhoneEdit.MaxLength:=LEN_PHONE;
1030: HandleEdit.MaxLength:=LEN_HANDLE;
1031: ComputerEdit.MaxLength:=LEN_COMP;
1032: AddressEdit.MaxLength:=LEN_ADDRESS;
1033: LocationEdit.MaxLength:=LEN_LOCATION;
1034: ZipCodeEdit.MaxLength:=LEN_ZIPCODE;
1035: ModemEdit.MaxLength:=LEN_MODEM;
1036: CommentEdit.MaxLength:=LEN_COMMENT;
1037: { Security }
1038: PasswordEdit.MaxLength:=LEN_PASS;
1039: PhoneEdit.MaxLength:=LEN_PHONE;
1040: ModemEdit.MaxLength:=LEN_MODEM;
1041: SexEdit.MaxLength:=1;
1042: { Stats }
1043: { etc. }
1044:
1045: ScrollBar.Position:=StrToIntDef(ParamStr(2),1);
1046: GetUserData(ScrollBar.Position);
1047:
1048: PageControl.ActivePage:=PersonalTabSheet;
1049: end;
1050:
1051: { Change user }
1052: procedure TForm1.ScrollBarChange(Sender: TObject);
1053: begin
1054: if SaveUser.Enabled then SaveChanges();
1055: users:=LastUser(); { this could change dynamically }
1056: ScrollBar.Max:=users;
1057: TotalStaticText.Caption:='of '+IntToStr(users);
1058: GetUserData(ScrollBar.Position);
1059: end;
1060:
1061: { Better than on OnChange event, waits til users hits enter key }
1062: procedure TForm1.NumberEditKeyPress(Sender: TObject; var Key: Char);
1063: var val : Integer;
1064: begin
1065: if Key <> #13 then Exit;
1066: users:=lastuser;
1067: val:=StrToIntDef(NumberEdit.Text,0);
1068: if (val = 0) or (val > users) then
1069: NumberEdit.Text:=IntToStr(ScrollBar.Position)
1070: else begin
1071: ScrollBar.Position:=val;
1072: GetUserData(val);
1073: Key:=#0;
1074: end
1075: end;
1076:
1077: procedure TForm1.FileExitMenuItemClick(Sender: TObject);
1078: begin
1079: Close;
1080: end;
1081:
1082: { OnChange event for ALL User Data Edit boxes }
1083: procedure TForm1.EditChange(Sender: TObject);
1084: begin
1085: SaveUser.Enabled:=true;
1086: (Sender as TComponent).Tag:=1; { Mark as modified }
1087: end;
1088:
1089: { Create a New User record }
1090: procedure TForm1.SaveUserExecute(Sender: TObject);
1091: begin
1092: PutUserData(StrToIntDef(NumberEdit.Text,ScrollBar.Position));
1093: end;
1094:
1095: procedure TForm1.NewUserExecute(Sender: TObject);
1096: begin
1097: if SaveUser.Enabled then SaveChanges();
1098:
1099: { New users's number }
1100: users:=lastuser()+1;
1101:
1102: { Initialize fields to default values }
1103: AliasEdit.Text:='New User';
1104: AliasEdit.Tag := 1;
1105: LevelEdit.Text:='10';
1106: LevelEdit.Tag :=1;
1107: FirstOnEdit.Text:=DatetoStr(Date);
1108: FirstOnEdit.Tag :=1;
1109: LastOnEdit.Text:=DateToStr(Date);
1110: LastOnEdit.Tag :=1;
1111: TerminalCheckListBox.Checked[0] := true; // AUTOTERM
1112: TerminalCheckListBox.Checked[1] := true; // EXASCII
1113: TerminalCheckListBox.Checked[2] := true; // ANSI
1114: TerminalCheckListBox.Checked[3] := true; // COLOR
1115: TerminalCheckListBox.Checked[6] := true; // UPAUSE
1116: TerminalCheckListBox.Checked[7] := true; // HOTKEYS
1117: FileCheckListBox.Checked[2] := true; // BATCHFLAG
1118: LogonCheckListBox.Tag:=1;
1119:
1120: { Create the new record }
1121: PutUserData(users);
1122:
1123: { Set scroll bar and usernumber text }
1124: ScrollBar.Max:=users;
1125: ScrollBar.Position:=users;
1126: NumberEdit.Text:=IntToStr(users);
1127:
1128: end;
1129:
1130: procedure TForm1.DeleteUserExecute(Sender: TObject);
1131: begin
1132: user_misc:=user_misc xor DELETED;
1133: LogonCheckListBox.Tag:=1; { flag as modified }
1134: AliasEdit.Tag := 1;
1135: PutUserData(ScrollBar.Position);
1136: GetUserData(ScrollBar.Position);
1137: end;
1138:
1139: procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
1140: begin
1141: if SaveUser.Enabled then SaveChanges();
1142: end;
1143:
1144: procedure TForm1.DeactivateUserExecute(Sender: TObject);
1145: begin
1146: user_misc:=user_misc xor INACTIVE;
1147: LogonCheckListBox.Tag:=1; { flag as modified }
1148: PutUserData(ScrollBar.Position);
1149: GetUserData(ScrollBar.Position);
1150: end;
1151:
1152: procedure TForm1.FindButtonClick(Sender: TObject);
1153: var Str: AnsiString;
1154: SearchStr: AnsiString;
1155: f: TFileStream;
1156: usernumber: Integer;
1157: buf: array[0..U_LEN] of Char;
1158: begin
1159: SearchStr:=AnsiUpperCase(FindEdit.Text);
1160: usernumber:=0;
1161: { Open USER.DAT to search for string }
1162: Str:=data_dir+'user/user.dat';
1163: if not FileExists(Str) then Exit;
1164: f:=TFileStream.Create(Str,fmOpenRead or fmShareDenyNone);
1165: if Sender = FindNextButton then
1166: f.Seek((ScrollBar.Position)*(U_LEN),soFromBeginning);
1167: while (f.Position < f.Size) and (usernumber=0) do begin
1168: f.Read(buf,U_LEN);
1169: SetString(Str,buf,U_LEN);
1170: Str:=AnsiUpperCase(Str);
1171: if Pos(SearchStr,Str) <> 0 then
1172: usernumber:=f.Position div (U_LEN);
1173: end;
1174: f.Free;
1175: if usernumber <> 0 then begin
1176: ScrollBar.Position:=usernumber;
1177: end;
1178: end;
1179:
1180: procedure TForm1.FindEditKeyPress(Sender: TObject; var Key: Char);
1181: begin
1182: if Key = #13 then begin
1183: FindButtonClick(Sender);
1184: Key:=#0;
1185: end;
1186: end;
1187:
1188: end.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.