uk, MainFormRuk);. StartMes. Caption: = AdoQuery1 ['Login'];. Show;. Hide;. CreateForm (TMainFormSek, MainFormSek);. StartMes. Caption: = AdoQuery1 ['Login'];. Show;. Hide;; ('Невернийпароль');;
{begin (StatCmB. Text ='') then ('Введіть вихідні дані!'). Visible: = False; (StatCmB. Text = 'Керівник') then. Visible: = True;. StartMes. Caption: = 'Користувач:'; (AuthForm. LogCmB. Text = 'ЗімінН.В.') Then. StartMes. Caption: = MainFormRuk. StartMes. Caption + 'ЗімінНіколайВладіміровіч'; (AuthForm. LogCmB. Text = 'ЛожкінА.М.') Then. StartMes. Caption: = MainFormRuk. StartMes. Caption + 'ЛожкінАлександрМіхайловіч'; (AuthForm. LogCmB. Text = 'СідоровД.Ю.') Then. StartMes. Caption: = MainFormRuk. StartMes. Caption + 'СідоровДенісЮрьевіч';; (StatCmB. Text = 'Секретар') then. Visible: = True;. StartMes. Caption: = 'Користувач:'; (AuthForm. LogCmB. Text = 'ІвановаЛ.І.') Then. StartMes. Caption: = MainFormSek. StartMes. Caption + 'ІвановаЛарісаІвановна'; (AuthForm. LogCmB. Text = 'ПетроваМ.Н.') Then. StartMes. Caption: = MainFormSek. StartMes. Caption + 'ПетроваМарінаНіколаевна';;;}. FormCreate (Sender: TObject); s: string;. Items. Add ('Керівник');. Items. Add ('Секретар');
{AuthForm. ADOConnection1. Close;: = ExtractFilePath (paramstr (0));. ADOConnection1. ConnectionString: = 'Provider = Microsoft. Jet. OLEDB.4.0; '+
'User ID = Adminata Source =' + + ' Users. mdb '+
'; Mode = Share Deny None; Extended' +
'Properties = ""; Jet OLEDB: System' +
'database = ""; Jet OLEDB: Registry' +
'Path = ""; JetOLEDB: Database' +
'Password = ""; JetOLEDB: Engine' +
'Type = 5; JetOLEDB: Database Locking' +
'Mode = 1; JetOLEDB: Global Partial Bulk' +
'Ops = 2; JetOLEDB: Global Bulk Transactions = 1;' +
'Jet OLEDB: New Database Password = ""; Jet OLEDB: Create' +
'System Database = False; JetOLEDB: Encrypt Database = False;' +
'Jet OLEDB: Don'' t Copy Locale on Compact = False; Jet OLEDB:' +
'Compact Without Replica Repair = False; Jet OLEDB: SFP = False';. ADOConnection1. Open;};. StatCmBChange (Sender: TObject);. Clear;. Close;. SQL. Clear;. Parameters. Add;. Parameters [0]. name: = 'p';. parameters [0]. value: = StatCmB. text;. sql. add ('Select Login From Users Where Status =: p');. Open; not AdoQuery1. Eof do. Items. Add (AdoQu...
