aumain.pas

详细说明:毕业论文中关于小型宾馆管理系统的详细设计毕 业论文中关于小型宾馆...一个酒店管理系统VB+Access [学生学籍管理系统(VB+Acess).zip] - !这个是刚刚编的毕业设计,可能

procedure TForm1.Button20Click(Sender: TObject);
var olev:olevariant;
begin
  ComboBox1.Clear;
  olev:=sup.PS_GetPagesInDocument(edit1.text);

  if  VarIsEmpty(olev) then showmessage('bad')
  else showmessage('ok');
  //   Get_HighRowCol(olev,i,j)
  //ComboBox1.items:=Get_RowRecords(olev,1);
  ComboBox1.items:=Get_AllRecords(olev);



   
end;

procedure TForm1.Button21Click(Sender: TObject);
var ol:variant;
begin
 ComboBox1.Clear;
  ol:=sup.PS_GetTransactionInfoEx(Edit1.text,edit4.text);
  if  VarIsEmpty(ol) then showmessage('bad')
  else showmessage('ok');
  ComboBox1.items:=Get_AllRecords(ol);
end;

procedure TForm1.Button22Click(Sender: TObject);
var ol:variant;
begin
  ComboBox1.Clear;
  ol:=sup.PS_GetDocumentsEx(edit1.text,edit4.text);
  if  VarIsEmpty(ol) then showmessage('bad')
  else showmessage('ok');
  ComboBox1.items:=Get_AllRecords(ol);

end;

procedure TForm1.Button23Click(Sender: TObject);
begin
showmessage(sup.pS_GetPath('F:\Inetpub\wwwroot\prexim\bak.jpg'));
end;

procedure TForm1.Button24Click(Sender: TObject);
var i :integer;
begin
  i:=sup.PS_LoadPage(Edit6.text,edit7.text,edit8.text,edit9.text,edit10.text);
   showmessage(inttostr(i));
end;

procedure TForm1.BrClick(Sender: TObject);
begin
 if OpenDialog1.Execute then
    Edit10.text:=OpenDialog1.FileName;
 
end;



procedure TForm1.Button26Click(Sender: TObject);
var ole:olevariant;
    i:integer;
    party:string;
    str:string;
begin

   ole:= VarArrayCreate([0,11],varVariant);
   Ole[0]:=edit1.text;
   Ole[1]:='Unknown';
   Ole[2]:='system';
   Ole[3]:=10;
   Ole[4]:=2;
   Ole[5]:=1;
   Ole[6]:='AFA';

   party:=sup.PS_GetRelatedFieldValue('T_AS_PARTIES','name','party_id',
                                      'test','s','s');

   Ole[7]:=party;//'PtyOAji5i540P5dPi04vt105XJ5b5dS3';//'test';
   Ole[8]:='2';
   Ole[9]:='3';
   Ole[10]:='4';
   Ole[11]:='5';
   if sup.PS_IU_FOlder(0,ole) then showmessage('ok')
    else showmessage('bad');
end;

procedure TForm1.Button27Click(Sender: TObject);
var ole:olevariant;
    i:integer;
    party:string;
begin

   ole:= VarArrayCreate([0,11],varVariant);
   Ole[0]:=edit1.text;
   Ole[1]:=2;
   Ole[2]:='system';
   Ole[3]:=10;
   Ole[4]:=5;
   Ole[5]:=5;
   Ole[6]:='AFA';
    party:=sup.PS_GetRelatedFieldValue('T_AS_PARTIES','name','party_id',
                                      'test1','s','s');

   Ole[7]:=party;

   Ole[8]:='1';
   Ole[9]:='1';
   Ole[10]:='1';
   Ole[11]:='1';
   if sup.PS_IU_FOlder(1,ole) then showmessage('ok')
    else showmessage('bad');
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
 if sup.PS_Delete(0,edit1.text,'',0) then showmessage('ok')
 else showmessage('bad');

end;

procedure TForm1.Button29Click(Sender: TObject);
var ole:variant;
begin
  Combobox1.clear;
  ole:=sup.PS_GetAllFOlderTypes;
  if  VarIsEmpty(ole) then showmessage('bad')
  else showmessage('ok');
  ComboBox1.items:=Get_AllRecords(ole);
end;

procedure TForm1.Button251Click(Sender: TObject);
var ole:variant;
begin
  Combobox1.clear;
  ole:=sup.PS_GetAllTransactionTypes;
  if  VarIsEmpty(ole) then showmessage('bad')
  else showmessage('ok');
  ComboBox1.items:=Get_AllRecords(ole);
end;

procedure TForm1.Button30Click(Sender: TObject);
var ole:variant;
begin
  Combobox1.clear;
  ole:=sup.PS_GetAllDocumentTypes;
  if  VarIsEmpty(ole) then showmessage('bad')
  else showmessage('ok');
  ComboBox1.items:=Get_AllRecords(ole);
end;

procedure TForm1.Button31Click(Sender: TObject);
var ole:variant;
begin
  Combobox1.clear;
  ole:=sup.PS_GetAllCurrencies;
  if  VarIsEmpty(ole) then showmessage('bad')
  else showmessage('ok');
  ComboBox1.items:=Get_AllRecords(ole);
end;
procedure TForm1.Button25Click(Sender: TObject);
var ole:variant;
begin
  Combobox1.clear;
  ole:=sup.PS_GetAllFolderIDs;
  if  VarIsEmpty(ole) then showmessage('bad')
  else showmessage('ok');
  ComboBox1.items:=Get_AllRecords(ole);
