u_function.pas

这是一个用条码录入的数据的进销存(只对成品）---做童装的

          Acustomer.Areano := '';
          Acustomer.Areaname := '';
          Acustomer.Shopname := '';
          Acustomer.Address := '';
          Acustomer.Tel := '';
          Acustomer.Fax := '';
          Acustomer.Email := '';
          Acustomer.Contactman := '';
          Acustomer.Zkrate := 1;
        end;

      end
      else
      begin
        opensql(Tempquery, 'Select * from ICustomer where Custno=''' + Custno + '''');
        if Tempquery.RecordCount = 1 then
        begin
          ACustomer.Custno := Trim(Fieldbyname('Custno').AsString);
          Acustomer.Custname := Trim(Fieldbyname('Custname').AsString);
          Acustomer.MaxNo := Fieldbyname('Maxno').asinteger;
          Acustomer.Areano := Trim(Fieldbyname('Areano').AsString);
          Acustomer.Areaname := Trim(Fieldbyname('Areaname').AsString);
          Acustomer.Shopname := Trim(Fieldbyname('Shopname').AsString);
          Acustomer.Address := Trim(Fieldbyname('Address').AsString);
          Acustomer.Tel := Trim(Fieldbyname('Tel').AsString);
          Acustomer.Fax := Trim(Fieldbyname('Fax').AsString);
          Acustomer.Email := Trim(Fieldbyname('Email').AsString);
          Acustomer.Contactman := Trim(Fieldbyname('Contactman').AsString);
          Acustomer.Zkrate := Fieldbyname('zkRate').AsFloat;
          Result := True;
        end
        else
        begin
          ACustomer.Custno := '';
          Acustomer.Custname := '';
          Acustomer.MaxNo := 0;
          Acustomer.Areano := '';
          Acustomer.Areaname := '';
          Acustomer.Shopname := '';
          Acustomer.Address := '';
          Acustomer.Tel := '';
          Acustomer.Fax := '';
          Acustomer.Email := '';
          Acustomer.Contactman := '';
          Acustomer.Zkrate := 1;
        end;
      end;
    finally
      Close;
      Free;
    end;
  end;
end;

function GetGroupinfo(const ATM: string; var AGroup: TGroup): Boolean;
var Tempquery: Tadoquery;
  TempStr: string;
begin
  Result := False;
  TempStr := Copy(Atm, 3, 2);
  Tempquery := TAdoquery.Create(nil);
  Tempquery.Connection := ActiveConnect;
  with Tempquery do
  begin
    try
      opensql(Tempquery, 'Select * from IGroup where GroupNO=''' + Tempstr + '''');
      if Tempquery.RecordCount = 1 then
      begin
        AGroup.Groupno := Fieldbyname('Groupno').AsString;
        AGroup.Groupname := Fieldbyname('Groupname').AsString;
        Result := True;
      end
      else
      begin
        AGroup.Groupno := '';
        AGroup.Groupname := ''
      end;
    finally
      Close;
      free;
    end;
  end;
end;


function GetIteminfo(const ATM: string; var AItem: TItem): boolean;
var Tempquery: Tadoquery;
  TempStr: string;
begin
  Result := False;

  TempStr := Copy(Atm, 6, Getspacepos(Atm) - 1);
  Tempquery := TAdoquery.Create(nil);
  Tempquery.Connection := ActiveConnect;
  with Tempquery do
  begin
    try
      opensql(Tempquery, 'Select * from IItem where Itemno=''' + Tempstr + '''');
      if Tempquery.RecordCount = 1 then
      begin
        Aitem.ITemNO := Fieldbyname('ItemNo').AsString;
        Aitem.ItemName := Fieldbyname('ItemName').AsString;
        Aitem.HandCount := Fieldbyname('handcount').AsInteger;
        Aitem.Price := Fieldbyname('Price').AsFloat;
        Result := True;
      end
      else
      begin
        Aitem.ITemNO := '';
        Aitem.ItemName := '';
        Aitem.HandCount := 0;
        Aitem.Price := 0;
      end;
    finally
      close;
      free;
    end;
  end;
end;



function myTrim(const Str: string): string;
begin
  Result := StringReplace(Str, ' ', '', [rfReplaceAll]);
end;


function ParentDir(ChildDir: string): string;
var
  i: integer;
begin
  for i := Length(ChildDir) downto 1 do
  begin
    if ChildDir[i] = '\' then
      break;
  end;
  result := copy(ChildDir, 1, i);
end;


procedure Addoperatlog(AFormName, Aoperate: string);
begin
  Execsql('Insert into SOperateLog (Userid,Username,Formname,Operate,OperateDate)'
    + ' Values(''' + Userid + ''',''' + Username + ''',''' + Aformname + ''',''' + Aoperate + ''','''
    + FormatDatetime('YYYY-MM-DD HH:MM:SS', now) + ''')');
end;

function loginsys(AUserid, password: string): boolean;
var Tempquery: Tadoquery;
begin
  Result := False;
  Tempquery := Tadoquery.Create(nil);
  Tempquery.Connection := ActiveConnect;
  with tempquery do
  begin
    try
      opensql(Tempquery, 'Select * from Iuser where Userid=''' + AUserid + ''' and isnull(Password,'''')=''' + Password + '''');
      if tempquery.RecordCount = 1 then
      begin
        Result := True;
        Userpower := Tempquery.fieldbyname('Groupid').asstring;
        Username := Tempquery.fieldbyname('Username').asstring;
        Userid := Tempquery.fieldbyname('userid').asstring;
      end;
    finally
      close;
      free;
    end;
  end;
end;

procedure DBConnectExecute(aClass: TForm);
begin
  with aClass.Create(Application) do
  begin
    try
      showModal;
    finally
      free;
    end;
  end;
end;

procedure Readfromini(var Aserver, Aname, Auserid, Apassword: string);
var
  IniFile: TIniFile;
begin
  IniFile := TIniFile.Create(ExtractFilePath(application.ExeName) + 'Sysconfig.dll');
  Aserver := IniFile.ReadString('Connect', 'Servername', 'Friend');
  Aname := IniFile.ReadString('Connect', 'dbname', 'Biky');
  Auserid := IniFile.ReadString('Connect', 'username', 'sa');
  Apassword := IniFile.ReadString('Connect', 'password', '');
  IniFile.Free;
end;

procedure WriteToIni(const aServerName, aDatabaseName, aUserName, aPassword: string);
var IniFile: TIniFile;
begin
  IniFile := TIniFile.Create(ExtractFilePath(application.ExeName) + 'Sysconfig.dll');
  IniFile.WriteString('Connect', 'Servername', aServerName);
  IniFile.WriteString('Connect', 'dbname', aDatabaseName);
  IniFile.WriteString('Connect', 'Username', aUserName);
  IniFile.WriteString('Connect', 'Password', aPassword);
  Dbserver := aservername;
  dbname := Adatabasename;
  Dbuserid := Ausername;
  dbpassword := Apassword;
  IniFile.Free;
end;

function GetCurrComputername(): string;
var
  ComputerName: pchar;
  Size: dword;
begin
  Result := '';
  size := 255;
  GetMem(ComputerName, size);
  GetComputerName(ComputerName, Size);
  Result := Strpas(ComputerName);
end;

function Connectdb(var AdoCon: Tadoconnection; Adbname: string): Boolean;
begin
  Result := False;
  with Adocon do
  begin
    Connected := False;
    ConnectionString := 'Provider=SQLOLEDB.1;Password='
      + DBpassword + ';Persist Security Info=True;User ID='
      + DbUserid + ';Initial Catalog='
      + Adbname + ';Data Source='
      + Dbserver;

 //     'Provider=SQLOLEDB.1;Password='
//      +Dbpassword+';Persist Security Info=False;User ID='
//      +DbUserid+';Initial Catalog='
//      +Dbname+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID='
//      +Dbserver+';Use Encryption for Data=False;Tag with column collation when possible=False';
    try
      Connected := True;
      ISConnected := True;
      ActiveConnect := Adocon;
      Activedbname := dbname;
      Result := True;
    except
      ISConnected := False;
      ActiveConnect := nil;
      Activedbname := '';
    end;
  end;

end;

function Execsql(Vsql: string): boolean;
var TempQuery: Tadoquery;
begin
  Result := False;
  if not ISconnected then exit;
  begin
    TempQuery := Tadoquery.Create(nil);
    Tempquery.Connection := Activeconnect;
    with tempquery do
    begin
      close;
      sql.Text := Vsql;
      try
        Execsql;
        Result := True;
      finally
        Close;
        Free;
      end;
    end;
  end;
end;

procedure Opensql(query: Tadoquery; Vsql: string);
begin
  if not ISconnected then exit;
  with Query do
  begin
    Close;
    Connection := Activeconnect;
    sql.Text := Vsql;
    try
      open;
    except;
      MessageDlg('执行打开记录集时发生错误!', mtInformation, [mbOK], 0);
    end;
  end;
end;

procedure GetCompanryName(var Acompanry: TCompanry);
var Tempquery: Tadoquery;
begin
  Tempquery := Tadoquery.create(nil);
  Tempquery.Connection := ActiveConnect;
  with Tempquery do
  begin
    close;
    Sql.Text := 'Select * from ICompanry';
    try
      Open;
      if Recordcount = 1 then
      begin
        Acompanry.ZH_Companryname := Fieldbyname('ZH_Companryname').AsString;
        Acompanry.EN_Companryname := Fieldbyname('EN_Companryname').AsString;
        Acompanry.CompanryNo := Fieldbyname('CompanryNo').AsString;
        Acompanry.Reginfo := Fieldbyname('Reginfo').AsString;
        Acompanry.Projectname := Fieldbyname('Projectname').AsString;
      end;
    finally
      Close;
      Free;
    end;
  end;
end;

end.