end;
procedure TForm1.Button32Click(Sender: TObject);
var ole:variant;
begin
  Combobox1.clear;
  ole:=sup.PS_GetAllTransactionIDs;
  if  VarIsEmpty(ole) then showmessage('bad')
  else showmessage('ok');
  ComboBox1.items:=Get_AllRecords(ole);
end;
procedure TForm1.Button33Click(Sender: TObject);
var ole:variant;
begin
  Combobox1.clear;
  ole:=sup.PS_GetAllDocumentIDs;
  if  VarIsEmpty(ole) then showmessage('bad')
  else showmessage('ok');
  ComboBox1.items:=Get_AllRecords(ole);
end;
procedure TForm1.Button34Click(Sender: TObject);
var s:string;
begin
    showmessage(sup.PS_GetRelatedFieldValue('T_AS_TRANSACTIONS','user_transaction_id','transaction_id',edit7.text,'s','s'));

    Showmessage(sup.PS_GetRelatedFieldValue('T_AS_FOLDERS','folder_id','owner',edit6.text,'s','s'));

//    Showmessage(sup.PS_GetRelatedFieldValue('T_AS_DOCUMENTS','document_id','user_document_id',
  //                                   '0','s','s'));


end;

procedure TForm1.Button35Click(Sender: TObject);
var ole:olevariant;
    i:integer;
    party:string;
    str:string;
begin

   ole:= VarArrayCreate([0,4],varVariant);
   Ole[0]:=edit1.text;
   Ole[1]:=edit6.text;
   Ole[2]:=0;//'system';
   Ole[3]:='system';
   party:=sup.PS_GetRelatedFieldValue('T_AS_PARTIES','name','party_id',
                                     'test','s','s');
   Ole[4]:=party;//'PtyOAji5i540P5dPi04vt105XJ5b5dS3';//'test';
   if sup.PS_IU_Transaction(0,ole) then showmessage('ok')
    else showmessage('bad');
end;
procedure TForm1.Button36Click(Sender: TObject);
var ole:olevariant;
    i:integer;
    party:string;
    str:string;
begin

   ole:= VarArrayCreate([0,4],varVariant);
   Ole[0]:=edit1.text;
   Ole[1]:=edit6.text;
   Ole[2]:=1;//'system';
   Ole[3]:='system';
   party:=sup.PS_GetRelatedFieldValue('T_AS_PARTIES','name','party_id',
                                     'test1','s','s');
   //Ole[4]:=party;
   Ole[4]:=party;//'PtyOAji5i540P5dPi04vt105XJ5b5dS3';//'test';
   if sup.PS_IU_Transaction(1,ole) then showmessage('ok')
    else showmessage('bad');
end;

procedure TForm1.Button37Click(Sender: TObject);
begin
 if sup.PS_Delete(1,edit1.text,edit6.text,0) then showmessage('ok')
 else showmessage('bad');
end;

procedure TForm1.Button38Click(Sender: TObject);
var ole:olevariant;
    i:integer;
    party:string;
    str:string;
begin
   ole:= VarArrayCreate([0,2],varVariant);
   Ole[0]:=edit1.text;
   Ole[1]:=sup.PS_GetRelatedFieldValue('T_AS_TRANSACTIONS','user_transaction_id','transaction_id', edit7.text,'s','s');
   Ole[2]:=0;//'system';
   if sup.PS_IU_Document(0,ole) then showmessage('ok')
    else showmessage('bad');
end;
procedure TForm1.Button39Click(Sender: TObject);
var ole:olevariant;
    i:integer;
    party:string;
    str:string;
begin
   ole:= VarArrayCreate([0,2],varVariant);
   Ole[0]:=edit1.text;
   str := sup.PS_GetRelatedFieldValue('T_AS_TRANSACTIONS','user_transaction_id','transaction_id',edit7.text,'s','s');
   showmessage(str);
   Ole[1]:=str;
   //showmessage(sup.PS_GetRelatedFieldValue('T_AS_TRANSACTIONS','user_transaction_id','transaction_id',edit7.text,'s','s'));
   //sup.PS_GetRelatedFieldValue('T_AS_TRANSACTIONS','user_transaction_id','transaction_id', edit7.text,'s','s');
   Ole[2]:=0;
   showmessage(ole[1]);
   if sup.PS_IU_Document(1,ole) then showmessage('ok')
   else showmessage('bad');
end;
//
procedure TForm1.Button40Click(Sender: TObject);
begin
 if sup.PS_Delete(2,edit1.text,edit7.text,0) then showmessage('ok')
 else showmessage('bad');
end;
procedure TForm1.Button42Click(Sender: TObject);
var ol:variant;
begin
  ComboBox1.Clear;
  ol:=sup.PS_GetDiscrepancies(strtoint(edit5.text),edit1.text);
  if  VarIsEmpty(ol) then showmessage('bad')
  else showmessage('ok');
  ComboBox1.items:=Get_AllRecords(ol);
  

end;

procedure TForm1.Button43Click(Sender: TObject);
var ole:variant;

begin
  //showmessage(sup.PS_GetFieldFromTable('T_AS_PARTIES','name',true);
  Combobox1.clear;
  ole:=sup.PS_GetFieldFromTable('T_AS_DISCREPANCIES','transaction_id',False);
   //PS_GetFieldFromTable('T_AS_DISCREPANCIES',"transaction_id",False)
  if  VarIsEmpty(ole) then showmessage('bad')
  else showmessage('ok');
  ComboBox1.items:=Get_AllRecords(ole);
  
end;




procedure TForm1.Button44Click(Sender: TObject);
begin
showmessage(sup.PS_GetfileExt('g:\out\test1.exe'));
end;

end.